Ръководства за работа с Excel 2003

[azureuz]

Ето го в ексел 97.Надява се да е наред.Сега ще пробвам предложеното от Naskobk

Виш така дали става

Sub FnCreateWordDoc()
Range("A1:H2").Select
       Selection.Copy

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Add

   objWord.Visible = True
   objWord.Selection.Paste
   Workbooks.Open Filename:=ThisWorkbook.Path & "\New_Microsoft_Excel_Worksheet_document.xls"
Application.DisplayAlerts = False
Range("A1").Select
End Sub

http://forums.softvisia.com/public/style_images/master_custom/attachicon.gifNew_Microsoft_Excel_Worksheet_document.XLS

Пейстнотото не е в формат "keep texy only" за съжаление.

EXCELTOWORD.xls

[naskobk]

Виш това видео: http://www.exceltrainingvideos.com/import-data-into-word-from-excel-using-vba/

използва този макрос за прехвърляне в ексел    

Sub ActivateWordTransferData()
Worksheets("Sheet1").Range("A1:H2").Copy
'Declare Object variables for the Word application and file or document
Dim wdapp As Object, wddoc As Object
'Declare a String variable for the file name and folder path
Dim strdocname As String
'error handling is extremely important in making Excel work with Word
On Error Resume Next
'GetObject needs two parameters. The first is optional
Set wdapp = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
'we create a new instance of MS Word
Set wdapp = CreateObject("Word.Application")
End If
'Our application is made visible
wdapp.Visible = True
strdocname = "C:\our-inventory\inventory-report.docx"""
'we create a friendly message for the user
If Dir(strdocname) = "" Then
MsgBox "The file " & strdocname & vbCrLf & "was not found " & vbCrLf & "C:\our-inventory\.", vbExclamation, "The document does not exist."
Exit Sub
End If
'we activate our MS Word instance
wdapp.Activate
Set wddoc = wdapp.Documents(strdocname)
'we open MS Word file if it is not open
If wddoc Is Nothing Then Set wddoc = wdapp.Documents.Open(strdocname)
wddoc.Activate
wddoc.Range.Paste
wddoc.Save
wdapp.Quit
'Here we free memory allocated to our two object variables
Set wddoc = Nothing
Set wdapp = Nothing
'The following line of code removes the selection of range A1:D4 in Excel
Application.CutCopyMode = False
End Sub

Само трябва да промениш пътя: strdocname = "C:\our-inventory\inventory-report.docx"""

макроса работи с Офис пакет 2007 - 2013

[azureuz]

Naskobk, от ексел трябва да прехвърля в word.

 

[naskobk]

Пробвай този макрос

Sub ExportRangetoFile()
Range("a2:a100").Select
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Doc Files (*.doc), *.doc")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

[naskobk]

export_excel_to_word.xls

С този макрос селектираш първо текста

 

след това натискаш бутона където си вградил макроса

и се получават нещата.

Sub FnCreateWordDoc()
Dim WorkRng As Range
Dim objWord

   Dim objDoc

On Error Resume Next

Set WorkRng = Application.InputBox("Range", WorkRng.Address, Type:=8)
       Set WorkRng = Selection.Copy

   

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Add

   objWord.Visible = True
   objWord.Selection.Paste
Application.DisplayAlerts = False
End Sub

[azureuz]

Благодаря много naskobk.

Весели празници на всички.

[azureuz]

Здравейте отново.

Малко помощ можели?

В екселски документ с три макроса и три бутона за стартирането им, може ли трите макроса да се стартират с един бутон в определена последователност?

[naskobk]

_{Пробвай така:}

Sub auto_range_1()
Range("таблица!$J$2:$S$2").Name = "A_1"
Range("таблица!$J$3:$S$3").Name = "A_2"
Range("таблица!$J$4:$S$4").Name = "A_3"
Range("таблица!$J$5:$S$5").Name = "A_4"
Range("таблица!$J$6:$S$6").Name = "A_5"
Range("таблица!$J$7:$S$7").Name = "A_6"
Range("таблица!$J$8:$S$8").Name = "A_7"
Range("таблица!$J$9:$S$9").Name = "A_8"
Range("таблица!$J$10:$S$10").Name = "A_9"
Range("таблица!$J$11:$S$11").Name = "A_10"
End Sub


Sub auto_range_2()
Range("таблица!$J$502:$S$502").Name = "A_501"
Range("таблица!$J$503:$S$503").Name = "A_502"
Range("таблица!$J$504:$S$504").Name = "A_503"
Range("таблица!$J$505:$S$505").Name = "A_504"
Range("таблица!$J$506:$S$506").Name = "A_505"
Range("таблица!$J$507:$S$507").Name = "A_506"
Range("таблица!$J$508:$S$508").Name = "A_507"
Range("таблица!$J$509:$S$509").Name = "A_508"
Range("таблица!$J$510:$S$510").Name = "A_509"
Range("таблица!$J$511:$S$511").Name = "A_510"
End Sub


Sub auto_range_3()
Range("таблица!$J$1002:$S$1002").Name = "A_1001"
Range("таблица!$J$1003:$S$1003").Name = "A_1002"
Range("таблица!$J$1004:$S$1004").Name = "A_1003"
Range("таблица!$J$1005:$S$1005").Name = "A_1004"
Range("таблица!$J$1006:$S$1006").Name = "A_1005"
Range("таблица!$J$1007:$S$1007").Name = "A_1006"
Range("таблица!$J$1008:$S$1008").Name = "A_1007"
Range("таблица!$J$1009:$S$1009").Name = "A_1008"
Range("таблица!$J$1010:$S$1010").Name = "A_1009"
Range("таблица!$J$1011:$S$1011").Name = "A_1010"
End Sub

Sub auto_range_4()
Range("таблица!$J$1502:$S$1502").Name = "A_1501"
Range("таблица!$J$1503:$S$1503").Name = "A_1502"
Range("таблица!$J$1504:$S$1504").Name = "A_1503"
Range("таблица!$J$1505:$S$1505").Name = "A_1504"
Range("таблица!$J$1506:$S$1506").Name = "A_1505"
Range("таблица!$J$1507:$S$1507").Name = "A_1506"
Range("таблица!$J$1508:$S$1508").Name = "A_1507"
Range("таблица!$J$1509:$S$1509").Name = "A_1508"
Range("таблица!$J$1510:$S$1510").Name = "A_1509"
Range("таблица!$J$1511:$S$1511").Name = "A_1510"
End Sub



И обединени четирите макроса последователно:

Sub auto_range()
Call auto_range_1
Call auto_range_2
Call auto_range_3
Call auto_range_4
End Sub

Това е пример може да си обединиш всякакви макроси,

по този начин.

[azureuz]

Благодаря за хелпа.

[azureuz]

Здравейте! Пак имам нужда от помощ.

Може ли в прикачения файл в клетка "В26" да се получава писането както в Combox-a?Или може ли на клетка да се приложи свойство - "MatchEntry" както на Combox-a?

new Dropdown with Search Suggestion.xls

[naskobk]

За нуждите които ти трябват, може да ползваш посоченият пример

който съм приложилDropdown with Search Suggestion_Final.xls

[azureuz]

Няма да ми върши работа примера.Тъй като и аз се обърках вече, а и няма да стане това както си го мислех ще започна отначало с това какво ми трябва, че вече зациклих.

Прикачам нов файл в който няма формули или макроси.Идеята е има доста имена в една колона и ще трябва в доста клетки на друга колона да се пишат тия имена.Идеята ми е като се пишат да ти излиза автоматично предложение с написаното и да ти подскаже и  да си избереш името което съвпада.Имената ще бъдат доста

opit.xls

[naskobk]

Функцията за подсказващ текст на Ексел 2003 се активира така: Turn on or off automatic completion of cell entries

1. On the Tools menu, click Options, and then click the Edit tab.
2. Select or clear the Enable AutoComplete for cell values check box.

За ексел 2007 може да гледаш този пример:

 

 

Виж и тези двата примера:

[azureuz]

Последният клип е това което ми трябва.

Благодаря!

[naskobk]

Виш тази форма:

 

http://www.contextures.com/xlUserForm01.html

 

на този принцип работи и прикаченият файл,

има скрити листове може да разгледаш макроса ще ти е от полза

 

пробвай чрез дроб даун лист

PartLocDBCombo.zip