Ange30
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
Прошу прощения за вопрос, но я в VBA очень не сильна.
Нужна программа сверяющая ячейки в 2 столбиках (скажем, j,l) с проверочными (b,d) одновременно. Т.е. сверить строчку i колонки j со всеми значениями колонки b, если совпадение найдено в строчке a колонки b, то проверяем ячейку (i,l) c (a,d) в той же строчке.
Если сочетание такое в одной строчке найдено, то в строчке i присвоить в колонке y значение 1, а если нет, то 0.
Но что-то ему все время не нравится(( Помогите, пожалуйста! Заранее большое спасибо.
[more=Макрос]
Код: Public Sub check()
Dim a As Integer, b As Integer, i As Integer, j As Integer, l As Integer, y As Integer, d As Integer
j = CInt(InputBox("Enter column lic number"))
l = CInt(InputBox("Enter column data number"))
b = CInt(InputBox("Enter column lic check"))
d = CInt(InputBox("Enter column data check"))
y = CInt(InputBox("Enter column default"))
i = 0
Do
i = i + 1
a = 0
Do
a = a + 1
If Cells(i, j) = Cells(a, b) Then
Do
k = k + 1
If Cells(k, l) = Cells(a, d) Then
Cells(i, y) = 1
Exit Do
Else
Cells(i, y) = 0
End If
Else
Cells(i, y) = 0
End If
Loop Until cells (a,b)=""
Loop Until cells (i,j)=""
End Sub
|
|
Всего записей: 1 | Зарегистр. 28-02-2013 | Отправлено: 15:51 28-02-2013 | Исправлено: Ange30, 16:05 28-02-2013 |
|
