|
|
|
сравнить 2 книги
|
|||
|---|---|---|---|
|
#18+
Здравствуйте. Никогда не писал на VBA, но вот поставили задачу: есть 2 файла екселевских, надо их сравнить по строкам и если строки не совпадают - красить их в красный. (ну хотя бы по столбцу одному, дальше я сам разберусь) Очень хочется код увидеть :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.09.2004, 02:28 |
|
||
|
сравнить 2 книги
|
|||
|---|---|---|---|
|
#18+
Sub Макрос3() If Workbooks("2.xls").Sheets("Лист1").Range("a1") = Workbooks("1.xls").Sheets("Лист1").Range("a1") Then GoTo l Workbooks("2.xls").Sheets("Лист1").Rows("1:1").Select Selection.Font.ColorIndex = 3 l: End Sub Мона вставить в цикл значение каждой ячейки.... Stepler (щёлк-щёлк!!)  Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.09.2004, 08:58 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=32707787&tid=2186562]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
54ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
40ms |
get tp. blocked users: |
1ms |
| others: | 338ms |
| total: | 478ms |
| 0 / 0 |
