kalo If - end if nya di hilangin gimana ? misalnya RA11.locked = (Nz(LA11,0)<1)
begitu seterusnya On Tue, Mar 9, 2010 at 11:27 AM, him mah <[email protected]> wrote: > > > 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 > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com http://facebook.com/djmumun ---------------------------------------------
