Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13134 / 76734 ←次へ | 前へ→

【69108】Re:コンボボックス1の結果によって、次のコンボボックスの参照範囲を変えたい
お礼  なるち  - 11/5/17(火) 16:17 -

引用なし
パスワード
   出来ました。
ありがとうございました。

参考までに、下記へ記述を添付します。
refシートのAA1へ、コンボボックスで選択されたリストが入力されています。


Private Sub ComboBox1_Change()

  Sheets("ref").Select
  Selection.Value = ComboBox1


''houkokuを宣言
  Dim houkoku As String
      houkoku = Worksheets("ref").Range("AA1").Value


''項目1を選択した場合
  If houkoku = "項目1" Then
  
  Dim lRow As Long
    With Worksheets("ref")
      lRow = .Range("A" & Rows.Count).End(xlUp).Row
    End With
    With ComboBox2
      .ColumnCount = 3
      .ColumnWidths = "50;50;50"
      .RowSource = "ref!A2:A" & lRow
    End With
  
''項目2を選択した場合
  ElseIf houkoku = "項目2" Then
  
  Dim lRow2 As Long
    With Worksheets("ref")
      lRow2 = .Range("B" & Rows.Count).End(xlUp).Row
    End With
    With ComboBox2
      .ColumnCount = 3
      .ColumnWidths = "50;50;50"
      .RowSource = "ref!B2:B" & lRow2
    End With
    
  End If
6 hits

【69105】コンボボックス1の結果によって、次のコンボボックスの参照範囲を変えたい なるち 11/5/17(火) 15:21 質問
【69106】Re:コンボボックス1の結果によって、次の... Jaka 11/5/17(火) 15:43 発言
【69107】Re:コンボボックス1の結果によって、次の... なるち 11/5/17(火) 15:53 発言
【69108】Re:コンボボックス1の結果によって、次の... なるち 11/5/17(火) 16:17 お礼

13134 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free