Option Explicit
Sub C_Sample031()
    Dim myRng As Range
    Set myRng = Range("A1") '任意のセル
    myRng.EntireRow.Hidden = True '行の非表示
    myRng.EntireColumn.Hidden = True '列の非表示
    MsgBox "行列を非表示にしました。再表示します"
    myRng.EntireRow.Hidden = False '行の表示
    myRng.EntireColumn.Hidden = False '列の表示
    Set myRng = Nothing 'オブジェクトの解放
End Sub
トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS