DASAR-DASAR KODE MACRO EXCEL - VBA

KODE MACRO DASAR-DASAR EXCEL -VBA
Anda juga dapat mengunduh Aplikasi Form Login Dengan Sistem ON OFF

Memberikan hasil yang maksimal dan kenyamanan terhadap pengunjung termasuk prioritas kami, sehingga ini akan sangat detail dan singkat. Kami harap Anda meluangkan waktu beberapa menit untuk membaca dan praktek secara cermat dan pasti.

KODE MACRO DASAR DAN CARA MEMBACANYA
Dibawah ini adalah bagian dari dasar-dasar kode macro dari banyak dasar-dasar kode macro

Memanggil Sheets (SELECT adalah dipilih)
Sheets ("Sheet1").Select
Memanggil range tertentu
Range ("A1").Select

Menyembunyikan kolom tertentu (TRUE bernilai 0 / hide dan FALSE bernilai 1 / unhide)
Range("A:B").EntireColumn.Hidden = True
mengembalikan kolom yang tersembunyi
Range("A:B").EntireColumn.Hidden = False
Menyembunyikan cell caranya juga sama dengan diatas hanya saja merubah entirerow
Range("A:B").EntireRow.Hidden = True
mengembalikan Range yang tersembunyi
Range("A:B").EntireRow.Hidden = False

Menampilkan/memanggil userform (SHOW adalah tampil)
UserForm1.Show

Menyembunyikan userform
Unload Me atau Hide atau End atau UserForm1.Hide

Memanggil sheet1 dan menyembunyikan sheet2 (0 adalah xlSheetHidden -1 adalah xlSheetVisible dan 2 adalah xlSheetVeryHidden)

Sheets ("Sheet1").Select
Sheets ("Sheet2").Visible = 0

Jika Anda mempunyai 30 Sheets maka ini akan sangat panjang, bagaimana solusinya, mungkin memakai fungsi LOOPING dengan For Each lebih simpel.

Dim sembunyiselainaku as worksheet
For Each sembunyiselainaku In WorkSheet
sembunyiselainaku.Visible = sembunyiselainaku .Name = "Sheet2"
Next sembunyiselainaku

menampilkan Sheets yang dihide atau yang disembunyikan caranya sama dengan yang diatas, Anda hanya mengganti angka 0 dengan -1. Lalu bagaimana dengan cara menampilkan banyak sheets yang disembunyikan?, Salh satu caranya adalah ini.
Dim sembunyiselainaku as worksheet
For Each sembunyiselainaku In WorkSheet
sembunyiselainaku.Visible = True
Next sembunyiselainaku

Pertama excel dibuka maka pasti sheet1 yang muncul (ini berada di projec thisworkbook)
Sub WorkBook_Open()
Sheets("Sheet1").Select
Range("A1")="www.mtsbmtumbrasanom.id"
End Sub

Ketika excel dibuka maka userform muncul dan workbook disembunyikan (ini berada di projec thisworkbook)

Sub WorkBook_Open()
Application.Visible=False
Userform1.show
End Sub

Membuat kotak pesan, contoh jika excel pertama dibuka maka muncul pesan (ini berada di projec thisworkbook)
Sub Workbook_Open()
MsgBox "Selamat datang di contoh aplikasi sederhana"

membuat kotak pesan dengan tombol yes dan no
msgbox "apakah anda ingin masuk ke aplikasi?",vbYesNo
Select Case
Case vbyes
Application.visible=true
Unload me
Case vbno
Application.visible=false
Application.Quit

KETERANGAN
Artikel ini bisa berubah sewaktu-waktu, baik itu bertambah ataupun berkurang

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"

Jabat Erat@Hak Cipta 2015