Excel VBA質問箱 IV

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

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


58863 / 76732 ←次へ | 前へ→

【22591】Re:コンボボックスについて
回答  IROC  - 05/2/24(木) 14:35 -

引用なし
パスワード
   サンプルを載せておきますので、参考にして下さい。


Private Sub ComboBox1_Change()
Dim r As Range
  
  ComboBox2.Clear
  
With Worksheets("Sheet1")
  
  .AutoFilterMode = False
  .Columns("A:D").AutoFilter Field:=3, Criteria1:=ComboBox1.Value
  
  For Each r In .Range("D2:D" & .Range("D65536").End(xlUp).Row). _
          SpecialCells(xlCellTypeVisible)
    ComboBox2.AddItem r.Value
  Next r

  .AutoFilterMode = False
End With
End Sub


Private Sub UserForm_Initialize()
Dim i As Long
With Worksheets("Sheet1")
  For i = 2 To .Range("A65536").End(xlUp).Row
    ComboBox1.AddItem .Cells(i, 3).Value
    ComboBox2.AddItem .Cells(i, 4).Value
  Next i
End With
End Sub

2 hits

【22581】コンボボックスについて たかし 05/2/24(木) 13:01 質問
【22583】Re:コンボボックスについて IROC 05/2/24(木) 13:11 回答
【22588】Re:コンボボックスについて たかし 05/2/24(木) 13:53 質問
【22590】Re:コンボボックスについて IROC 05/2/24(木) 14:24 回答
【22591】Re:コンボボックスについて IROC 05/2/24(木) 14:35 回答
【22593】Re:コンボボックスについて たかし 05/2/24(木) 14:55 お礼
【22586】Re:コンボボックスについて Jaka 05/2/24(木) 13:24 回答

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