maaf mau tanya, kalau kode dibawah kira-kira bisa disederhanakan ngga?
Sub TidakNol()
If Nz(LA11) = 0 Then
RA11.Locked = True
Else
RA11.Locked = False
End If
If Nz(LA12) = 0 Then
RA12.Locked = True
Else
RA12.Locked = False
End If
If Nz(LA13) = 0 Then
RA13.Locked = True
Else
RA13.Locked = False
End If
If Nz(LA14) = 0 Then
RA14.Locked = True
Else
RA14.Locked = False
End If
If Nz(LA15) = 0 Then
RA15.Locked = True
Else
RA15.Locked = False
End If
If Nz(LA16) = 0 Then
RA16.Locked = True
Else
RA16.Locked = False
End If
If Nz(LA17) = 0 Then
RA17.Locked = True
Else
RA17.Locked = False
End If
If Nz(LA18) = 0 Then
RA18.Locked = True
Else
RA18.Locked = False
End If
If Nz(LA19) = 0 Then
RA19.Locked = True
Else
RA19.Locked = False
End If
If Nz(LB21) = 0 Then
RB21.Locked = True
Else
RB21.Locked = False
End If
If Nz(LB22) = 0 Then
RB22.Locked = True
Else
RB22.Locked = False
End If
If Nz(LB23) = 0 Then
RB23.Locked = True
Else
RB23.Locked = False
End If
If Nz(LB24) = 0 Then
RB24.Locked = True
Else
RB24.Locked = False
End If
If Nz(LB25) = 0 Then
RB25.Locked = True
Else
RB25.Locked = False
End If
If Nz(LD41) = 0 Then
RD41.Locked = True
Else
RD41.Locked = False
End If
If Nz(LD42) = 0 Then
RD42.Locked = True
Else
RD42.Locked = False
End If
If Nz(LD43) = 0 Then
RD43.Locked = True
Else
RD43.Locked = False
End If
If Nz(LD44) = 0 Then
RD44.Locked = True
Else
RD44.Locked = False
End If
End Sub
