Materi Perkuliahan

Luas Permukaan Bola Menggunakan Kulit Jeruk (VBA EXCEL)

Dipublikasikan pada : 29 Januari 2019.

Sub jeruk()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
ActiveSheet.Shapes(“1”).Visible = msoFalse
ActiveSheet.Shapes(“2”).Visible = msoFalse
ActiveSheet.Shapes(“3”).Visible = msoFalse
ActiveSheet.Shapes(“4”).Visible = msoFalse
ActiveSheet.Shapes(“5”).Visible = msoFalse
ActiveSheet.Shapes(“6”).Visible = msoFalse
ActiveSheet.Shapes(“7”).Visible = msoFalse
ActiveSheet.Shapes(“8”).Visible = msoFalse
ActiveSheet.Shapes(“9”).Visible = msoFalse
ActiveSheet.Shapes(“10”).Visible = msoFalse
ActiveSheet.Shapes(“11”).Visible = msoFalse
ActiveSheet.Shapes(“12”).Visible = msoFalse
ActiveSheet.Shapes(“13”).Visible = msoFalse
ActiveSheet.Shapes(“14”).Visible = msoFalse
ActiveSheet.Shapes(“15”).Visible = msoFalse
ActiveSheet.Shapes(“16”).Visible = msoFalse
ActiveSheet.Shapes(“17”).Visible = msoFalse
ActiveSheet.Shapes(“18”).Visible = msoFalse
ActiveSheet.Shapes(“19”).Visible = msoFalse
ActiveSheet.Shapes(“20”).Visible = msoFalse
ActiveSheet.Shapes(“21”).Visible = msoFalse
ActiveSheet.Shapes(“22”).Visible = msoFalse
ActiveSheet.Shapes(“23”).Visible = msoFalse
ActiveSheet.Shapes(“24”).Visible = msoFalse
ActiveSheet.Shapes(“25”).Visible = msoFalse
ActiveSheet.Shapes(“26”).Visible = msoFalse
ActiveSheet.Shapes(“p1”).Visible = msoFalse
ActiveSheet.Shapes(“p2”).Visible = msoFalse
ActiveSheet.Shapes(“p3”).Visible = msoFalse
ActiveSheet.Shapes(“p4”).Visible = msoFalse
ActiveSheet.Shapes(“p5”).Visible = msoFalse
ActiveSheet.Shapes(“p6”).Visible = msoFalse
ActiveSheet.Shapes(“p7”).Visible = msoFalse
ActiveSheet.Shapes(“p8”).Visible = msoFalse
ActiveSheet.Shapes(“p9”).Visible = msoFalse
ActiveSheet.Shapes(“p10”).Visible = msoFalse
ActiveSheet.Shapes(“p11”).Visible = msoFalse
ActiveSheet.Shapes(“p12”).Visible = msoFalse
ActiveSheet.Shapes(“p13”).Visible = msoFalse
ActiveSheet.Shapes(“p14”).Visible = msoFalse
ActiveSheet.Shapes(“p15”).Visible = msoFalse
ActiveSheet.Shapes(“p16”).Visible = msoFalse
ActiveSheet.Shapes(“p17”).Visible = msoFalse
ActiveSheet.Shapes(“p18”).Visible = msoFalse
ActiveSheet.Shapes(“p19”).Visible = msoFalse
ActiveSheet.Shapes(“p20”).Visible = msoFalse
ActiveSheet.Shapes(“p21”).Visible = msoFalse
ActiveSheet.Shapes(“p22”).Visible = msoFalse
ActiveSheet.Shapes(“p23”).Visible = msoFalse
ActiveSheet.Shapes(“p24”).Visible = msoFalse
ActiveSheet.Shapes(“p25”).Visible = msoFalse
ActiveSheet.Shapes(“p26”).Visible = msoFalse
ActiveSheet.Shapes(“pp1”).Visible = msoFalse
ActiveSheet.Shapes(“pp2”).Visible = msoFalse
ActiveSheet.Shapes(“pp3”).Visible = msoFalse
ActiveSheet.Shapes(“pp4”).Visible = msoFalse
ActiveSheet.Shapes(“pp5”).Visible = msoFalse
ActiveSheet.Shapes(“pp6”).Visible = msoFalse
ActiveSheet.Shapes(“pp7”).Visible = msoFalse
ActiveSheet.Shapes(“pp8”).Visible = msoFalse
ActiveSheet.Shapes(“pp9”).Visible = msoFalse
ActiveSheet.Shapes(“pp10”).Visible = msoFalse
ActiveSheet.Shapes(“pp11”).Visible = msoFalse
ActiveSheet.Shapes(“pp12”).Visible = msoFalse
ActiveSheet.Shapes(“pp13”).Visible = msoFalse
ActiveSheet.Shapes(“pp14”).Visible = msoFalse
ActiveSheet.Shapes(“pp15”).Visible = msoFalse
ActiveSheet.Shapes(“pp16”).Visible = msoFalse
ActiveSheet.Shapes(“pp17”).Visible = msoFalse
ActiveSheet.Shapes(“pp18”).Visible = msoFalse
ActiveSheet.Shapes(“pp19”).Visible = msoFalse
ActiveSheet.Shapes(“pp20”).Visible = msoFalse
ActiveSheet.Shapes(“pp21”).Visible = msoFalse
ActiveSheet.Shapes(“pp22”).Visible = msoFalse
ActiveSheet.Shapes(“pp23”).Visible = msoFalse
ActiveSheet.Shapes(“pp24”).Visible = msoFalse
ActiveSheet.Shapes(“pp25”).Visible = msoFalse
ActiveSheet.Shapes(“pp26”).Visible = msoFalse
ActiveSheet.Shapes(“garis1”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoTrue
ActiveSheet.Shapes(“langkah2”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran1”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran2”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse

End Sub
Sub kuliti()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
ActiveSheet.Shapes(“1”).Visible = msoTrue
ActiveSheet.Shapes(“2”).Visible = msoTrue
ActiveSheet.Shapes(“3”).Visible = msoTrue
ActiveSheet.Shapes(“4”).Visible = msoTrue
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“9”).Visible = msoTrue
ActiveSheet.Shapes(“10”).Visible = msoTrue
ActiveSheet.Shapes(“11”).Visible = msoTrue
ActiveSheet.Shapes(“12”).Visible = msoTrue
ActiveSheet.Shapes(“13”).Visible = msoTrue
ActiveSheet.Shapes(“14”).Visible = msoTrue
ActiveSheet.Shapes(“15”).Visible = msoTrue
ActiveSheet.Shapes(“16”).Visible = msoTrue
ActiveSheet.Shapes(“17”).Visible = msoTrue
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“19”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“p1”).Visible = msoFalse
ActiveSheet.Shapes(“p2”).Visible = msoFalse
ActiveSheet.Shapes(“p3”).Visible = msoFalse
ActiveSheet.Shapes(“p4”).Visible = msoFalse
ActiveSheet.Shapes(“p5”).Visible = msoFalse
ActiveSheet.Shapes(“p6”).Visible = msoFalse
ActiveSheet.Shapes(“p7”).Visible = msoFalse
ActiveSheet.Shapes(“p8”).Visible = msoFalse
ActiveSheet.Shapes(“p9”).Visible = msoFalse
ActiveSheet.Shapes(“p10”).Visible = msoFalse
ActiveSheet.Shapes(“p11”).Visible = msoFalse
ActiveSheet.Shapes(“p12”).Visible = msoFalse
ActiveSheet.Shapes(“p13”).Visible = msoFalse
ActiveSheet.Shapes(“p14”).Visible = msoFalse
ActiveSheet.Shapes(“p15”).Visible = msoFalse
ActiveSheet.Shapes(“p16”).Visible = msoFalse
ActiveSheet.Shapes(“p17”).Visible = msoFalse
ActiveSheet.Shapes(“p18”).Visible = msoFalse
ActiveSheet.Shapes(“p19”).Visible = msoFalse
ActiveSheet.Shapes(“p20”).Visible = msoFalse
ActiveSheet.Shapes(“p21”).Visible = msoFalse
ActiveSheet.Shapes(“p22”).Visible = msoFalse
ActiveSheet.Shapes(“p23”).Visible = msoFalse
ActiveSheet.Shapes(“p24”).Visible = msoFalse
ActiveSheet.Shapes(“p25”).Visible = msoFalse
ActiveSheet.Shapes(“p26”).Visible = msoFalse
ActiveSheet.Shapes(“pp1”).Visible = msoFalse
ActiveSheet.Shapes(“pp2”).Visible = msoFalse
ActiveSheet.Shapes(“pp3”).Visible = msoFalse
ActiveSheet.Shapes(“pp4”).Visible = msoFalse
ActiveSheet.Shapes(“pp5”).Visible = msoFalse
ActiveSheet.Shapes(“pp6”).Visible = msoFalse
ActiveSheet.Shapes(“pp7”).Visible = msoFalse
ActiveSheet.Shapes(“pp8”).Visible = msoFalse
ActiveSheet.Shapes(“pp9”).Visible = msoFalse
ActiveSheet.Shapes(“pp10”).Visible = msoFalse
ActiveSheet.Shapes(“pp11”).Visible = msoFalse
ActiveSheet.Shapes(“pp12”).Visible = msoFalse
ActiveSheet.Shapes(“pp13”).Visible = msoFalse
ActiveSheet.Shapes(“pp14”).Visible = msoFalse
ActiveSheet.Shapes(“pp15”).Visible = msoFalse
ActiveSheet.Shapes(“pp16”).Visible = msoFalse
ActiveSheet.Shapes(“pp17”).Visible = msoFalse
ActiveSheet.Shapes(“pp18”).Visible = msoFalse
ActiveSheet.Shapes(“pp19”).Visible = msoFalse
ActiveSheet.Shapes(“pp20”).Visible = msoFalse
ActiveSheet.Shapes(“pp21”).Visible = msoFalse
ActiveSheet.Shapes(“pp22”).Visible = msoFalse
ActiveSheet.Shapes(“pp23”).Visible = msoFalse
ActiveSheet.Shapes(“pp24”).Visible = msoFalse
ActiveSheet.Shapes(“pp25”).Visible = msoFalse
ActiveSheet.Shapes(“pp26”).Visible = msoFalse
ActiveSheet.Shapes(“garis1”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran1”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran2”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse

End Sub
Sub muncul()
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran1”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran2”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse
End Sub

Sub muncul1()
ActiveSheet.Shapes(“lingkaran1”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoTrue
ActiveSheet.Shapes(“masukan2”).Visible = msoTrue
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse

End Sub
Sub muncul2()
ActiveSheet.Shapes(“lingkaran1”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoTrue
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse
End Sub
Sub kesimpulan()
ActiveSheet.Shapes(“lingkaran1”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoTrue

End Sub

Sub masukan()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
shinta.Shapes(“lingkaran1”).Visible = msoTrue
shinta.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Shapes(“1”).Visible = msoTrue
ActiveSheet.Shapes(“2”).Visible = msoTrue
ActiveSheet.Shapes(“3”).Visible = msoTrue
ActiveSheet.Shapes(“4”).Visible = msoTrue
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“9”).Visible = msoTrue
ActiveSheet.Shapes(“10”).Visible = msoTrue
ActiveSheet.Shapes(“11”).Visible = msoTrue
ActiveSheet.Shapes(“12”).Visible = msoTrue
ActiveSheet.Shapes(“13”).Visible = msoTrue
ActiveSheet.Shapes(“14”).Visible = msoTrue
ActiveSheet.Shapes(“15”).Visible = msoTrue
ActiveSheet.Shapes(“16”).Visible = msoTrue
ActiveSheet.Shapes(“17”).Visible = msoTrue
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“19”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“p1”).Visible = msoTrue
ActiveSheet.Shapes(“p2”).Visible = msoTrue
ActiveSheet.Shapes(“p3”).Visible = msoTrue
ActiveSheet.Shapes(“p4”).Visible = msoTrue
ActiveSheet.Shapes(“p5”).Visible = msoTrue
ActiveSheet.Shapes(“p6”).Visible = msoTrue
ActiveSheet.Shapes(“p7”).Visible = msoTrue
ActiveSheet.Shapes(“p8”).Visible = msoTrue
ActiveSheet.Shapes(“p9”).Visible = msoTrue
ActiveSheet.Shapes(“p10”).Visible = msoTrue
ActiveSheet.Shapes(“p11”).Visible = msoTrue
ActiveSheet.Shapes(“p12”).Visible = msoTrue
ActiveSheet.Shapes(“p13”).Visible = msoTrue
ActiveSheet.Shapes(“p14”).Visible = msoTrue
ActiveSheet.Shapes(“p15”).Visible = msoTrue
ActiveSheet.Shapes(“p16”).Visible = msoTrue
ActiveSheet.Shapes(“p17”).Visible = msoTrue
ActiveSheet.Shapes(“p18”).Visible = msoTrue
ActiveSheet.Shapes(“p19”).Visible = msoTrue
ActiveSheet.Shapes(“p20”).Visible = msoTrue
ActiveSheet.Shapes(“p21”).Visible = msoTrue
ActiveSheet.Shapes(“p22”).Visible = msoTrue
ActiveSheet.Shapes(“p23”).Visible = msoTrue
ActiveSheet.Shapes(“p24”).Visible = msoTrue
ActiveSheet.Shapes(“p25”).Visible = msoTrue
ActiveSheet.Shapes(“p26”).Visible = msoTrue
End Sub
Sub masukan2()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“1”).Visible = msoFalse
ActiveSheet.Shapes(“p1”).Visible = msoTrue
ActiveSheet.Shapes(“2”).Visible = msoFalse
ActiveSheet.Shapes(“p3”).Visible = msoTrue
ActiveSheet.Shapes(“3”).Visible = msoFalse
ActiveSheet.Shapes(“4”).Visible = msoFalse
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“9”).Visible = msoFalse
ActiveSheet.Shapes(“10”).Visible = msoFalse
ActiveSheet.Shapes(“11”).Visible = msoFalse
ActiveSheet.Shapes(“12”).Visible = msoFalse
ActiveSheet.Shapes(“13”).Visible = msoFalse
ActiveSheet.Shapes(“14”).Visible = msoFalse
ActiveSheet.Shapes(“15”).Visible = msoFalse
ActiveSheet.Shapes(“16”).Visible = msoFalse
ActiveSheet.Shapes(“17”).Visible = msoFalse
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“19”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“p1”).Visible = msoTrue
ActiveSheet.Shapes(“p2”).Visible = msoTrue
ActiveSheet.Shapes(“p3”).Visible = msoTrue
ActiveSheet.Shapes(“p4”).Visible = msoTrue
ActiveSheet.Shapes(“p5”).Visible = msoTrue
ActiveSheet.Shapes(“p6”).Visible = msoTrue
ActiveSheet.Shapes(“p7”).Visible = msoTrue
ActiveSheet.Shapes(“p8”).Visible = msoTrue
ActiveSheet.Shapes(“p9”).Visible = msoTrue
ActiveSheet.Shapes(“p10”).Visible = msoTrue
ActiveSheet.Shapes(“p11”).Visible = msoTrue
ActiveSheet.Shapes(“p12”).Visible = msoTrue
ActiveSheet.Shapes(“p13”).Visible = msoTrue
ActiveSheet.Shapes(“p14”).Visible = msoTrue
ActiveSheet.Shapes(“p15”).Visible = msoTrue
ActiveSheet.Shapes(“p16”).Visible = msoTrue
ActiveSheet.Shapes(“p17”).Visible = msoTrue
ActiveSheet.Shapes(“p18”).Visible = msoTrue
ActiveSheet.Shapes(“p19”).Visible = msoTrue
ActiveSheet.Shapes(“p20”).Visible = msoTrue
ActiveSheet.Shapes(“p21”).Visible = msoTrue
ActiveSheet.Shapes(“p22”).Visible = msoTrue
ActiveSheet.Shapes(“p23”).Visible = msoTrue
ActiveSheet.Shapes(“p24”).Visible = msoTrue
ActiveSheet.Shapes(“p25”).Visible = msoTrue
ActiveSheet.Shapes(“p26”).Visible = msoTrue
ActiveSheet.Shapes(“pp1”).Visible = msoTrue
ActiveSheet.Shapes(“pp2”).Visible = msoTrue
ActiveSheet.Shapes(“pp3”).Visible = msoTrue
ActiveSheet.Shapes(“pp4”).Visible = msoTrue
ActiveSheet.Shapes(“pp5”).Visible = msoTrue
ActiveSheet.Shapes(“pp6”).Visible = msoTrue
ActiveSheet.Shapes(“pp7”).Visible = msoTrue
ActiveSheet.Shapes(“pp8”).Visible = msoTrue
ActiveSheet.Shapes(“pp9”).Visible = msoTrue
ActiveSheet.Shapes(“pp10”).Visible = msoTrue
ActiveSheet.Shapes(“pp11”).Visible = msoTrue
ActiveSheet.Shapes(“pp12”).Visible = msoTrue
ActiveSheet.Shapes(“pp13”).Visible = msoTrue
ActiveSheet.Shapes(“pp14”).Visible = msoTrue
ActiveSheet.Shapes(“pp15”).Visible = msoTrue
ActiveSheet.Shapes(“pp16”).Visible = msoTrue
ActiveSheet.Shapes(“pp17”).Visible = msoTrue
ActiveSheet.Shapes(“pp18”).Visible = msoTrue
ActiveSheet.Shapes(“pp19”).Visible = msoTrue
ActiveSheet.Shapes(“pp20”).Visible = msoTrue
ActiveSheet.Shapes(“pp21”).Visible = msoTrue
ActiveSheet.Shapes(“pp22”).Visible = msoTrue
ActiveSheet.Shapes(“pp23”).Visible = msoTrue
ActiveSheet.Shapes(“pp24”).Visible = msoTrue
ActiveSheet.Shapes(“pp25”).Visible = msoTrue
ActiveSheet.Shapes(“pp26”).Visible = msoTrue
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse
End Sub

Sub jeruk()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
ActiveSheet.Shapes(“1”).Visible = msoFalse
ActiveSheet.Shapes(“2”).Visible = msoFalse
ActiveSheet.Shapes(“3”).Visible = msoFalse
ActiveSheet.Shapes(“4”).Visible = msoFalse
ActiveSheet.Shapes(“5”).Visible = msoFalse
ActiveSheet.Shapes(“6”).Visible = msoFalse
ActiveSheet.Shapes(“7”).Visible = msoFalse
ActiveSheet.Shapes(“8”).Visible = msoFalse
ActiveSheet.Shapes(“9”).Visible = msoFalse
ActiveSheet.Shapes(“10”).Visible = msoFalse
ActiveSheet.Shapes(“11”).Visible = msoFalse
ActiveSheet.Shapes(“12”).Visible = msoFalse
ActiveSheet.Shapes(“13”).Visible = msoFalse
ActiveSheet.Shapes(“14”).Visible = msoFalse
ActiveSheet.Shapes(“15”).Visible = msoFalse
ActiveSheet.Shapes(“16”).Visible = msoFalse
ActiveSheet.Shapes(“17”).Visible = msoFalse
ActiveSheet.Shapes(“18”).Visible = msoFalse
ActiveSheet.Shapes(“19”).Visible = msoFalse
ActiveSheet.Shapes(“20”).Visible = msoFalse
ActiveSheet.Shapes(“21”).Visible = msoFalse
ActiveSheet.Shapes(“22”).Visible = msoFalse
ActiveSheet.Shapes(“23”).Visible = msoFalse
ActiveSheet.Shapes(“24”).Visible = msoFalse
ActiveSheet.Shapes(“25”).Visible = msoFalse
ActiveSheet.Shapes(“26”).Visible = msoFalse
ActiveSheet.Shapes(“p1”).Visible = msoFalse
ActiveSheet.Shapes(“p2”).Visible = msoFalse
ActiveSheet.Shapes(“p3”).Visible = msoFalse
ActiveSheet.Shapes(“p4”).Visible = msoFalse
ActiveSheet.Shapes(“p5”).Visible = msoFalse
ActiveSheet.Shapes(“p6”).Visible = msoFalse
ActiveSheet.Shapes(“p7”).Visible = msoFalse
ActiveSheet.Shapes(“p8”).Visible = msoFalse
ActiveSheet.Shapes(“p9”).Visible = msoFalse
ActiveSheet.Shapes(“p10”).Visible = msoFalse
ActiveSheet.Shapes(“p11”).Visible = msoFalse
ActiveSheet.Shapes(“p12”).Visible = msoFalse
ActiveSheet.Shapes(“p13”).Visible = msoFalse
ActiveSheet.Shapes(“p14”).Visible = msoFalse
ActiveSheet.Shapes(“p15”).Visible = msoFalse
ActiveSheet.Shapes(“p16”).Visible = msoFalse
ActiveSheet.Shapes(“p17”).Visible = msoFalse
ActiveSheet.Shapes(“p18”).Visible = msoFalse
ActiveSheet.Shapes(“p19”).Visible = msoFalse
ActiveSheet.Shapes(“p20”).Visible = msoFalse
ActiveSheet.Shapes(“p21”).Visible = msoFalse
ActiveSheet.Shapes(“p22”).Visible = msoFalse
ActiveSheet.Shapes(“p23”).Visible = msoFalse
ActiveSheet.Shapes(“p24”).Visible = msoFalse
ActiveSheet.Shapes(“p25”).Visible = msoFalse
ActiveSheet.Shapes(“p26”).Visible = msoFalse
ActiveSheet.Shapes(“pp1”).Visible = msoFalse
ActiveSheet.Shapes(“pp2”).Visible = msoFalse
ActiveSheet.Shapes(“pp3”).Visible = msoFalse
ActiveSheet.Shapes(“pp4”).Visible = msoFalse
ActiveSheet.Shapes(“pp5”).Visible = msoFalse
ActiveSheet.Shapes(“pp6”).Visible = msoFalse
ActiveSheet.Shapes(“pp7”).Visible = msoFalse
ActiveSheet.Shapes(“pp8”).Visible = msoFalse
ActiveSheet.Shapes(“pp9”).Visible = msoFalse
ActiveSheet.Shapes(“pp10”).Visible = msoFalse
ActiveSheet.Shapes(“pp11”).Visible = msoFalse
ActiveSheet.Shapes(“pp12”).Visible = msoFalse
ActiveSheet.Shapes(“pp13”).Visible = msoFalse
ActiveSheet.Shapes(“pp14”).Visible = msoFalse
ActiveSheet.Shapes(“pp15”).Visible = msoFalse
ActiveSheet.Shapes(“pp16”).Visible = msoFalse
ActiveSheet.Shapes(“pp17”).Visible = msoFalse
ActiveSheet.Shapes(“pp18”).Visible = msoFalse
ActiveSheet.Shapes(“pp19”).Visible = msoFalse
ActiveSheet.Shapes(“pp20”).Visible = msoFalse
ActiveSheet.Shapes(“pp21”).Visible = msoFalse
ActiveSheet.Shapes(“pp22”).Visible = msoFalse
ActiveSheet.Shapes(“pp23”).Visible = msoFalse
ActiveSheet.Shapes(“pp24”).Visible = msoFalse
ActiveSheet.Shapes(“pp25”).Visible = msoFalse
ActiveSheet.Shapes(“pp26”).Visible = msoFalse
ActiveSheet.Shapes(“garis1”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoTrue
ActiveSheet.Shapes(“langkah2”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran1”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran2”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse

End Sub
Sub kuliti()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
ActiveSheet.Shapes(“1”).Visible = msoTrue
ActiveSheet.Shapes(“2”).Visible = msoTrue
ActiveSheet.Shapes(“3”).Visible = msoTrue
ActiveSheet.Shapes(“4”).Visible = msoTrue
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“9”).Visible = msoTrue
ActiveSheet.Shapes(“10”).Visible = msoTrue
ActiveSheet.Shapes(“11”).Visible = msoTrue
ActiveSheet.Shapes(“12”).Visible = msoTrue
ActiveSheet.Shapes(“13”).Visible = msoTrue
ActiveSheet.Shapes(“14”).Visible = msoTrue
ActiveSheet.Shapes(“15”).Visible = msoTrue
ActiveSheet.Shapes(“16”).Visible = msoTrue
ActiveSheet.Shapes(“17”).Visible = msoTrue
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“19”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“p1”).Visible = msoFalse
ActiveSheet.Shapes(“p2”).Visible = msoFalse
ActiveSheet.Shapes(“p3”).Visible = msoFalse
ActiveSheet.Shapes(“p4”).Visible = msoFalse
ActiveSheet.Shapes(“p5”).Visible = msoFalse
ActiveSheet.Shapes(“p6”).Visible = msoFalse
ActiveSheet.Shapes(“p7”).Visible = msoFalse
ActiveSheet.Shapes(“p8”).Visible = msoFalse
ActiveSheet.Shapes(“p9”).Visible = msoFalse
ActiveSheet.Shapes(“p10”).Visible = msoFalse
ActiveSheet.Shapes(“p11”).Visible = msoFalse
ActiveSheet.Shapes(“p12”).Visible = msoFalse
ActiveSheet.Shapes(“p13”).Visible = msoFalse
ActiveSheet.Shapes(“p14”).Visible = msoFalse
ActiveSheet.Shapes(“p15”).Visible = msoFalse
ActiveSheet.Shapes(“p16”).Visible = msoFalse
ActiveSheet.Shapes(“p17”).Visible = msoFalse
ActiveSheet.Shapes(“p18”).Visible = msoFalse
ActiveSheet.Shapes(“p19”).Visible = msoFalse
ActiveSheet.Shapes(“p20”).Visible = msoFalse
ActiveSheet.Shapes(“p21”).Visible = msoFalse
ActiveSheet.Shapes(“p22”).Visible = msoFalse
ActiveSheet.Shapes(“p23”).Visible = msoFalse
ActiveSheet.Shapes(“p24”).Visible = msoFalse
ActiveSheet.Shapes(“p25”).Visible = msoFalse
ActiveSheet.Shapes(“p26”).Visible = msoFalse
ActiveSheet.Shapes(“pp1”).Visible = msoFalse
ActiveSheet.Shapes(“pp2”).Visible = msoFalse
ActiveSheet.Shapes(“pp3”).Visible = msoFalse
ActiveSheet.Shapes(“pp4”).Visible = msoFalse
ActiveSheet.Shapes(“pp5”).Visible = msoFalse
ActiveSheet.Shapes(“pp6”).Visible = msoFalse
ActiveSheet.Shapes(“pp7”).Visible = msoFalse
ActiveSheet.Shapes(“pp8”).Visible = msoFalse
ActiveSheet.Shapes(“pp9”).Visible = msoFalse
ActiveSheet.Shapes(“pp10”).Visible = msoFalse
ActiveSheet.Shapes(“pp11”).Visible = msoFalse
ActiveSheet.Shapes(“pp12”).Visible = msoFalse
ActiveSheet.Shapes(“pp13”).Visible = msoFalse
ActiveSheet.Shapes(“pp14”).Visible = msoFalse
ActiveSheet.Shapes(“pp15”).Visible = msoFalse
ActiveSheet.Shapes(“pp16”).Visible = msoFalse
ActiveSheet.Shapes(“pp17”).Visible = msoFalse
ActiveSheet.Shapes(“pp18”).Visible = msoFalse
ActiveSheet.Shapes(“pp19”).Visible = msoFalse
ActiveSheet.Shapes(“pp20”).Visible = msoFalse
ActiveSheet.Shapes(“pp21”).Visible = msoFalse
ActiveSheet.Shapes(“pp22”).Visible = msoFalse
ActiveSheet.Shapes(“pp23”).Visible = msoFalse
ActiveSheet.Shapes(“pp24”).Visible = msoFalse
ActiveSheet.Shapes(“pp25”).Visible = msoFalse
ActiveSheet.Shapes(“pp26”).Visible = msoFalse
ActiveSheet.Shapes(“garis1”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran1”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran2”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse

End Sub
Sub muncul()
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran1”).Visible = msoFalse
ActiveSheet.Shapes(“lingkaran2”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse
End Sub

Sub muncul1()
ActiveSheet.Shapes(“lingkaran1”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoTrue
ActiveSheet.Shapes(“masukan2”).Visible = msoTrue
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse

End Sub
Sub muncul2()
ActiveSheet.Shapes(“lingkaran1”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoTrue
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse
End Sub
Sub kesimpulan()
ActiveSheet.Shapes(“lingkaran1”).Visible = msoTrue
ActiveSheet.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Pictures(“belah”).Visible = msoFalse
ActiveSheet.Shapes(“langkah”).Visible = msoFalse
ActiveSheet.Shapes(“masukan”).Visible = msoFalse
ActiveSheet.Shapes(“masukan2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah2”).Visible = msoFalse
ActiveSheet.Shapes(“langkah3”).Visible = msoFalse
ActiveSheet.Shapes(“langkah4”).Visible = msoTrue

End Sub

Sub masukan()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
shinta.Shapes(“lingkaran1”).Visible = msoTrue
shinta.Shapes(“lingkaran2”).Visible = msoTrue
ActiveSheet.Shapes(“1”).Visible = msoTrue
ActiveSheet.Shapes(“2”).Visible = msoTrue
ActiveSheet.Shapes(“3”).Visible = msoTrue
ActiveSheet.Shapes(“4”).Visible = msoTrue
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“9”).Visible = msoTrue
ActiveSheet.Shapes(“10”).Visible = msoTrue
ActiveSheet.Shapes(“11”).Visible = msoTrue
ActiveSheet.Shapes(“12”).Visible = msoTrue
ActiveSheet.Shapes(“13”).Visible = msoTrue
ActiveSheet.Shapes(“14”).Visible = msoTrue
ActiveSheet.Shapes(“15”).Visible = msoTrue
ActiveSheet.Shapes(“16”).Visible = msoTrue
ActiveSheet.Shapes(“17”).Visible = msoTrue
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“19”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“p1”).Visible = msoTrue
ActiveSheet.Shapes(“p2”).Visible = msoTrue
ActiveSheet.Shapes(“p3”).Visible = msoTrue
ActiveSheet.Shapes(“p4”).Visible = msoTrue
ActiveSheet.Shapes(“p5”).Visible = msoTrue
ActiveSheet.Shapes(“p6”).Visible = msoTrue
ActiveSheet.Shapes(“p7”).Visible = msoTrue
ActiveSheet.Shapes(“p8”).Visible = msoTrue
ActiveSheet.Shapes(“p9”).Visible = msoTrue
ActiveSheet.Shapes(“p10”).Visible = msoTrue
ActiveSheet.Shapes(“p11”).Visible = msoTrue
ActiveSheet.Shapes(“p12”).Visible = msoTrue
ActiveSheet.Shapes(“p13”).Visible = msoTrue
ActiveSheet.Shapes(“p14”).Visible = msoTrue
ActiveSheet.Shapes(“p15”).Visible = msoTrue
ActiveSheet.Shapes(“p16”).Visible = msoTrue
ActiveSheet.Shapes(“p17”).Visible = msoTrue
ActiveSheet.Shapes(“p18”).Visible = msoTrue
ActiveSheet.Shapes(“p19”).Visible = msoTrue
ActiveSheet.Shapes(“p20”).Visible = msoTrue
ActiveSheet.Shapes(“p21”).Visible = msoTrue
ActiveSheet.Shapes(“p22”).Visible = msoTrue
ActiveSheet.Shapes(“p23”).Visible = msoTrue
ActiveSheet.Shapes(“p24”).Visible = msoTrue
ActiveSheet.Shapes(“p25”).Visible = msoTrue
ActiveSheet.Shapes(“p26”).Visible = msoTrue
End Sub
Sub masukan2()
Dim shinta As Worksheet
Set shinta = Worksheets(1)
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“1”).Visible = msoFalse
ActiveSheet.Shapes(“p1”).Visible = msoTrue
ActiveSheet.Shapes(“2”).Visible = msoFalse
ActiveSheet.Shapes(“p3”).Visible = msoTrue
ActiveSheet.Shapes(“3”).Visible = msoFalse
ActiveSheet.Shapes(“4”).Visible = msoFalse
ActiveSheet.Shapes(“5”).Visible = msoTrue
ActiveSheet.Shapes(“6”).Visible = msoTrue
ActiveSheet.Shapes(“7”).Visible = msoTrue
ActiveSheet.Shapes(“8”).Visible = msoTrue
ActiveSheet.Shapes(“9”).Visible = msoFalse
ActiveSheet.Shapes(“10”).Visible = msoFalse
ActiveSheet.Shapes(“11”).Visible = msoFalse
ActiveSheet.Shapes(“12”).Visible = msoFalse
ActiveSheet.Shapes(“13”).Visible = msoFalse
ActiveSheet.Shapes(“14”).Visible = msoFalse
ActiveSheet.Shapes(“15”).Visible = msoFalse
ActiveSheet.Shapes(“16”).Visible = msoFalse
ActiveSheet.Shapes(“17”).Visible = msoFalse
ActiveSheet.Shapes(“18”).Visible = msoTrue
ActiveSheet.Shapes(“19”).Visible = msoTrue
ActiveSheet.Shapes(“20”).Visible = msoTrue
ActiveSheet.Shapes(“21”).Visible = msoTrue
ActiveSheet.Shapes(“22”).Visible = msoTrue
ActiveSheet.Shapes(“23”).Visible = msoTrue
ActiveSheet.Shapes(“24”).Visible = msoTrue
ActiveSheet.Shapes(“25”).Visible = msoTrue
ActiveSheet.Shapes(“26”).Visible = msoTrue
ActiveSheet.Shapes(“p1”).Visible = msoTrue
ActiveSheet.Shapes(“p2”).Visible = msoTrue
ActiveSheet.Shapes(“p3”).Visible = msoTrue
ActiveSheet.Shapes(“p4”).Visible = msoTrue
ActiveSheet.Shapes(“p5”).Visible = msoTrue
ActiveSheet.Shapes(“p6”).Visible = msoTrue
ActiveSheet.Shapes(“p7”).Visible = msoTrue
ActiveSheet.Shapes(“p8”).Visible = msoTrue
ActiveSheet.Shapes(“p9”).Visible = msoTrue
ActiveSheet.Shapes(“p10”).Visible = msoTrue
ActiveSheet.Shapes(“p11”).Visible = msoTrue
ActiveSheet.Shapes(“p12”).Visible = msoTrue
ActiveSheet.Shapes(“p13”).Visible = msoTrue
ActiveSheet.Shapes(“p14”).Visible = msoTrue
ActiveSheet.Shapes(“p15”).Visible = msoTrue
ActiveSheet.Shapes(“p16”).Visible = msoTrue
ActiveSheet.Shapes(“p17”).Visible = msoTrue
ActiveSheet.Shapes(“p18”).Visible = msoTrue
ActiveSheet.Shapes(“p19”).Visible = msoTrue
ActiveSheet.Shapes(“p20”).Visible = msoTrue
ActiveSheet.Shapes(“p21”).Visible = msoTrue
ActiveSheet.Shapes(“p22”).Visible = msoTrue
ActiveSheet.Shapes(“p23”).Visible = msoTrue
ActiveSheet.Shapes(“p24”).Visible = msoTrue
ActiveSheet.Shapes(“p25”).Visible = msoTrue
ActiveSheet.Shapes(“p26”).Visible = msoTrue
ActiveSheet.Shapes(“pp1”).Visible = msoTrue
ActiveSheet.Shapes(“pp2”).Visible = msoTrue
ActiveSheet.Shapes(“pp3”).Visible = msoTrue
ActiveSheet.Shapes(“pp4”).Visible = msoTrue
ActiveSheet.Shapes(“pp5”).Visible = msoTrue
ActiveSheet.Shapes(“pp6”).Visible = msoTrue
ActiveSheet.Shapes(“pp7”).Visible = msoTrue
ActiveSheet.Shapes(“pp8”).Visible = msoTrue
ActiveSheet.Shapes(“pp9”).Visible = msoTrue
ActiveSheet.Shapes(“pp10”).Visible = msoTrue
ActiveSheet.Shapes(“pp11”).Visible = msoTrue
ActiveSheet.Shapes(“pp12”).Visible = msoTrue
ActiveSheet.Shapes(“pp13”).Visible = msoTrue
ActiveSheet.Shapes(“pp14”).Visible = msoTrue
ActiveSheet.Shapes(“pp15”).Visible = msoTrue
ActiveSheet.Shapes(“pp16”).Visible = msoTrue
ActiveSheet.Shapes(“pp17”).Visible = msoTrue
ActiveSheet.Shapes(“pp18”).Visible = msoTrue
ActiveSheet.Shapes(“pp19”).Visible = msoTrue
ActiveSheet.Shapes(“pp20”).Visible = msoTrue
ActiveSheet.Shapes(“pp21”).Visible = msoTrue
ActiveSheet.Shapes(“pp22”).Visible = msoTrue
ActiveSheet.Shapes(“pp23”).Visible = msoTrue
ActiveSheet.Shapes(“pp24”).Visible = msoTrue
ActiveSheet.Shapes(“pp25”).Visible = msoTrue
ActiveSheet.Shapes(“pp26”).Visible = msoTrue
ActiveSheet.Shapes(“langkah4”).Visible = msoFalse
End Sub