Materi

KUBUS (VBA EXCEL)

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

VOLUME BANGUN RUANG (VBA EXCEL)

Sub HITUNG1() Range(“G13”) = (Range(“G9”) ^ 3) If Range(“B18”) = Range(“G13”) Then Range(“B21”) = “yes, kamu benar!!” Range(“B21”).Interior.Color = vbGreen

Permainan Tangram (VBA Powerpoint)

Sub kanan() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft 10 End Sub Sub kiri() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft -10 End Sub Sub atas() ActivePresentation.Slides(1).Shapes(“kotak” &

en_GB
Scroll to Top