Yuk Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: Sub CombineBooks()   Dim wb(2) As Workbook Dim fd As FileDialog Dim i As Integer Dim c As Range   'Read 2 files in 1 or 2 steps i = 0 While i < 2 Set fd = Application.FileDialog(msoFileDialogOpen) With fd     .AllowMultiSelect = True     If .Show = -1 Then         i = i + 1         Set wb(i) = Workbooks.Open(.SelectedItems(1))         If i < 2 And .SelectedItems.Count > 1 Then             i = i + 1             Set wb(i) = Workbooks.Open(.SelectedItems(2))         End If     End If End With Set fd = Nothing Wend   'Copy first sheet to the new workbook wb(1).Sheets(1).Copy 'Sum with the second book For Each c In ActiveSheet.UsedRange.Cells     If c.Interior.ColorIndex = 35 Then 'if green         c.Value = c.Value + wb(2).Sheets(1).Range(c.Address)     End If Next   'Close input books wb(1).Close SaveChanges:=False wb(2).Close SaveChanges:=False End Sub Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 00:08 23-11-2006 | Исправлено: Yuk, 03:33 23-11-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA

ShIvADeSt (23-04-2007 01:59): http://forum.ru-board.com/topic.cgi?forum=33&topic=8273

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование