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
'セルの入力内容を特定列ごとに順に右に削除する(2列目、5列目、8列目、11列目、、、のルールで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