Cara membuat sheet pada Ms. Excel

Dipostingan ini saya akan menjelaskan bagaimana cara membuat sheet pada Ms. Excel. Ini juga sama seperti postingan sebelumnya, ini tugas lab SI saya semester yang lalu. Saya mempostingnya hanya untuk berbagi informasi untuk kalian.

1.       Langkah pertama : Pilih developer lalu pilih visual basic >pilih sheet 1 kemudian klik kanan > Insert > module
 

   

2.       Langkah ke dua: Akan muncul tampilan seperti ini

3.       Langkah ke tiga: Masukan

Sub macro_pertama()

Msgbox “selamat datang dilabsi”

Untuk menjalankan perintah di run/F5

4.       Untuk memasukan nama: Sheet 2

Sub macro_kedua()

Dim nama As String

nama = InputBox("masukan nama anda: ")

Range("A1").Value = nama

End Sub

Masukan nama kemudian Ok maka akan muncul tampilan seperti ↓

      

5.       Sheet 3: Sub Kondisi

Sub kondisi()

x = Val(InputBox("masukan nilai: "))

If x < 70 Then

MsgBox "maaf anda tidak lulus"

Else

MsgBox "selamat anda lulus"

End If

End Sub

(Keterangan: End if berfungsi untuk menutup sub if)

·    Sub kondisi()

x = Val(InputBox("masukan nilai uts"))

y = Val(InputBox("masukan nilai uas"))

Total = (x * 0.7) + (y * 0.3)

If Total < 70 Then

MsgBox "maaf, nilai anda = " & Total & ", anda tidak lulus"

Else

MsgBox "selamat nilai anda = " & Total & ", anda lulus"

End If

End Sub

Masukan Nilai Uts                 

Masukan Nilai Uas             
         

Kemudian akan muncul >>      

6.       Sheet 4

Sub for_loop()

For x = 1 To 10

MsgBox x

Cells(x, 1) = x

Next x

End Sub
  -

7.       Sheet 5: Pengulangan

Sub perulangan()

bil = Val(InputBox("inputbilangan"))

For i = 1 To bil

For j = 1 To i

Cells(i, j).Value = j

Next j

Next i

End Sub

Masukan Bilangan kemudian klik Ok

Setelah klik OK maka tampilam akan menjadi seperti dibawah ini