выбрать значения столбцов из таблицы в соответствии с другим заполненным значением ячейки массива - PullRequest
Новая
       29

выбрать значения столбцов из таблицы в соответствии с другим заполненным значением ячейки массива

0 голосов
/ 15 июня 2019

моя проблема: Я создал массив, который хранит категории недвойных дефектов из таблицы Excel с именем cat. когда я изменяю значение команды combobox1, я хочу получить номер вхождения категории (в arra cat) и сохранить их каждый в массиве nbDef. Как я могу сделать это! 

Private Sub ComboBox1_Change()
'tableau nb of defetcs
Dim nbDef() As Integer
ReDim nbDef(0 To UBound(cat)) As Integer
Dim i As Long
    For i = LBound(cat) To UBound(cat)
       For k = 2 To Feuil3.Range("E1").End(xlDown).Offset(1, 0).Row
     nbDef(i) = Application.WorksheetFunction.CountIf(Feuil3.Range("E" & 2, "E" & k), " cat(i)")
    Next k
Next i

End Sub

Private Sub UserForm_Initialize()
'fill Combobox team
Dim i As Long
For i = 2 To Feuil3.Range("H1000000").End(xlUp).Offset(1, 0).Row
x = Application.WorksheetFunction.CountIf(Feuil3.Range("H" & 2, "H" & i), _
Feuil3.Cells(i, 8).Value)
If x = 1 Then
Me.ComboBox1.AddItem Feuil3.Cells(i, 8).Value
End If
Next i
Dim cat() As String

Dim h As Integer
h = 0
'determine  categories number
For i = 2 To Feuil3.Range("E1").End(xlDown).Offset(1, 0).Row
x = Application.WorksheetFunction.CountIf(Feuil3.Range("E" & 2, "E" & i), _
Feuil3.Cells(i, 5).Value)

If x = 1 Then
h = h + 1
End If
Next i
'insert categories to array
ReDim cat(0 To h - 1) As String

Dim m As Integer
m = 0
For i = 2 To Feuil3.Range("E1").End(xlDown).Offset(1, 0).Row
x = Application.WorksheetFunction.CountIf(Feuil3.Range("E" & 2, "E" & i), _
Feuil3.Cells(i, 5).Value)
If x = 1 Then
cat(m) = Feuil3.Cells(i, 5).Value
m = m + 1
End If
Next i
MsgBox (cat(0))


End Sub
...