Coding VBA Macro Excel Membuat Textbox Hanya Bisa diisi Angka Saja Versi #02

Cara kedua untuk membuat textbox hanya bisa di isi dengan angka saja yang ini dieksekusi ketika event ada perubahan pada textbox jumlah. 

Berikut codingnya :

Private Sub txtJumlah_Change()

If txtJumlah = vbNullString Then Exit Sub

If Not IsNumeric(txtJumlah) Then

        MsgBox "Hanya bisa diisi dengan angka!!!", vbInformation, ".:: INFO ::."

        txtJumlah = vbNullString

End If

End Sub

Semoga bermanfaat

Selengkapnya →

Menampilkan Row 1 dan Column A yang dihidden

Private Sub CommandButton1_Click()
    If Columns("A").Hidden = False Then
        Columns("A").Hidden = True
    Else
        Columns("A").Hidden = False
    End If
End Sub

Selengkapnya →

Coding VBA Macro Excel Membuat Textbox Hanya Bisa diisi Angka Saja Versi #01

Ada kalanya dalam sebuah textbox kita harus mengisikan angka saja, seperti jumlah suatu barang atau jumlah uang. Hal ini dikarenakan data ini nanti akan di kalkulasi atau dihitung dengan data angka yang lain. Apabila dalam textbox tersebut bisa diisi selain angka, besar kemungkinan akan terjadi error apabila user salah input data.

Bagaimana untuk mengantisipasi agar user hanya bisa menginput angka saja? Berikut adalah contoh yang saya gunakan pada "Tjumlah"  (textbox dengan nama Tjumlah) yang saya buat hanya bisa diisi angka saja. Event yang dideteksi adalah pada saat textbox tersebut diisi atau keypress. Dari event ini kita bisa memilih keyascii agar huruf atau inputan selain angka tidak bisa masuk. ASCII (American Standart Code Information Interchange) adalah suatu standar internasional dalam kode huruf dan simbol seperti Hex dan Unicode.

Berikut coding yang digunakan,

Private Sub Tjumlah_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii

    Case 48 To 57, 44, 46

    Case Else

        MsgBox "Hanya angka yang bisa dimasukkan", vbCritical + vbOKOnly, "Warehouse"

        KeyAscii = 0

End Select

End Sub

Semoga bermanfaat

Selengkapnya →

Coding VBA Macro Excel Memberikan Jeda Waktu ( Wait Method)

Metode Tunggu menangguhkan semua aktivitas Microsoft Excel dan dapat mencegah Anda melakukan operasi lain di komputer Anda sementara Tunggu berlaku. Namun, proses latar belakang seperti pencetakan dan rekalkulasi terus berlanjut

Berikut coding yang di pakai untuk wait method

Application.Wait (Now + TimeValue("0:00:01"))

Semoga bermanfaat

Selengkapnya →

Mencari Hari Kelahiran dan Weton (Neptu) Dengan Excel

Kamu orang jawa, bisa komputer tapi bingung cari weton? Apa kamu akan mencari kalender untuk mencari hari kelahiranmu? Atau ke tempat orang yang paham akan hitungan jawa?Jangan bingung, kamu bisa gunakan fasilitas menu formula di excel untuk mencari weton sesuai tanggal yang kamu berikan. Bagaimana mencarinya ?

Dengan memadukan fungsi MOD dan VLOOKUP kita bisa gunakan untuk mencari weton. Logika yang digunakan adalah dengan mencari nilai sisa pembagian dari rumus MOD, dari hasil MOD itu, kita lanjutkan dengan menggunakan VLOOKUP untuk pencarian hari dan wetonnya. Berikut langkah-langkah untuk mencari weton di excel :

1. Persiapan

 Buatlah tabel hari dan weton seperti gambar di bawah ini

2. Rumus

Masukkan rumus di bawah ini pada cell F5 untuk menentukan hari

=VLOOKUP(MOD(F4,7),A4:B10,2,FALSE)

Masukkan rumus di bawah ini pada cell F6 untuk menentukan pasaran

=VLOOKUP(MOD(F4,5),A12:B16,2,FALSE)

Masukkan rumus di bawah ini pada cell G5 untuk mencari nilai weton dari hari

= VLOOKUP(MOD(F4,5),A12:B16,3,FALSE)

Masukkan rumus di bawah ini pada cell G5 untuk mencari nilai weton dari pasaran

=VLOOKUP(MOD(F4,5),A12:B16,2,FALSE)

Selamat mencoba

Selengkapnya →

Coding VBA Macro Excel Menampilkan Multiple Userform dan Berfungsi Semua

Ketika kita run program dan menampilkan userform berikutnya, maka userform yang pertama seolah-olah mati atau disfungsi dan akan bisa digunakan lagi ketika userform terakhir muncul di close. Hal ini terjadi karena setting default dari VBA Excel ini dibuat seperti itu.

Bagaimana kita bisa menggunakan kedua userform berfungsi ketika di jalankan bersama-sama? Mari kita simak langkah-langkah berikut :

Persiapan

1. Bukalah program excel dengan mengaktifkan visual basic for application atau menekan tombol Alt+F11 pada keyboard.

2. Buatlah dua userform dengan masing-masing diberikan texbox untuk test apakah kedua userform bisa digunakan

3. Buatlah 1 button pada userform pertama yang berfungsi untuk menampilkan userform2

Setting Properties

Untuk bisa memfungsikan multiple userform kita setting pada properties masing-masing userform. Bagian yang kita cari adalah pada showmodal.

Bagian yang berwana biru (showmodal) pada masing-masing userform dibuat false, maka multiple userform bisa diaktifkan.

Selamat mencoba, semoga bermanfaat.

Selengkapnya →

Coding VBA Macro Excel Filter Data ListBox

Filter sangat penting sekali untuk mempermudah user mencari data berdasarkan kriteria tertentu. Pada kesempatan kali ini saya akan bagikan salah satu cara filter data yang ada di listbox dengan kriteria tertentu.

Persiapan :

1. Siapkan sebuah worksheet dengan nama sheetnya "databarang" yang terdiri 5 kolom dengan rincian seperti di bawah ini :

2.  Siapkan sebuah userform yang memiliki satu textbox dan satu listbox

Coding :

Berikut code yang diisi untuk filter di atas :

1. Membuat coding untuk pengisian listbox saat pertama kali ditampilkan

Private Sub UserForm_Activate()

Set ws = Sheets("databarang")

ws.Activate

ibow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(0, 0).Row

ListBox1.RowSource = "a2:e" & ibow

End Sub

2. Membuat sub tampilsemua untuk menampilkan semua isi data pada saat textbox kosong

Sub tampilsemua()

Set ws = Sheets("databarang")

ws.Activate

ibow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(0, 0).Row

If ibow > 3 Then

    ListBox1.RowSource = "a2:e" & ibow

    

Else

    ListBox1.RowSource = ""

End If

End Sub

3. Event yang dilakukan saat textbox1 terdapat perubahan

Private Sub TextBox1_Change()

If Me.TextBox1.Text = "" Then

    tampilsemua

Else

    Dim myTange As Range

    Dim criteria As Range

    Set ws = Sheets("databarang")

    ibow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(0, 0).Row

    Set myTange = ws.Range("a2:e" & ibow)

    Set criteria = ws.Range("i2:i3")

    

    ws.Range("i2") = "Nama Barang"

    ws.Range("i3") = "*" & TextBox1.Text & "*"

    myTange.AdvancedFilter xlFilterCopy, criteria, ws.Range("k2:o2"), False

    

    ibow2 = ws.Cells(ws.Rows.Count, 11).End(xlUp).Offset(0, 0).Row

    If ibow > 2 Then

        ListBox1.RowSource = "k2:o" & ibow2

    Else

        ListBox1.RowSource = ""

    End If

End If

End Sub

Semoga bermanfaat

Selengkapnya →

Coding VBA Macro Excel Menyembunyikan Worksheet dan Menampilkan Userform Saja

Pada umumnya programmer hanya menampilkan aplikasi saja pada program yang dibuatnya, tanpa menunjukkan basic data base progamnya. Pada kesempatan kali ini saya akan berikan contoh coding untuk menyembunyikan workbook excel dan hanya userform saja yang di tampilkan.

Logika yang di gunakan untuk melakukan hal di atas adalah pertama kita memberikan kode membuka userform saat file dibuka. Kedua, memberikan kode untuk menyembunyikan workbook saat userform sudah tampil, dan jangan lupa memberikan tombol untuk menampilkan workbook kembali untuk melihat ulang isi data kita. Berikut codingnya :

Sebelumnya siapkan file excel baru dengan satu userform dan lanjutkan langkah di bawah ini 

1. Membuat coding menampilkan userform saat file di buka
    Ketikkan kode berikut pada workbook
     Private Sub Workbook_Open()
              UserForm1.Show
     End Sub

2. Membuat coding menyembunyikan workbook
      Private Sub UserForm_Activate()
                 Application.Visible = False
      End Sub

3. Menambahkan tombol menampilkan workbook
      Private Sub CommandButton1_Click()
                Application.Visible = True
       End Sub

Semoga bermanfaat

Selengkapnya →

Coding VBA Macro Excel Menampilkan Program Saat File Dibuka

Bagaimana membuat coding agar program yang kita buat langsung jalan saat file kita buka? Pertanyaan ini pernah muncul di benak saya saat awal-awal mengenal VBA macro excel. Kalau di dalam pembuatan program melalu visual basic studio, pengaturan tampilan bisa dilakukan setting pada properties project. Sedangkan untuk VBA kita harus kasih tombol tambahan atau coding dulu untuk menampilkan program buatannya. Bagaimana caranya? Berikut langkah-langkah yang dilakukan untuk menampilkan program saat file dibuka

Persiapan

1. Buat sebuah file excel yang disimpan dengan format macro enable.

2. Masuk diprogram  developer seperti biasa dan buat sebuah userform (nama suka-suka saja), kali ini saya insert sebuah userform tanpa mengganti setting properties sama sekali.

Double click item workbook untuk membuka jendela coding pada workbook, cari event open dan masukkan kode berikut :

     Private Sub Workbook_Open()
              UserForm1.Show
     End Sub

Ok, selesai, jangan lupa disimpan dulu, kemudian close filenya dan buka kembali.

Selamat mencoba

Selengkapnya →

Coding VBA Macro Excel Membuka File Excel

Untuk membuka file kita bisa lakukan dengan coding macro agar nampak lebih keren.
Berikut coding yang bisa kita gunakan

Sub BukaFileExcel()

Dim OpenFile As Excel.Workbook

'On Error Resume Next
Application.ScreenUpdating = False

Set OpenFile = Workbooks.Open(*'Silakan ganti alamat file disini'*) 

End Sub

Penggunaan ini bisa kita gabungkan dengan postingan sebelumnya membuka kotak dialog untuk mencari lokasi filenya.

Selengkapnya →

Coding VBA Macro Excel Membuka Kotak Dialog

Untuk membuka file yang telah disimpan yang biasanya menggunakan fungsi open Ctrl + O. Open disini dia akan membuka kotak dialog untuk memilih file dan lokasinya. Hal bisa juga dilakukan dengan coding macro. Dengan cara ini bisa kita fungsikan untuk mensinkronkan antar file.

Contoh dari coding tersebut adalah sebagai berikut :

Private Sub CmdCariKT1_Click()
Dim fNameAndPath As Variant

 fNameAndPath = Application.GetOpenFilename(FileFilter:="Laporan (*.XLSx), *.XLSx", Title:="Select File Report To Be Opened")
 If fNameAndPath = False Then Exit Sub
Text1.Value = fNameAndPath
End Sub

Dari fungsi ini kita bisa menemukan filename yang di tunjukkan pada text1.

Selengkapnya →

Coding VBA Macro Excel Mencari Baris Terakhir

Untuk penyimpanan data baru pada umumnya diletakkan setelah baris terakhir dari semua data, untuk itu perlu kita mencari pada baris keberapa data terakhir yang kita miliki,

Berikut contohnya pencarian baris terakhir

Sub CariDataTerakhir ( )

Dim Baris as Long
Dim ws As Worksheet
Set ws = Worksheets("db_BarangMasuk")

Baris = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

End Sub

Selain untuk menyimpan data baru, biasanya digunakan untuk pembuatan nomor urut yang baru dari sebuah data, sebagai contoh seperti berikut ini :

Sub CariDataTerakhir ( )

Dim Baris as Long
Dim ws As Worksheet
Set ws = Worksheets("db_BarangMasuk")

Baris = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

NomerUrutTerakhir = ws.Cells(Baris - 1, 1).Value
     NomorBaru = NomerUrutTerakhir + 1

        
End Sub

Keterangan :
Pada bagian baris berfungsi mencari baris pertama yang kosong dari semua data, untuk data terakhir terletak pada fungsi baris-1

Selengkapnya →

Coding VBA Macro Pencarian Data Dalam Worksheet

Untuk pencarian data dalam fungsi macro visual basic for application excel menggunakan fungsi "find"

Contohnya sebagai berikut :
Di bawah ini adalah contoh pencarian pada worksheet "Kartu_Stok" dengan kata kunci "tepung", sedangkan range yang di cari pada semua cell worksheet dari cell A1 sampai XFD1000

Dim WS As Worksheet
Set WS = Worksheets("Kartu_Stok")

With WS.Range("A1:XFD1000")
Set c = .Find("tepung", LookIn:=xlValues)

If Not c Is Nothing Then
     Baris = c.Row
End If

Keterangan
WS adalah worksheet dimana data yang akan dicari
If Not c is nothing adalah apa yang akan dilakukan jika data ketemu, untuk mengantisipasi jika terjadi error data tidak ada, bisa juga mengguanakan on error resume next di bawah sub()

Selengkapnya →

Membuka Excel Dengan Run

Membuka Excel dengan RUN

"Banyak jalan menuju Roma", mungkin itu salah satu pepatah yang sering di dengar orang. Pepatah ini berarti "banyak cara untuk mencapai suatu tujuan". Begitu juga dengan membuka program microsoft excel. Banyak cara yang bisa dilakukan untuk membuka program ini salah satunya dengan menggunakan RUN.

Membuka Excel dengan menu RUN adalah salah satu cara membuka program ini dengan cepat selain  melalui program start. Hanya beberapa langkah yang dilakukan apabila kita menggunakan program RUN. 

Berikut langkah-langkah untuk membuka excel dengan RUN :

1. Tekan tombol windows dan "R" secara bersamaan untuk membuka program "Run"
2. Pada kotak dialog program Run ketik "Excel"
3. Enter atau OK

Cukup mudah dan lebih cepat, kita tidak perlu menggunakan mouse untuk melakukannya. Demikian tadi cara membuka excel dengan run , semoga bermanfaat.

Selengkapnya →

Membuka Protectsi Worksheet

Membuka proteksi worksheet

Betapa pentingnya data, mengharuskan untuk dilindungi atau diproteksi. Dengan data diproteksi pengguna lain yang tidak mengetahui passwordnya tidak akan bisa mengubah ataupun membuka data yang kita buat. Tapi kita sendiri juga tidak bisa mengedit data yang terlindungi. Apabila ingin mengedit atau merubah data kita harus unprotect sheet dulu. File yang terlindungi dapat kita buka dengan membuka proteksi worksheet . Cara ini sangat mudah dengan menggunakan unprotect sheet.

Berikut cara untuk membuka proteksi worksheet:

1. Pastikan kita ingat passwordnya apabila proteksi menggunakan password
2. Klik tombol unprotect sheet pada menu ribbon review
3. Masukkan password
4. Enter atau OK apabila password sudah benar

Apabila proteksi tidak diberi password otomatis sudah terbuka ketika kita klik menu unprotect sheet. Demikian tadi cara membuka proteksi worksheet . Cukup mudah kan.. Semoga bermanfaat.

Selengkapnya →

Menampilkan Ruler pada Excel

Menampilkan Ruler Pada Excel

Menampilkan Ruler Pada Excel akan membantu pengguna dalam penataan page layout. Untuk mengetahui letak hasil yang di buat, presisi dengan tepian kertas, akan lebih mudah apabila ruler atau penggaris ditampilkan.

Menampilkan Ruler Pada Excel hanya bisa dilakukan pada tampilan mode page layout. Untuk merubah tampilan ke mode page layout bisa di pelajari di postingan Merubah mode workbook views. Hanya dengan mode page layout ruler akan bisa ditampilkan, karena pada mode yang lain ruler tidak akan terlihat.

Bagaimana menampilkan ruler pada excel ? Berikut langkah-langkahnya;

1. Pastikan mode workbook views berada pada page layout
2. Klik Menu Ribbon View
3. Klik pada ruler
4. Beri tanda centang untuk menampilkan dan hilangkan tanda centang untuk menyembunyikan

Demikian tadi cara Memanpilkan Ruler pada Excel, semoga bermanfaat.

Selengkapnya →

Melindungi atau Memprotect Worksheet

Melindungi atau Memprotect Worksheet

Melindungi atau Memprotect Worksheet sangatlah penting kita ketahui untuk melindungi data yang telah dibuat. Keamanan data sangatlah penting, apalagi apabila data yang dimiliki bersifat rahasia. Kerjaan dengan data banyak dan detil sangat penting untuk dilindungi agar meminimalisir kesalah pencet ataupun diganti orang lain. 

Bagaimana melindungi data? disini nanti akan saya bahas langkah-langkah untuk melindungi worksheet. Berikut adalah cara memprotect worksheet :

1. Pada ribbon menu, sorot bagian "Review"
2. Klik pada "Protect Sheet"
3. Ketika muncul kotak dialog protect sheet isikan password kalau ingin memberi password.
4. Pilih akses apa saja yang diperbolehkan ketika sheet di protect dengan memberi tanda centang pada list option.
5. Ketika di beri password di di form berikutnya kita akan di arahkan untuk confirmasi password yang telah dibuat.
6. Klik "OK"

Ketika worksheet telah di protect dan user mencoba mengedit, maka akan keluar pemberitahuan seperti di bawah ini.

Pengguna akan diminta untuk membuka proteksi worksheet yang akan di edit. Dengan demikian apabila yang sedang menggunakan file tersebut tidak tahu password untuk membuka, maka tidak akan bisa merubah isi dari worksheet dan file tetap aman.

Demikian tadi cara Melindungi atau memprotect worksheet. Semoga bermanfaat dan data tetap aman.

Selengkapnya →

Menyembunyikan dan Menampilkan WorkSheet

Menyembunyikan dan Menampilkan worksheet

Menyembunyikan dan Menampilkan Worksheet berguna untuk membantu user lebih fokus bekerja pada worksheet yang dibutuhkan dan memudahkan mencari sheet tersebut. Menyembuyikan worksheet bisa di lakukan apabila memiliki sheet lebih dari satu. Hal ini karena pengaturan dari excel mengharuskan minimal ada satu sheet yang ditampilkan dalam workbook. Dengan menyembunyikan sheet yang belum dipakai user akan lebih berkonsentrasi pada lembar kerja yang dikerjakan dan lebih cepat pencariannya.

Bagaimana cara menyembunyikan dan menampilkan worksheet? Berikut adalah langkah-langkah menyembunyikan worksheet ;

1. Klik kanan pada tab sheet yang akan disembunyikan
2. Pilih "Hide" 
3. Secara langsung akan disembunyikan worksheet tersebut.

Selanjutnya menampilkan worksheet yang disembunyikan, langkahnya adalah berikut ;

1. Klik kanan pada tab sheet
2. Pilih Unhide
3. Kemudian akan muncul list worksheet yang di sembunyikan
4. Pilih worksheet yang ingin ditampilkan
5. Klik "OK"

Dengan mengatur worksheet yang ditampilkan maupun yang disembunyikan, kerja akan lebih fokus dan lebih cepat mencarinya. Demikian tadi cara menyembunyikan dan menampilkan worksheet. Semoga bermanfaat.

Selengkapnya →

Memberi Warna Tab Woksheet

Memberi warna tab worksheet

Memberi warna pada tab sheet atau tab worksheet biasanya bertujuan untuk memudahkan pencarian sheet  dengan kode warna tertentu.Memberi warna pada sheet juga memberikan tampilan yang lebih menarik pada excel. Untuk user yang menggunakan banyak sheet, pemberian warna pada umumnya untuk pengelompokan atau grouping sheet. Jadi warna pada tab sheet bisa memberikan tampilan yang lebih menarik dan memudahkan pencarian sheet.

Untuk memberi warna pada tab worksheet langkah-langkah yang dilakukan adalah sebagai berikut :

1. Klik kanan sheet yang akan di beri warna
2. Sorot pada tab color
3. Pilih warna yang diinginkan
4. OK selesai

Tidak sulit untuk memberi ataupun merubah warna sheet bukan. Demikian tadi cara memberi warna pada tab worksheet. Semoga bermanfaat.

Selengkapnya →

Mengganti Nama Worksheet

Mengganti nama worksheet

Mengganti nama worksheet diperlukan untuk mempermudahkan mencari sheet yang telah di buat. Terkadang orang membuat file excel lebih dari 10 sheet dalam workbooknya. Apabila sheet-sheet tersebut tidak diganti namanya maka sheet yang dibuat akan Dengan di gantinya nama worksheet user akan lebih cepat mencari sheet yang diperlukan.

Untuk mengganti nama worksheet langkah-langkah yang diperlukan adalah sebagai berikut :

1. Klik kanan pada tab sheet yang akan di ganti namanya
2. Pilih rename maka cursor akan mengarah pada nama sheet
3. Ketik nama sheet baru
4. Selesai

Mengganti nama woksheet telah selesai, semoga bermanfaat.

Selengkapnya →