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 […]
[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/1.-KLASIFIKASI-GANGGUAN-DI-MASA-ANAK-ANAK.pdf”]
[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/1.-KERANGKA-KONSEPTUAL-BK-SMA.pptx”]
Langkah-langkah sebagai berikut: [gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/CARA-PENGGUNAAN.docx”]
[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/2.-PARADIGMA-PSIKOLOGI-ABNORMAL.pdf”]
[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Muata-Materi-PKN-SD-Kelas-Tinggi.pptx”] [gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Muatan-Materi-PKN-SD-Kelas-Rendah.pptx”]
[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/1.-SEJARAH-PSIKOLOGI-ABNORMAL.pdf”]
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 =
[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Muatan-Materi-IPS-SD.pptx”]
Private Sub CommandButton1_Click() Dim lembar As Worksheet Dim a, b, c, d, e As Integer Set lembar = Worksheets(1) Randomize
