Sub tinggiorang() Range(“b19”) = Range(“c27”) End Sub Sub jarak() Range(“k19”) = Range(“f27”) End Sub Sub sudut() Set lembar = Worksheets(1) lembar.Shapes(“sudut”).TextFrame2.TextRange.Text = Range(“i27”) Range(“f16”) = 90 – Range(“i27”) Range(“W10”).Formula = “=TAN(RADIANS(F16))” End Sub Sub cektinggi() Dim a As Single Dim b As Single Dim c As Single Dim d As
baca selengkapnya…

Sub beli() Range(“D7”) = “HARGA JUAL” Range(“F7”) = “HARGA BELI” End Sub Sub beli2() Range(“D7”) = “HARGA BELI” Range(“F7”) = “HARGA JUAL” End Sub Sub jual() Range(“D8”) = “HARGA BELI” Range(“F8”) = “HARGA JUAL” End Sub Sub jual2() Range(“D8”) = “HARGA JUAL” Range(“F8”) = “HARGA BELI” End Sub Sub hapus()
baca selengkapnya…

Sub A() Range(“D4”) = “1” End Sub Sub B() Range(“I4”) = “2” End Sub Sub F() Range(“N4”) = “4” End Sub Sub D() Range(“G11”) = “8” End Sub Sub E() Range(“L11”) = “16” End Sub Sub hasil() Range(“T7”) = Range(“D4”) + Range(“I4”) + Range(“N4”) + Range(“G11”) + Range(“L11”) End Sub
baca selengkapnya…

Sub pertama() Set Andriani = Worksheets(1) Andriani.Shapes(“1”).Visible = msoTrue Andriani.Shapes(“2”).Visible = msoTrue Andriani.Shapes(“3”).Visible = msoTrue Andriani.Shapes(“4”).Visible = msoFalse Andriani.Shapes(“5”).Visible = msoFalse Andriani.Shapes(“6”).Visible = msoFalse Andriani.Shapes(“7”).Visible = msoFalse Andriani.Shapes(“8”).Visible = msoFalse Andriani.Shapes(“9”).Visible = msoFalse Andriani.Shapes(“ket0”).Visible = msoTrue Andriani.Shapes(“ket1”).Visible = msoFalse Andriani.Shapes(“ket2”).Visible = msoFalse Andriani.Shapes(“ket3”).Visible = msoFalse Andriani.Shapes(“ket4”).Visible = msoFalse Andriani.Shapes(“garis1”).Visible =
baca selengkapnya…

Sub hapus() Slide1.TextBox1.Text = “” Slide1.TextBox2.Text = “” Slide1.TextBox3.Text = “” Slide1.TextBox4.Text = “” Slide1.TextBox5.Text = “” Slide1.TextBox6.Text = “” ActivePresentation.Slides(1).Shapes(“nilaix”).TextFrame.TextRange.Text = “” ActivePresentation.Slides(1).Shapes(“nilaiy”).TextFrame.TextRange.Text = “” End Sub Sub hitung() Dim a, b, c, d, p, q As Integer a = Val(Slide1.TextBox1.Text) b = Val(Slide1.TextBox2.Text) p = Val(Slide1.TextBox3.Text) c =
baca selengkapnya…

Koding Pembuatan: Private Sub CommandButton1_Click() Range(“H5”) = Range(“H5”) + 1 Shapes(“air”).Height = (Range(“H5”) / 1) * Shapes(“gelas1”).Height If Range(“H5”) > 1 Then MsgBox “Volume Air Sudah Penuh” Range(“H5”) = 1 Shapes(“air”).Height = Shapes(“gelas1”).Height End If End Sub Private Sub CommandButton2_Click() Range(“H5”) = Range(“H5”) – 1 Shapes(“air”).Height = (Range(“H5”) / 1)
baca selengkapnya…

Pembuatan Media tentang operasi hitung dengan menggunakan Visual Basic Application for Microsoft Excel merupakan pengenalan dasar tentang cara pembuatan alat peraga matematika yang berupa gambar atau bentuk yang dapat diaktifkan menjadi bentuk yang lebih dinamis dan disesuaikan dengan operasi penjumlahan, pengurangan, perkalian dan pembagian. Hal ini untuk mempermudah bagaimana mahasiswa
baca selengkapnya…

Private Sub CommandButton1_Click() Dim vertikala As Shape Dim horizontal As Shape Dim a, b, c, d As Integer Dim e, f, g As Single a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text d = TextBox4.Text e = (a * c) f = (b * d) g = 0 For
baca selengkapnya…