Monday, July 25, 2016

Tombol Simpan dan Edit Interaktive VBA Excel

Tombol Simpan dan Edit Interactive - Perhatikan Gambar Gif di bawah.!! Tombol Simpan dan Edit Data berada pada satu CommandButton. Namun memiliki fungsi yang berbeda saat kondisi berbeda.

Membuat tombol yang memiliki fungsi lebih dari satu akan menghembat Spaci UserForm sehingga aplikasi akan lebih terlihat profesional.


Langkah-langkah membuat Tombol Simpan dan Edit Interaktive dengan VBA Excel
  • Buka Excel, Klik Developer dan Pilih Visual Basic atau tekan tombol Ctrl + F11
  • Tambahkan Userform1 dan Lengkapi komponen2 yang dibutuhkan sebagai berikut :
TextBox 
Textbox1, Textbox2 dan Textbox3 biarkan saja apa adanya tanpa mengedit lagi Propertiesnya. bisa di sesuaikan dengan selera anda sendiri juga..

Ganti Caption Label
Label1 Caption "NIS"
Label2 Caption "NAMA"
Label3 Caption "ALAMAT"

Ganti Caption CommandButton
CommandButton1 Caption "Edit/Save"
CommandButton2 Caption "Clear"
CommandButton3 Caption "Close"

ListBox
Tambahkan Satu Buah ListBox untuk menampilkan data yang ada pada database. Menampilkan data ke Listbox dapat dibaca pada posting : Tampilkan Data di ListBox di UserForm VBA Excel
  • Jika sudah membuat userform1 serta komponen-komponen yang dibutuhkan selanjutnya kita ngopi dulu dah yeah..!!! hehehe.. Next.....!!
  • Selanjutnya tambahkan atau Insert Modul1 dan Isikan dalam Modul1 Kode berikut ini 
Option Explicit

Dim id As Integer, i As Integer, j As Integer, flag As Boolean

Sub GetData()

If IsNumeric(UserForm1.TextBox1.Value) Then
    flag = False
    i = 0
    id = UserForm1.TextBox1.Value
 
    Do While Cells(i + 1, 1).Value <> ""
 
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 3
                UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
            Next j
        End If
     
        i = i + 1
     
    Loop
 
    If flag = False Then
        For j = 2 To 3
            UserForm1.Controls("TextBox" & j).Value = ""
        Next j
    End If
 
Else
    ClearForm
End If

End Sub

Sub ClearForm()

For j = 1 To 3
    UserForm1.Controls("TextBox" & j).Value = ""
Next j

End Sub

Sub EditAdd()

Dim emptyRow As Long

If UserForm1.TextBox1.Value <> "" Then
    flag = False
    i = 0
    id = UserForm1.TextBox1.Value
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
 
    Do While Cells(i + 1, 1).Value <> ""
 
        If Cells(i + 1, 1).Value = id Then
            flag = True
            For j = 2 To 3
                Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
            Next j
        End If
     
        i = i + 1
     
    Loop
 
    If flag = False Then
        For j = 1 To 3
            Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
        Next j
    End If
 
End If

End Sub

  • Letakkan kode berikut ini pada UserForm1 dan sesuaikan saja dengan Komponen-komponen yang anda buat.
Option Explicit
Private Sub Label8_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink "http://www.senbakusen.com"
ActiveWorkbook.Close savechanges:=True
End Sub

Private Sub UserForm_Initialize()
Call tambahNIS
Call DataList
'Tempatkan kode ini di userform_initial
Call RemoveCaption(UserForm1)
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
GetData
End Sub

Private Sub CommandButton1_Click()
EditAdd
End Sub

Private Sub CommandButton2_Click()
ClearForm
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub


Sub tambahNIS()
'Tambahkan NIS/Nomor Reg Otomatis
Dim i As Integer
i = Sheet1.Range("A" & Rows.Count).End(xlUp).Text
TextBox1.Value = "000" & i + 1
End Sub

Sub DataList()
With ListBox1
.RowSource = "RData"
.ColumnCount = 3
.ColumnHeads = True
.ColumnWidths = "40, 100, 100"
End With
End Sub

Demikian Kode-kode Untuk membuat UserForm dengan Tombol Simpan dan Edit Lebih Interaktive. Semoga kode yang admin sajikan bisa menjadi referensi bagi yang sedang mencari informasi membuat aplikasi yang memiliki tombol dengan fungsi lebih dari satu.

Dapatkan berbagai macam contoh file penerapan kode dan Aplikasi karya Admin yang disajikan pada blog ini dengan menghubungi WA Admin dengan nomor : 0811-6822-023.

Jika anda memiliki pertanyaan, saran dan kritikan yang membangun untuk admin mohon dapat disampaikan pada kolom komentar yang tersedia dibawah artikel ini.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon