循環已經工作的代碼來簡化其

我想這個循環代碼有兩個單元步驟，直到我得到AT44。有沒有可能幫助我。我需要在細胞16-18-20等運行......直到44循環已經工作的代碼來簡化其

基本上，我有在列IF函數AT，告訴我的宏來清除列AB的內容並上了鎖或如果爲false，則解鎖它。

If Range("AT16") = "Vrai" Then 
Range("AB16").ClearContents 
Range("AB16").Locked = True 
Else: 
Range("AB16").Locked = False 
End If

非常感謝！

來源

2017-07-11 Francis Deshaies

只需使用一個for循環與第4行，等等第2行，4步驟2

Sub test() 
Dim i As Integer 

For i = 2 To 64 Step 2 
    Range("A" & i).Value = i 
Next i 

End Sub

將輸出2上的activesheet。

你的情況：

For i = 16 to 44 step 2 
    If Range("AT" & i) = "Vrai" Then 
     Range("AB" & i).ClearContents 
     Range("AB" & i).Locked = True 
    Else 
     Range("AB" & i).Locked = False 
    End If 
Next i

來源

2017-07-11 15:06:14

謝謝！如果我能理解它是如何工作的，）！ –

閱讀[此]（http://www.excelfunctions.net/VBA-Loops.html）爲一個非常基本的前奏。 –

循環已經工作的代碼來簡化其

回答

相關問題