|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Поиск информации в документе |
|
VBS/WSH/JS - Поиск информации в документе
|
Новый участник Сообщения: 26 |
Здравствуйте!
Помогите с написанием скрипта или bat. Задача: в файле xls необходимо найти данные с листа "инв" в листе "ALL" по 4-му столбцу (инвентарный номер), при совпадении номеров отметить их цветом (в обоих листах), и затем данные ячейки из столбца №8 страници "инв" скопировать в аналогичную ячейку страницы "ALL" (фамилии). ЗЫ: объем информации очень большой поэтому прошу помощи. |
|
Отправлено: 08:10, 08-06-2011 |
Новый участник Сообщения: 26
|
Профиль | Отправить PM | Цитировать Есть решение с помощью макроса Exсel, но хотелось бы сделать унифицированный обработчик, (выбор файла, кол-во строк проверки, указание какие данные искать):
Sub ìàê1() ' ' For i = 1 To 405 Step 1 j = "D" + LTrim(Str(i)) For c = 1 To 423 Step 1 j1 = "D" + LTrim(Str(c)) If Worksheets("èíâ 2009").Range(j).Value = Worksheets("ALL").Range(j1).Value Then Worksheets("ALL").Range("H" + LTrim(Str(c))).Value = Worksheets("èíâ 2009").Range("H" + LTrim(Str(i))).Value Sheets("èíâ 2009").Select Worksheets("èíâ 2009").Range(j).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.499984740745262 .PatternTintAndShade = 0 End With Sheets("ALL").Select Worksheets("ALL").Range(j1).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.499984740745262 .PatternTintAndShade = 0 End With End If Next c Next i End Sub |
Отправлено: 05:59, 09-06-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 26
|
Профиль | Отправить PM | Цитировать Так никто и не подскажет?
|
Отправлено: 14:18, 14-06-2011 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Законы | Новая редакция ФЗ "Об информации, информатизации и защите информации" | ArtemD | Защита компьютерных систем | 2 | 31-07-2006 11:58 | |
гиперссылки в XML-документе | unknown | Вебмастеру | 3 | 22-06-2006 15:09 | |
Поиск потерянной информации в ХР | Kel2 | Microsoft Windows 2000/XP | 4 | 06-06-2006 16:22 | |
Ненужные строки в документе.... | Maxximus | Хочу все знать | 11 | 21-04-2003 19:50 |
|