Asalamualaikum Pak Ihyak; Mohon maaf, saya hanya memberi saran, keenam obyek yang akan anda sembunyikan, lebih baik diganti menjadi sebuah objek (sebuah tombol, atau sebuah activeX) yang dapat berubah namanya sesuai dengan kreteria yang diberikan. Jika mau belajar hal tersebut, coba intip di sini <http://b-excel.blogspot.com/2014/08/tombol-multi-guna.html>
Salam NangAgus On Sat, Jul 26, 2014 at 12:41 PM, Nang Agus [email protected] [belajar-excel] <[email protected]> wrote: > > > 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 >> > > >
