|
ComboBoxに書く値を以下のようにコードを作成しました
この時読込む値が同じであればComboBoxに入れないようにしたい
のですが
ちなみに列の値は別途作成された表から取得しています
Set Ws = Workbooks(F_Name).Worksheets(Sheet1)
Ws.Activate
With Worksheets(Sheet1)
'LastRow=Noが書かれている最下行
LastLow = .Range("B7").CurrentRegion.Rows.Count
列 = 3
For i = 7 To LastLow
If Worksheets(Sheet1).Cells(i, 2) <> "No" _
And Worksheets(Sheet1).Cells(i, 2) <> "" Then
For j = 2 To 9
If Ws.Cells(i, 列) <> "" Then
UserForm1.Controls("ComboBox" & j).AddItem .Cells(i, 列)
End If
列 = 列 + 1
Next j
End If
列 = 3
Next i
End With
|
|