Asalamualaikum pak Ihyak,
Saya bukan master coba membantu ya...
Coba scriptnya diganti seperti di bawah ini:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim no As Integer
Dim myCell As Long
Dim myCell2 As String
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
myCell = Range("a1").Value
myCell2 = Range("a2").Value
For no = 1 To 4
ActiveSheet.Shapes.Range(Array("Rectangle " & no - 0)).Visible =
msoFalse
Next no
For no = 5 To 6
ActiveSheet.Shapes.Range(Array("Rectangle " & no + 2)).Visible =
msoFalse
Next no
If myCell2 = "ganjil" Then
ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 6)).Visible = msoTrue
End If
If myCell2 = "genap" And myCell > 7 Then
ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 1)).Visible = msoTrue
End If
If myCell2 = "genap" And myCell = 7 Then
ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 3)).Visible = msoTrue
End If
End If
End Sub
Semoga sesuai keinginan.
Wasalamualaikum
NangAgus
2014-07-26 10:28 GMT+07:00 [email protected] [belajar-excel] <
[email protected]>:
>
>
> Mr. Kid & para master sy udh coba buat tp hasilnya kok lucu ya? file
> terlampir
>
>
