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
Last-modified: 2014-03-09 (日) 16:48:03 (2782d)