Materi

Sub beli() Range(“D7”) = “HARGA JUAL” Range(“F7”) = “HARGA BELI” End Sub Sub beli2() Range(“D7”) = “HARGA BELI” Range(“F7”) = […]

Sub A() Range(“D4”) = “1” End Sub Sub B() Range(“I4”) = “2” End Sub Sub F() Range(“N4”) = “4” End

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 =

Sub hapus() Slide1.TextBox1.Text = “” Slide1.TextBox2.Text = “” Slide1.TextBox3.Text = “” Slide1.TextBox4.Text = “” Slide1.TextBox5.Text = “” Slide1.TextBox6.Text = “”

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/TEORI-PSIKOANALISA-SIGMUND-FREUD-PSIKOLOGI-KEPRIBADIAN.pptx”]

Koding Pembuatan: Private Sub CommandButton1_Click() Range(“H5”) = Range(“H5”) + 1 Shapes(“air”).Height = (Range(“H5”) / 1) * Shapes(“gelas1”).Height If Range(“H5”) >

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/PERTEMUAN1-ORIENTASI-PERKULIAHAN.pptx”]

Pembuatan Media tentang operasi hitung dengan menggunakan Visual Basic Application for Microsoft Excel merupakan pengenalan dasar tentang cara pembuatan alat

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Pertemuan-2-Sejarah-dan-latar-belakang-psikologi-Kepribadian.pptx”]

Private Sub CommandButton1_Click() Dim vertikala As Shape Dim horizontal As Shape Dim a, b, c, d As Integer Dim e,