|
▼kanabun さん:
>▼Zenji さん: こんにちは〜
>
>> 以下のようにコードを作成しました
>
>回答でなくてすみませんが、
>このコードはどこに書かれていますか?
> 標準モジュール?
標準モジュールに書いています
>変数F_Name はどこで値を代入されてますか?
F_Name="集計表.xls" としています
>変数Sheet1 は Sheet1オブジェクトというのがあるから、まずいのでは?
すいませんでした Sheet1は変数ではなく シート名でした
よろしくお願いします
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
|
|