ExcelVBAでマルチページでユーザーフォームを作っています。
マルチページを作製しているシートのシート2とシート3にそれぞれコンボボックスに当てはめる値を入れてあります。
コンボボックス1には「シート2のA2から最後」まで。
コンボボックス2には「シート3のA1から最後」まで。
というように設定してあります。
コードの記述としてはこんな感じでしました。
Private Sub ComboBox1_DropButtonClick()
Dim i As Integer
Dim lastRow As Integer
lastRow = Cells(Row.Count, 1).End(xlUp).Row
With ComboBox1
For i = 2 To lastRow
If ComboBox1 = "" Then
.AddItem Worksheets("Sheet2").Cells(i, 1).Value
End If
Next i
End With
End Sub
これはコンボボックス1の場合なのですが、2は一部を変えています。
コンボボックスを選択時にシートに記載してある内容は表示されるのですが、行が多い方に引っ張られる感じになっています。
コンボボックス1の方は今のところ30行ちょっとなので、その分のデータが表示されます。コンボボックス2の方は今のところ10行程度なので、全てを表示した後に空白が表示されています。見た感じで、シート3のデータと空白分を合わせて、シート2つまりは、コンボボックス1と同じ分だけ表示しようとしているみたいなのです。
よく分からないエラーなのですが、これを回避する方法はありますでしょうか？
お世話になっております。
あるフォルダに複数のフォルダが格納されており、更にそのフォルダの中にあるファイルの情報を取得するプログラムを書いたのですが、実行すると下記のようなエラーとなってしまいます。
■エラー
プロシージャの呼び出し、または引数が不正です
下から3行目、「buf = Dir()」が問題であることはわかるのですが、
何が問題でどのように解決したらいいかわかりません。
どなたかご教授の程よろしくお願い致します(>_<)
------------------------------------------------------------------------
Sub test()
Dim buf As String
Dim fName As String
Dim msg As String
buf = Dir("*.*", vbDirectory)
Do While buf <> ""
If GetAttr(buf) And vbDirectory Then
If buf <> "." And buf <> ".." Then
fName = Dir(CurDir & "\" & buf & "\" & "*.jpg")
Do While fName <> ""
cnt = cnt + 1
Cells(cnt, 1) = buf
Cells(cnt, 2) = fName
msg = msg & buf & "\" & fName & vbCrLf
fName = Dir()
Loop
MsgBox msg
End If
End If
buf = Dir()
Loop
End Sub
------------------------------------------------------------------------
これが実現できないと細かい作業を毎日繰り返す事となり、
かなり業務不可が高いです。。
繰り返しになってしまいますが、どなたかご回答よろしくお願い致します。
