Excel VBA質問箱 IV

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

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


2267 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

【69059】オートフィルターについて
質問  しんじ  - 11/5/13(金) 12:00 -

引用なし
パスワード
   初心者ですが、動きません。

よろしくお願いします

Private Sub ComboBox1_Change()

  Dim 検索 As Variant
  
  検索 = ComboBox1.Text
  
  With Worksheets("保温")
  
    .Range("A1").AutoFilter Field:=2, Criteria1:=検索
      
  End With


End Sub

【69060】Re:オートフィルターについて
発言  neptune  - 11/5/13(金) 12:26 -

引用なし
パスワード
   ▼しんじ さん:
>初心者ですが、動きません。
動きませんではわからんですよ。エラーが出るならその番号、コメントとか
思い通りに動かなければ期待する動きを書くとかが情報として必要です。

>    .Range("A1").AutoFilter Field:=2, Criteria1:=検索
同じ事を手動でやってマクロの記録でコード化してそれと見比べてみてはどうですか?
helpも併せて見ましょう。

この状態で、怪しそうなのは
.Range("A1")
範囲指定はこれじゃまずそう。

【69062】Re:オートフィルターについて
質問  しんじ  - 11/5/13(金) 12:49 -

引用なし
パスワード
   すみません。
ユーザーホームのComboBoxで選んだ文字で、オートフィルターで検索をかけて
次のComboBoxのデータ(RowSourceに入れればいいかな?)にしたいですが
単純に、オートフィルター機能をユーザーフォーム上で同じ事をしたいと思ってます。
最終的に、複数条件を検索してデータと同じ値を、別にブックorシートに
転記予定です。
ユーザーフォームに組み込みしなかったら普通に動くのですが・・・
フィルター検索までは動きますがそこでエラーとなります。(そこで終わってくれればいいのですが終わらずエラー・・次に進めない・・)
長々とすみません

【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

【69064】Re:オートフィルターについて
お礼  しんじ  - 11/5/13(金) 14:43 -

引用なし
パスワード
   ありがとうございます。

どうしてか、簡単でうまく動かなかったので困ってました。

肉付けして、頑張ります。

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