Excel VBA質問箱 IV

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

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


42840 / 76732 ←次へ | 前へ→

【38954】Re:データを参照して、絞り込んで行く方...
発言  ichinose  - 06/6/15(木) 10:45 -

引用なし
パスワード
   ▼RIKE さん:
おはようございます。
出かけてしまうので、以下でうまくいかなかったら、
どなたかお願いします。

>
>>Userform1のモジュールに
>>
>>'========================================================
>>Dim rng As Range 'リストデータのセル範囲
>>Dim ev As Boolean 'Changeイベントの有無フラグ True--発生可能 False---発生不可
>>'========================================================
>>Private Sub UserForm_Initialize()
>>  ComboBox1.Style = fmStyleDropDownCombo '←これは事前設定でよいです
   With Worksheets("sheet1")
    Set rng = .Range("b1", .Cells(.Rows.Count, "b").End(xlUp))
    End With


>>  ev = True
>>End Sub
>>'===============================================================
>>Private Sub ComboBox1_Change()
>>  Dim svtext As String 'コンボボックスのTextの内容の一時保存
   Dim r_add As String

>>  If ev = False Then Exit Sub
>>  With ComboBox1 '←適当な名前に変更すること
>>   svtext = .Text
>>   If .Text <> "" Then
>>     If rng.Count = 1 Then
>>      If rng.Value = "" Then
>>        .Clear
>>        Exit Sub
>>        End If
>>      End If
     r_add = rng.Address(, , , True)
     myvalue = Evaluate("transpose(if(mid(" & r_add & ",1," & Len(.Text) & ")=""" _
               & .Text & """," & r_add & ",""" & Chr(&HFF) & """))")

>>     If UCase(TypeName(myvalue)) <> UCase("variant()") Then
>>      myvalue = Array(myvalue)
>>      End If
>>     myvalue = Filter(myvalue, Chr(&HFF), False)
>>     '↑あり得ない文字を使用してフィルタをおこなう
>>     ev = False
>>     .Clear
>>     .List() = myvalue
>>     .Text = svtext
>>     ev = True
>>     If UBound(myvalue) > 0 Then
>>      .DropDown
>>      End If
>>   Else
>>     .Clear
>>     .Visible = False
>>     .Visible = True
>>     .SetFocus '↑ここは、こうしないと残像が残るので(Excel2000)
>>     End If
>>   End With
>>End Sub
>>
>絞り込むシートを"sheet1"のB列にするとしたらどうなるのでしょうか?


これで試してみてください。

3 hits

【25487】データを参照して、絞り込んで行く方法(?) 05/6/2(木) 0:36 質問
【25488】Re:データを参照して、絞り込んで行く方法... ichinose 05/6/2(木) 7:51 発言
【25515】Re:データを参照して、絞り込んで行く方法... 05/6/2(木) 19:25 お礼
【38952】Re:データを参照して、絞り込んで行く方... RIKE 06/6/15(木) 10:05 質問
【38954】Re:データを参照して、絞り込んで行く方... ichinose 06/6/15(木) 10:45 発言
【38955】Re:データを参照して、絞り込んで行く方... RIKE 06/6/15(木) 11:06 お礼

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