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 →