|
Тема |
Exel & VB....Urgent! |
|
Автор | Lora (Нерегистриран) | |
Публикувано | 12.08.04 10:53 |
|
|
Здравейте!
Може ли някой да ме съпортне?
Проблема е следния...
Имам два Sheet-а в Exel - ски файл и сравнявам колона А от първия с колона А като намери съвпадение копира сумата на колона Б и С от втория Sheet в колона Б в първия. Дано някой да мее разбрал кво искам да направя:)))
Та правя два масива съответно за двете колони до тук всичко е ОК но като почна да ги сравнявам става мазало гърми яко нещо от типовете май , а пък и самото обхождане наколоните не става като хората. Ето кода :
''Пътрвия масив
l = 1
i = 1
Do While Not IsEmpty(Sheets("ski").Cells(i, 2))
i = i + 1
l = l + 1
arSki(l) = Sheets("ski").Cells(i, 2)
Loop
''Втория
f = 1
i = 1
Do While Not IsEmpty(Sheets("B2115218").Cells(i, 3))
i = i + 1
f = f + 1
arB211(f) = Sheets("B2115218").Cells(i, 3)
Loop
''Сравниаването :)))
For l = 2 To f
For f = 2 To l
If arSki(l) = arB211(f) Then
Sheets("ski").Cells(i, 3) = (Sheets("B2115218").Cells(i, 11)) - (Sheets("B2115218").Cells(i, 10))
End If
Next f
Next l
Доста е каша ама сега прохождам в програмирането :)
|
| |
|
|
|