Sub hilang()
ActiveSheet.Shapes(“k1”).Visible = False
ActiveSheet.Shapes(“k2”).Visible = False
ActiveSheet.Shapes(“k3”).Visible = False
ActiveSheet.Shapes(“k4”).Visible = False
ActiveSheet.Shapes(“k5”).Visible = False
ActiveSheet.Shapes(“k6”).Visible = False
ActiveSheet.Shapes(“k7”).Visible = False
ActiveSheet.Shapes(“k8”).Visible = False
ActiveSheet.Shapes(“k11”).Visible = True
ActiveSheet.Shapes(“k12”).Visible = True
ActiveSheet.Shapes(“k13”).Visible = True
ActiveSheet.Shapes(“k14”).Visible = True
ActiveSheet.Shapes(“k15”).Visible = True
ActiveSheet.Shapes(“k16”).Visible = True
ActiveSheet.Shapes(“k17”).Visible = True
ActiveSheet.Shapes(“k18”).Visible = True
End Sub
Sub muncul()
ActiveSheet.Shapes(“k4”).Visible = True
ActiveSheet.Shapes(“k11”).Visible = False
End Sub
Sub muncul2()
ActiveSheet.Shapes(“k3”).Visible = True
ActiveSheet.Shapes(“k12”).Visible = False
End Sub
Sub muncul3()
ActiveSheet.Shapes(“k2”).Visible = True
ActiveSheet.Shapes(“k13”).Visible = False
End Sub
Sub muncul4()
ActiveSheet.Shapes(“k1”).Visible = True
ActiveSheet.Shapes(“k14”).Visible = False
End Sub
Sub muncul5()
ActiveSheet.Shapes(“k8”).Visible = True
ActiveSheet.Shapes(“k15”).Visible = False
End Sub
Sub muncul6()
ActiveSheet.Shapes(“k7”).Visible = True
ActiveSheet.Shapes(“k16”).Visible = False
End Sub
Sub muncul7()
ActiveSheet.Shapes(“k6”).Visible = True
ActiveSheet.Shapes(“k17”).Visible = False
End Sub
Sub muncul8()
ActiveSheet.Shapes(“k5”).Visible = True
ActiveSheet.Shapes(“k18”).Visible = False
End Sub
Sub hilang2()
ActiveSheet.Shapes(“ku1”).Visible = False
ActiveSheet.Shapes(“ku2”).Visible = False
ActiveSheet.Shapes(“ku3”).Visible = False
ActiveSheet.Shapes(“ku4”).Visible = False
ActiveSheet.Shapes(“ku5”).Visible = False
ActiveSheet.Shapes(“ku6”).Visible = False
ActiveSheet.Shapes(“ku7”).Visible = False
ActiveSheet.Shapes(“ku8”).Visible = False
ActiveSheet.Shapes(“ku9”).Visible = False
ActiveSheet.Shapes(“ku10”).Visible = False
ActiveSheet.Shapes(“ku11”).Visible = False
ActiveSheet.Shapes(“ku12”).Visible = False
ActiveSheet.Shapes(“ku13”).Visible = False
ActiveSheet.Shapes(“ku14”).Visible = False
ActiveSheet.Shapes(“ku15”).Visible = False
ActiveSheet.Shapes(“ku16”).Visible = False
ActiveSheet.Shapes(“ku17”).Visible = False
ActiveSheet.Shapes(“ku18”).Visible = False
ActiveSheet.Shapes(“ku19”).Visible = False
ActiveSheet.Shapes(“ku20”).Visible = False
ActiveSheet.Shapes(“ku21”).Visible = False
ActiveSheet.Shapes(“ku22”).Visible = False
ActiveSheet.Shapes(“ku23”).Visible = False
ActiveSheet.Shapes(“ku24”).Visible = False
ActiveSheet.Shapes(“ku25”).Visible = False
ActiveSheet.Shapes(“ku26”).Visible = False
ActiveSheet.Shapes(“ku27”).Visible = False
ActiveSheet.Shapes(“ku28”).Visible = True
ActiveSheet.Shapes(“ku29”).Visible = True
ActiveSheet.Shapes(“ku30”).Visible = True
ActiveSheet.Shapes(“ku31”).Visible = True
ActiveSheet.Shapes(“ku32”).Visible = True
ActiveSheet.Shapes(“ku33”).Visible = True
ActiveSheet.Shapes(“ku34”).Visible = True
ActiveSheet.Shapes(“ku35”).Visible = True
ActiveSheet.Shapes(“ku36”).Visible = True
ActiveSheet.Shapes(“ku37”).Visible = True
ActiveSheet.Shapes(“ku38”).Visible = True
ActiveSheet.Shapes(“ku39”).Visible = True
ActiveSheet.Shapes(“ku40”).Visible = True
ActiveSheet.Shapes(“ku41”).Visible = True
ActiveSheet.Shapes(“ku42”).Visible = True
ActiveSheet.Shapes(“ku43”).Visible = True
ActiveSheet.Shapes(“ku44”).Visible = True
ActiveSheet.Shapes(“ku45”).Visible = True
ActiveSheet.Shapes(“ku46”).Visible = True
ActiveSheet.Shapes(“ku47”).Visible = True
ActiveSheet.Shapes(“ku48”).Visible = True
ActiveSheet.Shapes(“ku49”).Visible = True
ActiveSheet.Shapes(“ku50”).Visible = True
ActiveSheet.Shapes(“ku51”).Visible = True
ActiveSheet.Shapes(“ku52”).Visible = True
ActiveSheet.Shapes(“ku53”).Visible = True
ActiveSheet.Shapes(“ku54”).Visible = True
End Sub
Sub munculk1()
ActiveSheet.Shapes(“ku1”).Visible = True
ActiveSheet.Shapes(“ku28”).Visible = False
End Sub
Sub munculk2()
ActiveSheet.Shapes(“ku2”).Visible = True
ActiveSheet.Shapes(“ku29”).Visible = False
End Sub
Sub munculk3()
ActiveSheet.Shapes(“ku3”).Visible = True
ActiveSheet.Shapes(“ku30”).Visible = False
End Sub
Sub munculk4()
ActiveSheet.Shapes(“ku4”).Visible = True
ActiveSheet.Shapes(“ku31”).Visible = False
End Sub
Sub munculk5()
ActiveSheet.Shapes(“ku5”).Visible = True
ActiveSheet.Shapes(“ku32”).Visible = False
End Sub
Sub munculk6()
ActiveSheet.Shapes(“ku6”).Visible = True
ActiveSheet.Shapes(“ku33”).Visible = False
End Sub
Sub munculk7()
ActiveSheet.Shapes(“ku7”).Visible = True
ActiveSheet.Shapes(“ku34”).Visible = False
End Sub
Sub munculk8()
ActiveSheet.Shapes(“ku8”).Visible = True
ActiveSheet.Shapes(“ku35”).Visible = False
End Sub
Sub munculk9()
ActiveSheet.Shapes(“ku9”).Visible = True
ActiveSheet.Shapes(“ku36”).Visible = False
End Sub
Sub munculk10()
ActiveSheet.Shapes(“ku10”).Visible = True
ActiveSheet.Shapes(“ku37”).Visible = False
End Sub
Sub munculk11()
ActiveSheet.Shapes(“ku11”).Visible = True
ActiveSheet.Shapes(“ku38”).Visible = False
End Sub
Sub munculk12()
ActiveSheet.Shapes(“ku12”).Visible = True
ActiveSheet.Shapes(“ku39”).Visible = False
End Sub
Sub munculk13()
ActiveSheet.Shapes(“ku13”).Visible = True
ActiveSheet.Shapes(“ku40”).Visible = False
End Sub
Sub munculk14()
ActiveSheet.Shapes(“ku14”).Visible = True
ActiveSheet.Shapes(“ku41”).Visible = False
End Sub
Sub munculk15()
ActiveSheet.Shapes(“ku15”).Visible = True
ActiveSheet.Shapes(“ku42”).Visible = False
End Sub
Sub munculk16()
ActiveSheet.Shapes(“ku16”).Visible = True
ActiveSheet.Shapes(“ku43”).Visible = False
End Sub

Sub munculk17()
ActiveSheet.Shapes(“ku17”).Visible = True
ActiveSheet.Shapes(“ku44”).Visible = False
End Sub

Sub munculk18()
ActiveSheet.Shapes(“ku18”).Visible = True
ActiveSheet.Shapes(“ku45”).Visible = False
End Sub

Sub munculk19()
ActiveSheet.Shapes(“ku19”).Visible = True
ActiveSheet.Shapes(“ku46”).Visible = False
End Sub

Sub munculk20()
ActiveSheet.Shapes(“ku20”).Visible = True
ActiveSheet.Shapes(“ku47”).Visible = False
End Sub
Sub munculk21()
ActiveSheet.Shapes(“ku21”).Visible = True
ActiveSheet.Shapes(“ku48”).Visible = False
End Sub
Sub munculk22()
ActiveSheet.Shapes(“ku22”).Visible = True
ActiveSheet.Shapes(“ku49”).Visible = False
End Sub
Sub munculk23()
ActiveSheet.Shapes(“ku23”).Visible = True
ActiveSheet.Shapes(“ku50”).Visible = False
End Sub
Sub munculk24()
ActiveSheet.Shapes(“ku24”).Visible = True
ActiveSheet.Shapes(“ku51”).Visible = False
End Sub
Sub munculk25()
ActiveSheet.Shapes(“ku25”).Visible = True
ActiveSheet.Shapes(“ku52”).Visible = False
End Sub
Sub munculk26()
ActiveSheet.Shapes(“ku26”).Visible = True
ActiveSheet.Shapes(“ku53”).Visible = False
End Sub
Sub munculk27()
ActiveSheet.Shapes(“ku27”).Visible = True
ActiveSheet.Shapes(“ku54”).Visible = False
End Sub
Sub hilang3()
ActiveSheet.Shapes(“pe1”).Visible = False
ActiveSheet.Shapes(“pe2”).Visible = False
ActiveSheet.Shapes(“pe3”).Visible = False
ActiveSheet.Shapes(“pe4”).Visible = False
ActiveSheet.Shapes(“pe13”).Visible = False
ActiveSheet.Shapes(“pe15”).Visible = False
ActiveSheet.Shapes(“pe6”).Visible = False
ActiveSheet.Shapes(“g1”).Visible = False
ActiveSheet.Shapes(“pe7”).Visible = True
ActiveSheet.Shapes(“pe8”).Visible = True
ActiveSheet.Shapes(“pe9”).Visible = True
ActiveSheet.Shapes(“pe10”).Visible = True
ActiveSheet.Shapes(“pe11”).Visible = True
ActiveSheet.Shapes(“pe14”).Visible = True
End Sub
Sub muncul28()
ActiveSheet.Shapes(“pe1”).Visible = True
ActiveSheet.Shapes(“g1”).Visible = True
ActiveSheet.Shapes(“pe8”).Visible = False
ActiveSheet.Shapes(“pe10”).Visible = False
ActiveSheet.Shapes(“pe13”).Visible = True
End Sub
Sub muncul29()
ActiveSheet.Shapes(“pe3”).Visible = True
ActiveSheet.Shapes(“g1”).Visible = True
ActiveSheet.Shapes(“pe7”).Visible = False
End Sub
Sub muncul30()
ActiveSheet.Shapes(“pe4”).Visible = True
ActiveSheet.Shapes(“pe9”).Visible = False
End Sub
Sub muncul31()
ActiveSheet.Shapes(“pe5”).Visible = True
ActiveSheet.Shapes(“pe10”).Visible = False
End Sub
Sub muncul32()
ActiveSheet.Shapes(“pe6”).Visible = True
ActiveSheet.Shapes(“pe11”).Visible = False
End Sub
Sub muncul33()
ActiveSheet.Shapes(“pe15”).Visible = True
ActiveSheet.Shapes(“pe13”).Visible = False
End Sub
Sub muncul34()
ActiveSheet.Shapes(“a22”).Visible = True
ActiveSheet.Shapes(“a33”).Visible = True
ActiveSheet.Shapes(“a44”).Visible = True
ActiveSheet.Shapes(“a2”).Visible = False
ActiveSheet.Shapes(“a4”).Visible = False
ActiveSheet.Shapes(“a3”).Visible = False
End Sub
Sub hilang4()
ActiveSheet.Shapes(“a22”).Visible = False
ActiveSheet.Shapes(“a33”).Visible = False
ActiveSheet.Shapes(“a333”).Visible = False
ActiveSheet.Shapes(“a44”).Visible = False
ActiveSheet.Shapes(“a444”).Visible = False
ActiveSheet.Shapes(“a55”).Visible = False
ActiveSheet.Shapes(“a66”).Visible = False
ActiveSheet.Shapes(“a7”).Visible = False
ActiveSheet.Shapes(“a1”).Visible = True
ActiveSheet.Shapes(“a2”).Visible = True
ActiveSheet.Shapes(“a3”).Visible = True
ActiveSheet.Shapes(“a4”).Visible = True
ActiveSheet.Shapes(“a5”).Visible = True
ActiveSheet.Shapes(“a6”).Visible = True
End Sub
Sub muncul35()
ActiveSheet.Shapes(“a55”).Visible = True
ActiveSheet.Shapes(“a5”).Visible = False
End Sub
Sub muncul36()
ActiveSheet.Shapes(“a333”).Visible = True
ActiveSheet.Shapes(“a33”).Visible = False
End Sub
Sub muncul37()
ActiveSheet.Shapes(“a66”).Visible = True
ActiveSheet.Shapes(“a6”).Visible = False
End Sub
Sub muncul38()
ActiveSheet.Shapes(“a444”).Visible = True
ActiveSheet.Shapes(“a7”).Visible = True
ActiveSheet.Shapes(“a44”).Visible = False
End Sub
Sub kesimpulan()
ActiveSheet.Shapes(“kes2”).Visible = True
ActiveSheet.Shapes(“kes1”).Visible = False
End Sub
Sub kesimpulan2()
ActiveSheet.Shapes(“kes2”).Visible = False
ActiveSheet.Shapes(“kes1″).Visible = True
End Sub

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Kubus_14510197_A2_Wala.docx”]