VBA Sayfadan geçirme ve doğruluğunu kontrol etme

Question

Çalışmak için bir döngü oluşturmaya çalışıyorum.

Gerçekleştirmem gereken şey, bir sayfanın üstesinden gelmek ve adresin tüm sütun örnekleri W sütununda GoTo end_nothing değerine sahipse, A sütununda W adresi bir değere sahipse, W sütununda bir değer varsa. Sadece bazı eşlemeler W sütunundaki verilere sahipse alt ile devam edin.

Kodumla yaşadığınız sorun, eşleştiği ilk girdinin, geri kalanı üzerinde döngü olmadan alttan çıkmasıdır.

Benim Kod:

Private Sub CommandButton3_Click() 
Dim add_WIR_check, lastRow_WIR As Long 
Dim address_Check As String: address_Check = sheets("Auto Checklist").cells(3, 2).value 

lastRow_WIR = sheets("Works Instruction Record").cells(Rows.count, "A").End(xlUp).Row 

***** Unprotect Sheet 

For add_WIR_check = 3 To lastRow_WIR 
If sheets("Works Instruction Record").cells(add_WIR_check, 1) = address_Check Then 
    If sheets("Works Instruction Record").cells(add_WIR_check, 23) <> "" Then 
     GoTo end_nothing 
    End If 
End If 
Next add_WIR_check 

***** Additional code here 

end_nothing: 
***** Protect sheet 
End Sub 

Answer 1

açıklandığı üzere VBA kod parçacığı iş mantığı ile uyumlu değil: Eğer aralıktaki tüm eşleşen satırlar arasında döngü öğrenmek için gereken Sütun tüm hücreler "W" ise değer içerir. Aşağıda gösterildiği gibi, yardımcı Boolean Var ok kullanılarak elde edilebilir: uygun satır "W", sütun tüm hücreler değerleri içeriyorsa

tamamlayan

Dim ok as boolean 
ok = True 
For add_WIR_check = 3 To lastRow_WIR 
If sheets("Works Instruction Record").cells(add_WIR_check, 1) = address_Check Then 
    If Not (sheets("Works Instruction Record").cells(add_WIR_check, 23) <> "") Then 
     ok = False 
End If 
End If 
Next add_WIR_check 

, var ok değeri gösterir.

Bu yardımcı olabilir umarım.