|
りんさん、こんばんわ。
回答ありがとうございます。
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
=========================================================
>セル範囲の左上のセルに対して1列・・・とカウントされていくので、UsedRangeにA列を含まない可能性があるから、C列とは限らないのです。
実際に試してみました。
なるほどです。
理解しました。。
|
|