レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

ガントチャート作成講座本編

マメコトさんの投稿

(投稿ID: 3996)

列数を直接非表示にできるのでは？と思い、下記のコードにしてみました。

Dim retu As Long
        For retu = 4 To cHida - 2
        wTo.Columns(retu).EntireColumn.Hidden = True
    Next

４から始めたのはD列から非表示だからです。
これも動きますから、（コードが少ない分）簡単だと思います。
どうでしょうか。

2018/07/03 06:05

小川慶一さんのコメント

(コメントID: 5549)

マメコトさん:

おもしろいですね。

その文脈で言うと、実は、以下のように書くことも可能です。

Sub hoge()
    Cells.EntireColumn.Hidden = False '初期化
    
    Columns("B").EntireColumn.Hidden = True
    
    Columns(4).EntireColumn.Hidden = True
    
    Range("F1").EntireColumn.Hidden = True
    
    Range("H3:J3").EntireColumn.Hidden = True

    Range(Range("L3"), Range("N3")).EntireColumn.Hidden = True

    Dim rFm As Range
    Dim rTo As Range
    
    Set rFm = Range("P3")
    Set rTo = Range("R3")

    Range(rFm, rTo).EntireColumn.Hidden = True
End Sub

ですので、以下のような応用例もありますね。

Sub fuga()
    Cells.EntireColumn.Hidden = False '初期化
    
    Dim cFm As Long
    Dim cTo As Long
    cFm = 3
    cTo = 9 '9に深い意味はありませんが
    
    Dim rFm As Range
    Dim rTo As Range
    
    Set rFm = Range("A3").Offset(, cFm)
    Set rTo = Range("A3").Offset(, cTo)

    Range(rFm, rTo).EntireColumn.Hidden = True
End Sub

さらにいろいろ研究してみてください☆

2018/07/04 20:43