|
▼VBWASURETA さん:
そうですよね、changeではないかと思ったんですが、以前教えていただいたときにこのようになっていたのでいいのかと(^^;)
あとこれに基づき作り直してみました。でもif 区分.Value = Da(1,j) Then
のところのがインデックスの有効範囲内ではありませんのエラーになってしまいます。 ここで区分のComboboxで表示したものに基づき選択した列のリストを表示したいんです。どう表現したらいいのでしょうか?
'変数宣言セクション
Dim j As Integer
Dim i As Long
Dim Da As Variant
'区分表示
Private Sub UserForm_Initialize()
Me.区分.Clear
With Worksheets("品種")
Da = .Range("B1").CurrentRegion.Value
If (IsEmpty(Da)) Then
Exit Sub
End If
For j = 1 To UBound(Da, 2)
区分.AddItem Da(1, j)
Next j
End With
'品種名1
Me.ComboBox1.Clear
With Worksheets("品種")
If (IsEmpty(Da)) Then
Exit Sub
End If
If 区分.Value = Da(1, j) Then ←ここです!!
For j = 1 To UBound(Da, 2)
For i = 2 To .Cells(.Rows.Count, j).End(xlUp).Row
ComboBox1.AddItem Da(i, j)
Next i
Next j
End If
End With
End Sub
|
|