vba 忘備録
2019/09/04
'ウィンドウの最大化、最小化、標準（高速化2）
Application.WindowState = xlMaximized
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
'画面の動きを止める・画面を更新しない、更新する（高速化1）
Application.ScreenUpdating = False '更新しない
Application.ScreenUpdating = True '更新する
'シートの保護、保護解除、プロテクト
ActiveSheet.Protect
ActiveSheet.Unprotect
'セルの入力内容を特定列ごとに順に右に削除する（２列目、５列目、８列目、１１列目、、、のルールで300回繰り返す）
Dim zki As Long
Dim zkj As Long: zkj = -1
For zki = 1 To 300
zkj = zkj + 3
Range(Cells(3, zkj), Cells(502, zkj)).ClearContents 'ClearContentsは、セルの入力内容のに削除して、書式は維持する
Next