Sabtu, 30 September 2023

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

Kamis, 20 Desember 2018

Rabu, 17 Oktober 2018

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

Kamis, 11 Oktober 2018

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

Rabu, 03 Oktober 2018

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

Rabu, 19 September 2018

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.

Minggu, 16 September 2018

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

Sabtu, 15 September 2018

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