Excel VBA質問箱 IV

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

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


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

54078 / 76732

←次へ　｜　前へ→


	【27456】Re:列に入力されている文字列をみて、その文字列が入っている行を非表示にするには？

KK - 05/8/9(火) 19:43 -


	引用なし

	パスワード

りんさん、こんばんわ。
回答ありがとうございます。

Subの引数を使ってまとめることができるのですね。
勉強になりました。

ただ、
>Sub AllSHOW()
>　 RC_HIDE " " 'どちらも表示（半角スペースが入っていたらそこが消えますが）
>End Sub

これに関してなのですが、仮に半角スペースが入ってしまったときを考慮して、
確実に男性、女性が表示されるようにしたいです。

ちなみに、私は以下のように作っていますが、もっと簡潔にできますでしょうか？
=========================================================
Sub AllHiddenFalse() '男性、女性を表示する

　　Dim myRow As Integer
　　Dim rowEnd As Integer
　　Dim myCol As Integer
　　Dim colEnd As Integer
　　　　　
　　rowEnd = CInt(ActiveSheet.Range("A65536").End(xlUp).Row)
　　For myRow = 1 To rowEnd
　　　　Rows(myRow).Hidden = False
　　Next myRow
　　
　　colEnd = CInt(ActiveSheet.Range("IV65536").End(xlUp).Column)
　　For myCol = 1 To colEnd
　　　　Columns(myCol).Hidden = False
　　Next myCol

End Sub
=========================================================

>セル範囲の左上のセルに対して１列・・・とカウントされていくので、UsedRangeにA列を含まない可能性があるから、Ｃ列とは限らないのです。
実際に試してみました。
なるほどです。
理解しました。。

0 hits

▼

【27110】列に入力されている文字列をみて、その文字列が入っている行を非表示にする... KK 05/7/29(金) 9:31