Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Delirium

Ветеран


Сообщения: 5624
Благодарности: 936

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: xls table.xls
(51.5 Kb, 267 просмотров)

Что мы имеем:
Назначив с свойствах флажка зависимую ячейку(в нее выводится true или false, в зависимости от состояния кнопки), и написав следующий макрос, получили экспорт в Word диапазона в зависимости от состояния флажка:

Код: Выделить весь код
Dim AppWord As Word.Application
     
    Set AppWord = CreateObject("Word.Application")
    AppWord.Visible = True

    AppWord.Documents.Add
    
    Range("A5:F5").Copy 'Копируем и вставляем заголовок с листа
    AppWord.Selection.Paste
    
    For i = 6 To 36 ' Цикл по строкам до 36-ой строки
    
    If Cells(i, 16) = True Then '16 столбец - столбец, в котором привязаны флажки и ячейки(см. вложение)
    

    Cells(i, 1).Copy' копируем ячейку и вставляем
    AppWord.Selection.Paste
     
   
    End If
    
    Next
    
    Application.CutCopyMode = False
    Set AppWord = Nothing
После вставки кода идем в Tools - Preferences и выставляем там галку напротив Microsoft Word Object Library. Тестируем
Во вложении - рабочий пример.

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)

Это сообщение посчитали полезным следующие участники:

Отправлено: 06:16, 19-08-2010 | #5