Excel VBA質問箱 IV

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

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


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

47500 / 76732

←次へ　｜　前へ→


	【34187】Re:サブルーチン等について

kobasan - 06/1/28(土) 0:15 -


	引用なし

	パスワード

▼陸遜さん今晩は。

>　Case1
>s_価格コピーペースト
>　Case2
>s_売り上げコピーペースト
>　Case3
>
>Case3のときに上記の二つを実行したいのですが、どうすればいいのかご教示お願いいたします。

　Case3
s_価格コピーペースト
s_売り上げコピーペースト

でできると思います。

>　また別件ですが、オートフィルタで３つ以上の条件で検索を実行するようなマクロは組むことが出来るでしょうか。orですと二つまでしか組めませんでした。どなたかご存知でしたら、合わせてよろしくお願いいたします。

オートフィルタについて。
AutoFilterは、Criteria1,Criteria2しかセットできないので、
AutoFilterを組み合わせて実現させました。試してみてください。

A列に
data1
a
b
c
ab
bc
ac
abc

とデータをセットして試してみてください。

Sub test()
　　Dim rng As Range, rng2 As Range
　　Cells(1, 1).AutoFilter Field:=1, Criteria1:="=a", Operator:=xlOr, _
　　　　　　　　　　　　　　　　　　 Criteria2:="=b"
　　Set rng = Range("A2:A100").SpecialCells(xlCellTypeVisible).Rows
　　'
　　Cells(1, 1).AutoFilter
　　Cells(1, 1).AutoFilter Field:=1, Criteria1:="=c"
　　Set rng2 = Range("A2:A100").SpecialCells(xlCellTypeVisible).Rows
　　'
　　Cells(1, 1).AutoFilter
　　Range("A2:A100").EntireRow.Hidden = True
　　Union(rng, rng2).EntireRow.Hidden = False
　　Cells(1, 1).AutoFilter
End Sub

2 hits

▼

【34182】サブルーチン等について 陸遜 06/1/27(金) 20:49