回答編集履歴

1

修正

2019/02/22 04:08

投稿

jawa
jawa

スコア3020

answer CHANGED
@@ -90,17 +90,17 @@
90
90
  'B列:セルAより「1つ右のセル」
91
91
  Set cellB = cellA.Offset(0, 1)
92
92
  'C~F列:セルAより「2つ右のセル」~「5つ右のセル」
93
- Set cellCF = Range(cellA.Offset(0, 2), cellA.Offset(0, 5))
93
+ Set rngCF = Range(cellA.Offset(0, 2), cellA.Offset(0, 5))
94
94
 
95
95
  'セルAが空欄なら未承認、それ以外は承認済み
96
96
  If cellA.Value = "" Then
97
97
  '未承認ならセルは変更可能
98
98
  cellB.Value = "Unlock"
99
- cellCF.Locked = False
99
+ rngCF.Locked = False
100
100
  Else
101
101
  '承認済みならセルをロック
102
102
  cellB.Value = "Lock"
103
- cellCF.Locked = True
103
+ rngCF.Locked = True
104
104
  End If
105
105
  Next
106
106