Excel VBA質問箱 IV

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

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


13183 / 76738 ←次へ | 前へ→

【69063】Re:オートフィルターについて
回答  neptune  - 11/5/13(金) 14:28 -

引用なし
パスワード
   ▼しんじ さん:
再現しました。

どうもrowsouseを使うとfilterをかけるとchangeイベントが2度おこる
ようですから、おかしな事になっているような気がします。
面倒なので追及はしてません。

AddItemを使ってみました。

新規Bookで
Sheet1の
A1にfield1 B2にfield2
A2:A11に1〜10、B2:B11に2〜11を入力

userformを新規作成、comboboxを配置
以下をコピペ
/////////////////////UserFormモジュール///////////////////
Option Explicit

Private Sub UserForm_Initialize()
  Dim i As Long
  With Me.ComboBox1
    For i = 1 To 11
      .AddItem i
    Next i
  End With
  
  With Worksheets("Sheet1")
    If .FilterMode = True Then
      .AutoFilterMode = False
    End If
  End With
End Sub

Private Sub ComboBox1_Change()
  Dim 検索 As Variant
  検索 = ComboBox1.Text
 
  With Worksheets("Sheet1")
    .Range("A1").AutoFilter Field:=2, Criteria1:=検索
  End With
End Sub
0 hits

【69059】オートフィルターについて しんじ 11/5/13(金) 12:00 質問
【69060】Re:オートフィルターについて neptune 11/5/13(金) 12:26 発言
【69062】Re:オートフィルターについて しんじ 11/5/13(金) 12:49 質問
【69063】Re:オートフィルターについて neptune 11/5/13(金) 14:28 回答
【69064】Re:オートフィルターについて しんじ 11/5/13(金) 14:43 お礼

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