Excel VBA質問箱 IV

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

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


58576 / 76732 ←次へ | 前へ→

【22881】Re:リストボックスの表示方法
回答  G-Luck  - 05/3/5(土) 18:08 -

引用なし
パスワード
   ▼たかし さん:

チェンジイベント上では、オートフィルターがかけれないようです。

'Private Sub oldComboBox1_Change()
Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 Dim CT2 As Range, Cel As Range, LB2tb() As String
 Worksheets("データ1").Activate
 If ActiveSheet.AutoFilterMode Then
   ActiveSheet.AutoFilterMode = False
 End If
 Ltw = ComboBox1.List(ComboBox1.ListIndex)
' Range("B1").AutoFilter field:=3, Criteria1:=Ltw
' Range("B1").AutoFilter field:=1, Criteria1:=Ltw
' CE = ActiveSheet.Range("C65536").End(xlUp).Row
 CE = ActiveSheet.Range("A65536").End(xlUp).Row
' Set CT2 = Range("U2:U" & CE).SpecialCells(xlCellTypeVisible)
 Set CT2 = Range("B2:D" & CE).SpecialCells(xlCellTypeVisible)
   ListBox1.Clear
   ListBox1.ColumnCount = 3 '追加
'   cnt = 0
'   For Each Cel In CT2
'     On Error Resume Next
'     mt = Application.Match(Cel, ListBox1.List, 0)
'     If IsError(mt) Or mt = Empty Then
'      cnt = cnt + 1
'      ReDim Preserve LB2tb(1 To cnt)
'      LB2tb(cnt) = Cel
'     End If
'     ListBox1.List = LB2tb
'     Err.Clear
'     On Error GoTo 0
'   Next
  ListBox1.List = CT2.Value
   Set CT2 = Nothing
'   Erase LB2tb
'   Application.ScreenUpdating = True
' Worksheets("読み出し").Activate

End Sub

2 hits

【22853】リストボックスの表示方法 たかし 05/3/5(土) 0:52 質問
【22871】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 13:42 発言
【22879】Re:リストボックスの表示方法 たかし 05/3/5(土) 15:04 発言
【22881】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 18:08 回答
【22882】Re:リストボックスの表示方法 たかし 05/3/5(土) 19:38 お礼
【22883】Re:リストボックスの表示方法 たかし 05/3/5(土) 20:57 質問
【22884】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 21:10 発言
【22888】Re:リストボックスの表示方法 たかし 05/3/6(日) 11:23 質問
【22889】Re:リストボックスの表示方法 G-Luck 05/3/6(日) 11:47 発言
【22893】Re:リストボックスの表示方法 たかし 05/3/6(日) 13:21 質問
【22895】Re:リストボックスの表示方法 G-Luck 05/3/6(日) 14:57 発言
【22896】Re:リストボックスの表示方法 たかし 05/3/6(日) 16:19 質問

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