СПАСИБО!!!!
Пользовательская форма (окно) для ввода данных.
Пользовательская форма (окно) для ввода данных.
Ввод данных через формы
Ввод данных через формы
Ввод данных через формы
Ввод данных через формы
Макрос: Копирование значения предыдущей ячейки, если в параллельном столбце ячейки непустые
Появление кнопки в зависимости от значения в ячейке
Появление кнопки в зависимости от значения в ячейке
Появление кнопки в зависимости от значения в ячейке
Появление кнопки в зависимости от значения в ячейке
Появление кнопки в зависимости от значения в ячейке
Появление кнопки в зависимости от значения в ячейке
Появление кнопки в зависимости от значения в ячейке
Появление кнопки в зависимости от значения в ячейке
выбор последнего из одинаковых
выбор последнего из одинаковых
выбор последнего из одинаковых
выбор последнего из одинаковых
выбор последнего из одинаковых
VBA. Автоматический запуск макроса на опр. листе при изменении в книге Excel
VBA. Автоматический запуск макроса на опр. листе при изменении в книге Excel
VBA. Автоматический запуск макроса на опр. листе при изменении в книге Excel
Из Excel в Word
Из Excel в Word
Из Excel в Word
Из Excel в Word
Автоматическое добавление новой строки
Из Excel в Word
17.02.2012 15:39:07
{quote}{login=ZVI}{date=13.09.2008 11:44}
--- ' ZVI:2008-09-13 Из Excel в Word ' Sub CopyToOpenDocFromExcel() Dim objWord, objDoc, RngXL ' Ищем открытое приложение Word Set objWord = GetObject(, "Word.Application") If objWord Is Nothing Then MsgBox ("Не найден Word"), vbExclamation Set objWord = Nothing Exit Sub End If ' Ищем открытый документ Документ1.doc On Error Resume Next Set objDoc = objWord.Documents("Документ2.doc") If Err <> 0 Then MsgBox ("Не найден Документ1.doc"), vbExclamation Set objDoc = Nothing Set objWord = Nothing Exit Sub End If ' Перемещаемся в конец Word-документа objDoc.Activate objWord.Selection.EndKey Unit:=6 ' 6 = wdStory ' Копируем из Excel в Word Selection.Copy ' это относится к Excel objWord.Selection.Paste ' это уже относится к Word т.к. objWord Application.CutCopyMode = False End Sub Аналогично можно использовать Word-ский код для поиска строки (метод Find). --- ZVI{/post}{/quote} А скажите,мне,чайнику, как запустить этот код? |
|
|
Автоматическое добавление новой строки