Войти

Показать полную графическую версию : Поиск информации в документе


ZeVSalt
08-06-2011, 08:10
Здравствуйте!
Помогите с написанием скрипта или bat.
Задача:
в файле xls необходимо найти данные с листа "инв" в листе "ALL" по 4-му столбцу (инвентарный номер), при совпадении номеров отметить их цветом (в обоих листах), и затем данные ячейки из столбца №8 страници "инв" скопировать в аналогичную ячейку страницы "ALL" (фамилии).

ЗЫ: объем информации очень большой поэтому прошу помощи.

ZeVSalt
09-06-2011, 05:59
Есть решение с помощью макроса 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

ZeVSalt
14-06-2011, 14:18
Так никто и не подскажет?




© OSzone.net 2001-2012