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