Monday, July 25, 2016

Tombol Simpan dan Edit Interaktive VBA Excel


Tombol Simpan dan Edit Interactive - Perhatikan Gambar Gif diatas.!! Tombol Simpan dan Edit Data berada pada satu CommandButton. Sehingga akan lebih terlihat profesional x yeah..!!

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 dapat di kembangkan lagi menurut kemampuan masing-masing.


Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon