Сравнение значений в 2 массивах

[Verano naranjo]

Народ, посмотрите, плз, что у меня с синтаксисом. Я не сильна в vba

Нужно сделать такую вещь:
1) На стр EI столбец B- необходимо перемещаться по столбцу вниз до последнего значения и при этом проверять, сколько раз каждое значение из этого столбца встречается в столбце A на стр DPS.
2) В случае, когда искомое значение наконец-то попадается в столбце A стр DPS, необходимо проверять, соответствует ли месяц (указан в соотв. ячейке справа от [j,A] стр DPS) месяцу, заданному из текстбокса.
3) Если месяц соответствует, то значение счетчика нужно записать в ячейку quantity напроотив соответствующего Enditem

нехитрая задача на перебор массива. На паскале я такое запросто напишу, а вот с vba хуже.

С вложениеями что-то странно происходит, напишите адрес-я скину файл, если нужно.

Пример кода:

PHP код:

Private Sub CommandButton1_Click()
Dim i, j, month, S, compei, compmonth As Integer
TextBox1.Value = month
Worksheets("EI").Activate
ActiveSheet.Range("B2").Activate
For i = 1 To 34
Cells(i, B).Value = compei
S = 0
Worksheets("DPS").Activate
ActiveSheet.Range("A2").Activate
    For j = 1 To Endxl.Down
    If Cells(j, A) = compei Then
        If Cells(j, A).Offset(0, -1).Value = month(month) Then
        S = S + 1
        Worksheets("EI").Activate
        ActiveSheet.Cells(i, B).Offset(0, -1).Value = S
        End If
    End If
    Next j
Next i
End Sub 


[IgorGO]

Cells(i, B) - не вижу чтобы В было присвоено какое-то значение. В = 0 - тут будет ошибка.
Cells(i, B) - это ячейка из i-го ряда, в колонке B. здесь В это не имя колонки, а ее номер, такой же как и номер ряда т.е.число. номера колонок начинаются с 1, а не с 0.
Вам подойдет Cells(i, 2) или Range("B" & i)
это несколько раз есть в коде. исправляйте.

чем реже в коде будет встречаться Activate - тем быстрее будет работать Ваш макрос.

[Hugo121]

Может кавычки забылись?

Sub tt()
i = 10
Cells(i, "B").Select
End Sub

[Verano naranjo]

Спасибо, IgorGo

PHP код:

    For j = 1 To Endxl.Down 


тормозит на этой штуке: я хотела сказать, с j 1 до последней непустой ячейки. Тоже ошибка?

[IgorGO]

может со второй строки? в первой не шапка случайно?
for j = 2 to cells(2,1).end(xldown).row

я обычно вместо j R пишу, тогда cells(r,c) - понятно к кому я обращаюсь

[IgorGO]

не знаю какой лист активен в момент старта макроса поэтому 1 Activate оставил в коде

Private Sub CommandButton1_Click()
  Dim i, j, month, S, compei, compmonth As Integer ' удачное решение переменную назвать как стандартную функции, главное - потом все понятно
  TextBox1.Value = month
  Worksheets("EI").Activate
  With Sheets("DPS")
    For i = 1 To 34
      сells(i, 2).Value = compei ' видимо наоборот compei = сells(i, 2).Value
      S = 0
      For j = 2 To .Cells(2, 1).End(xlDown).Row
        If .Cells(j, 1) = compei Then
          If .Cells(j, 1).Offset(0, -1).Value = month(month) Then ' левее колонки А ничего нет - это ошибка. Видимо Offset(0, 1)
            S = S + 1
            Cells(i, B).Offset(0, -1).Value = S
          End If
        End If
      Next j
    Next i
  End With
End Sub

[Verano naranjo]

Private Sub CommandButton1_Click()
Dim i, j, curmonth, S, compmonth As Integer
Dim compei As String
TextBox1.Value = curmonth
Worksheets("EI").Activate
With Sheets("DPS")
For i = 2 To 38
compei = Cells(i, 2).Value
S = 0
Worksheets("DPS").Activate
For j = 2 To .Cells(2, 1).End(xlDown).Row
If .Cells(j, 1).Value = compei Then
.Cells(j, 1).Offset(0, 2).Value = compmonth
If curmonth = compmonth Then
S = S + 1
End If
Cells(i, 2).Offset(0, 1).Value = S
End If
Next j
Next i
End With
End Sub

Пример, как выглядят страницы: т.о. каждую ячейку из столбца Enditem стр EI нужно проверить на наличие в столбце Enditem в стр DPS, затем проверить соответствует ли значение в столбце month той же строки , что и проверенный enditem DPS , значение, вееденному вручную в текстбокс. Если да , то записываем знаение счетчика Quantity напротив проверяемого Enditem в листе EI

Пример страницы EI

Model Enditem Quantity
L42F BLJULHWJ32EQAB-AF-
L42F BLJULHWJ32EQAB-AG-
L42F BLJULHWJ32EQAB----
L42F BDBWLGWJ32EQAA--F-
L42F BLGULGWJ32EQAA--F-
L42F BDBWLGWJ32EQAA--G-
L42F BLGULGWJ32EQAA--G-
L42F BDBWLGWJ32EQA-----
L42F BLGULGWJ32EQA-----
L42F BDBWLEWJ32EQA-----
L42F BLGULEWJ32EQA-----

Пример стр DPS

End Item Actual: Offline Month
TDRNLFZT31EQA2-KDB 09.08.10 15:23 8
TDRNLFZT31EQA2-KDB 09.08.10 15:42 8
TDRNLFZT31EQA2-KDB 09.08.10 15:38 8
TDRNLFZT31EQA2-KDB 09.08.10 14:27 8
TDRNLFZT31EQA2-KDB 09.08.10 14:31 8
TDRNLFZT31EQA2-KDB 09.08.10 14:41 8
TDRNLFZT31EQA2-KDB 09.08.10 14:52 8
TDRNLFZT31EQA2-KDB 09.08.10 14:33 8
TDRNLFZT31EQA2-KDB 09.08.10 15:31 8
TDRNLFZT31EQA2-KDB 09.08.10 15:00 8
TDRNLFZT31EQA2-KDB 09.08.10 15:19 8
TDRNLFZT31EQA2-KDB 09.08.10 15:46 8
TDBNLJWT31EQA2DKDA 09.08.10 17:02 8
TDBNLJWT31EQA2DKDA 09.08.10 17:06 8
TDBNLJWT31EQA2DKDA 09.08.10 16:21 8
TDBNLJWT31EQA2DKDA 09.08.10 16:44 8
TDBNLJWT31EQA2DKDA 09.08.10 16:28 8

[Verano naranjo]

Private Sub CommandButton1_Click()
Dim i, j, curmonth, S, compmonth As Integer
Dim compei As String
TextBox1.Value = curmonth
Worksheets("EI").Activate
With Sheets("DPS")
For i = 2 To 38
compei = Cells(i, 2).Value
S = 0
Worksheets("DPS").Activate
For j = 2 To .Cells(2, 1).End(xlDown).Row
If .Cells(j, 1).Value = compei Then
.Cells(j, 1).Offset(0, 2).Value = compmonth
If curmonth = compmonth Then
S = S + 1
End If
Cells(i, 2).Offset(0, 1).Value = S
End If
Next j
Next i
End With
End Sub

[Verano naranjo]

PHP код:

checkei = Cells(j, 1).Value 


Вот здесь застревает, говорит, несоответствие типов.

Но почему тогда вот здесь он все проглатывает и никаких ошибок не выдает

PHP код:

compei = Cells(i, 2).Value 


Данные выглядят так
TDRNLFZT31EQA2-KDB
BLJULHWJ32EQAB-AG-

и так
TDRNLFZT31EQA2-KDB
TDRNLFZT31EQA2-KDB
TDRNLFZT31EQA2-KDB
TDRNLFZT31EQA2-KDB

тип данных стоит текст в файле, в коде- string

[Hugo121]

Сообщение от Verano naranjo

PHP код:

checkei = Cells(j, 1).Value 


Вот здесь застревает, говорит, несоответствие типов.

Но почему тогда вот здесь он все проглатывает и никаких ошибок не выдает

PHP код:

compei = Cells(i, 2).Value 


Чему равно j?
Не 0?