Select Caseで条件で範囲を変更しようとしています。 TextBox2.Text = Worksheets(シート名).Range(事業部範囲, .Cells(行, 2)) この場合、シート名のRange("1:6")の範囲のときに、 コンボボックスのListIndex + 1の数字と同じ行の番号を持ってきたいのですが、 Cellsのところでエラーになります。 記述の仕方がまちがっているのでしょうか？ この後続くcase2、3は、Range("7:11")Range("12:15")などと下に下がっていきます。 ------------------------------- Private Sub ComboBox2_Click() シート名 = "事業部名" Worksheets(シート名).Activate Dim si As Integer With UserForm1 .ComboBox2.Text = "" si = .ComboBox2.ListIndex ' ComboBox2 の何番目が選択されたかを得る Select Case si Case 0 '- 0番が選択されていたらComboBox2 の内容 行 = ComboBox2.ListIndex + 1 'コンボボックスで選択された行 + 1 事業部範囲 = Range("1:6") TextBox2.Text = Worksheets(シート名).Range(事業部範囲, .Cells(行, 2)) ' Case 1 'Case 2 ' Case 3 End Select End With End Sub
↧