Materi Perkuliahan
GAME SATUAN PANJANG (VBA POWERPOINT)
Langkah-langkah sebagai berikut: [gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/CARA-PENGGUNAAN.docx”]
APLIKASI LUAS PERSEGI DAN PERSEGI PANJANG
Sub periksa() Dim lembar As Worksheet Set lembar = Worksheets(1) If Range(“B3”) = Range(“B5”) Then lembar.Shapes(“kotak”).Visible = msoCTrue lembar.Shapes(“panjang”).Visible = msoFalse lembar.Shapes(“kotak”).TextFrame2.TextRange.Text = Range(“B3”) * Range(“B5”) Range(“H6”) = “LUAS =” Range(“G6”) = “” Range(“M6”) = “cm²” Range(“N6”) = “” Else lembar.Shapes(“kotak”).Visible = msoFalse lembar.Shapes(“panjang”).Visible = msoCTrue lembar.Shapes(“panjang”).TextFrame2.TextRange.Text = Range(“B3”) *
baca selengkapnya…
OPERASI PENJUMLAHAN PECAHAN DEGAN PENYEBUT TIDAK SAMA (VBA EXCEL)
Private Sub CommandButton1_Click() Dim lembar As Worksheet Dim a, b, c, d, e As Integer Set lembar = Worksheets(1) Randomize a = Int(Rnd() * 49) + 1 b = Int(Rnd() * 49) + 1 c = Int(Rnd() * 49) + 1 d = Int(Rnd() * 49) + 1 e =
baca selengkapnya…
MEDIA PEMBELAJARAN GAME SATUAN PANJANG BERBASIS INFORMATION COMMUNICATION AND TECHNOLOGI MICROSOFT EXCEL VISUAL BASIC APLICATION
Private Sub CommandButton1_Click() ComboBox1 = “” ComboBox2 = “” TextBox1 = “” TextBox2 = “” End Sub Private Sub CommandButton2_Click() End End Sub Private Sub KONVERSI_Click() Dim aa As Double If ComboBox1.Text = “kw” And ComboBox2.Text = “kg” Then TextBox2.Text = TextBox1.Text * 100 Else If ComboBox1.Text = “kw” And
baca selengkapnya…
Luas dan Keliling Menggunakan Excel (UserForm)
Private Sub CommandButton1_Click() UserForm1.Show End Sub Private Sub CommandButton1_Click() Dim phi, luas, Keliling As Double phi = 22 / 7 Or 3.14 luas = phi * (TextBox1 * TextBox1) Keliling = 2 * phi * TextBox1 TextBox2 = luas TextBox3 = Keliling TextBox1.SetFocus MsgBox “luas lingkaran : ” & luas
baca selengkapnya…
GAME PUZZLE BILANGAN BULAT MENGGUNAKAN MICROSOFT EXCEL
Langkah-langkah sebagai berikut [gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/makalah-game-puzzle.doc”]
KONSEP JAJAR GENJANG VBA EXCEL
Sub rumus1() Set lusiana = Worksheets(1) lusiana.Shapes(“segitiga1”).Visible = msoTrue lusiana.Shapes(“segitiga1.1”).Visible = msoFalse lusiana.Shapes(“segitiga2”).Visible = msoFalse lusiana.Shapes(“segitiga2.1”).Visible = msoFalse lusiana.Shapes(“segitiga2.2”).Visible = msoFalse lusiana.Shapes(“persegi”).Visible = msoTrue lusiana.Shapes(“keterangan1”).Visible = msoTrue lusiana.Shapes(“keterangan2”).Visible = msoFalse lusiana.Shapes(“1”).Visible = msoTrue lusiana.Shapes(“2”).Visible = msoFalse lusiana.Shapes(“alas”).Visible = msoFalse lusiana.Shapes(“tinggi”).Visible = msoFalse lusiana.Shapes(“LUAS”).Visible = msoFalse End Sub Sub klik1() Set
baca selengkapnya…
Bintang Hexagon Ajaib Menggunakan VBA for Powerpoint
Sub loncat1() Dim a As Integer a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L1”).Left + ActivePresentation.Slides(1).Shapes(“L1”).Width / 60 ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top = ActivePresentation.Slides(1).Shapes(“L1”).Top + ActivePresentation.Slides(1).Shapes(“L1”).Height / 60 End Sub Sub loncat2() Dim a As Integer a = ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Left = ActivePresentation.Slides(1).Shapes(“L2”).Left + ActivePresentation.Slides(1).Shapes(“L2”).Width / 60 ActivePresentation.Slides(1).Shapes(“lingkaran” & a).Top
baca selengkapnya…
Kalkulator KPK dan FPB Visual Basic Di Ms Excel
Langkah-langkah sebagai berikut [gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/tik.docx”]
KALKULATOR TERBILANG DENGAN MENGGUNAKAN VBA MICROSOFT EXCEL 2010
Langkah-langkah dapat dilihat sebagai berikut: [gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Ibnu-Imam-A._14510138.docx”]
Indonesian