コンボボックス 連動 VBA 削除
| Message#2 2014年12月18日(木)15時22分 From: VBAマスター |
| >重複表示させずに、絞り込んでいく方法がうまくいきません。 ComboBoxのMatchFound プロパティを使えば良いでしょう Private Sub ComboBox1_Change() Dim Index As Integer Dim strBuf As String Dim セル範囲 As Range, 各セル As Range Index = ComboBox1.ListIndex strBuf = ComboBox1.List(Index) Worksheets(strBuf).Activate Application.Goto Reference:=Range("A1"), Scroll:=True ComboBox2.Clear With Worksheets(strBuf) Set セル範囲 = .Range("B4", .Cells(Rows.Count, "B").End(xlUp)) End With With Me.ComboBox2 For Each 各セル In セル範囲 .Text = 各セル.Value 'Textの値がリストに無ければTextの値を追加 If Not .MatchFound Then .AddItem 各セル.Value Next .Text = Empty '最後にTextに残る文字を消去 End With End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
