ExcelVBAコンボボックスの値の入力

質問

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と同じ分だけ表示しようとしているみたいなのです。

よく分からないエラーなのですが、これを回避する方法はありますでしょうか？

回答No.1

uruz · ベストアンサー

ComboBox1は巧く動いてComboBox2に問題が発生してるんですよね
問題の起きているComboBox2の方のコードを提示しないのはなぜでしょうか？

lastRow = Cells(Row.Count, 1).End(xlUp).Row

lastRowを得るのにWorksheetsを指定していないので現在Activeなシートの情報を得てしまいます。
情報を得るWorksheetsを指定しましょう。たぶんComboBox1とComboBox2で同じWorksheetからlastRow得てるのだと思います。

For～Nextループに入る前にComboBoxをクリアしましょう、そうしないとイベントが発生するごとにドンドン追加されていきます。

お礼

ありがとうございました。解決しました。