Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9711 / 13657 ﾂﾘｰ

←次へ　｜　前へ→

▼

【25769】オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入れたい ひでお 05/6/14(火) 5:53

【25770】Re:オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入れ... Nossori 05/6/14(火) 6:44

【25922】Re:オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入れ... ひでお 05/6/17(金) 22:03

【25932】Re:オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入れ... Nossori 05/6/18(土) 13:43


	【25769】オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入れ...

ひでお - 05/6/14(火) 5:53 -


	引用なし

	パスワード

例えば２００行あるとして、それぞれセルには○、×と入力されていた場合に
オートフィルタをかけると、○が入っている行を抽出してくれるのですが、
その作業をコマンドボタンに入れたい場合、どのようなコードを組めばよいのでしょうか？


	【25770】Re:オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入...

Nossori - 05/6/14(火) 6:44 -


	引用なし

	パスワード

▼ひでおさん：
おはようございます･･･

Private Sub CommandButton1_Click()
'○と×の絞込み･･･５列目とすると

Range("A5").Select

If OptionButton1.Value = True Then
　 Selection.AutoFilter field:=5, Criteria1:="○"
　 Unload UserForm1
End If

End Sub

私はこのような感じでしていますが･･･
一度試してみてください。


	【25922】Re:オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入...

ひでお - 05/6/17(金) 22:03 -


	引用なし

	パスワード

返信ありがとうございます。
でも、やってみましたがうまくいきません。
えーと、1つの表があるとして、AからE列には項目が入っており
　件名　状況　内容　連絡先　処理内容　処理済ｵｱ未処理
1　　　　　　　　　　　　　　　　　　　　　　○
2　　　　　　　　　　　　　　　　　　　　　　空白
3
4
5
6
7
このような表になっていまして、オートフィルタをかけて
処理済ｵｱ未処理を選ぶと、空白　○　すべて　トップテン
等がでてくるのですが、○を選べば処理済列が、空白を選べば
未処理列がそれぞれ検索できます。
この作業を　コマンドボタンを押すと、未処理列が検索されたり、
または、処理済みが検索されるといった事は、VBAにて可能なのでしょうか


	【25932】Re:オートフィルタの検索をｺﾏﾝﾄﾞﾎﾞﾀﾝに入...

Nossori - 05/6/18(土) 13:43 -


	引用なし

	パスワード

▼ひでおさん：

optionbuttonを３ケ作ってください

Private Sub CommandButton1_Click()

'○と×の絞込みと全て表示･･･５列目とすると

Range("E1").Select

If OptionButton1.Value = True Then
　 Selection.AutoFilter field:=1, Criteria1:="○"
　 Unload UserForm1
End If

If OptionButton2.Value = True Then
　 Selection.AutoFilter field:=1, Criteria1:="×"
　 Unload UserForm1
End If

If OptionButton3.Value = True Then
　 Selection.AutoFilter
　 Unload UserForm1
End If

End Sub


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9711 / 13657 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free