haru0805のプロフィール

システム抽出画面(Excel)にO23の場所から28行づつ"K"を入れていくというのです が、 数字の合計を取る場所で、シートの保護が掛かっています シートの保護が掛かっていれば次の処理(j+56)などをさせるようには どのようにすればいいでしょうか？(↓のはずっとKを入れていくだけです) Application.WindowState = xlMaximized j = 23 Do Until j > 10000000 Range("O" & j).Select ActiveCell.FormulaR1C1 = "" ActiveCell.FormulaR1C1 = "k" j = j + 28 Loop イメージです↓ ---------------------------------- （O,23） k入力 ---------------------------------- (O,23+28) k入力 ---------------------------------- k　←　保護されていてエラー ---------------------------------- k　←　ここも入れたいけど処理ストップ ----------------------------------