Mari kita bahas satu persatu.
Programnya "bersembunyi" dibalik tombol..
Untuk membukanya tekan tombol Alt F11.
Klik "UserForm1" yang ada di sebelah kiri maka pada sisi kanan akan terlihat
UserForm1.
Di sebelah kiri bawah ada tombol "TAMBAH", klik kanan mouse lalu pilih "View
Code". Nah, kelihatan programnya bukan ?
Mari kita bahas programnya sedikit demi sedikit.
Private Sub CMDTMBH_Click() 'awal program
Dim NCMBLN As String 'deklarasi variabel
NCMBLN = CMBLN.Value 'mengambil nama bulan
Dim iRow As Long 'deklarasi variabel
Dim ws As Worksheet 'deklarasi variabel
Set ws = Worksheets(NCMBLN) 'menyimpan data pada worksheet sesuai nama
bulan yang diinput
'menemukan baris kosong pada database --> cari baris ksong (iRow) pd klm1 (A)
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'check untuk sebuah kode --> jika tidak diisi, tampilkan pesan (MsgBox)
If Trim(Me.tkode.Value) = "" Then
Me.tkode.SetFocus
MsgBox "Masukan Kode Barang"
Exit Sub
End If
'copy data ke database (data yang diisi pada form tcode, tnama, tsatuan, tharga)
ws.Cells(iRow, 1).Value = Me.tkode.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tsatuan.Value
ws.Cells(iRow, 4).Value = Me.tharga.Value
MsgBox ("Data Sudah Tersimpan")'pesan pada saat data sdh tersimpan
'clear Data --> kosongkan data pada form (value = "")
Me.tkode.Value = ""
Me.tnama.Value = ""
Me.tsatuan.Value = ""
Me.tharga.Value = ""
Me.tkode.SetFocus 'fokus pada kode
End Sub 'akhir program
Private Sub CMDTTP_Click()
Unload Me 'bebaskan daku (tutup form)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True 'tutupnya harus pake tombol tutup bos
MsgBox "Gunakan Tombol Tutup !!!" 'pesan
End If
End Sub
Private Sub UserForm_Initialize()'tampilkan awal UserForm (pada saat tombol
biru diklik)
With Me 'pilihan bulan pada saat anak panah kecil pada kotak di samping bulan
diklik
.CMBLN.AddItem "Januari"
.CMBLN.AddItem "Februari"
.CMBLN.AddItem "Maret"
.CMBLN.AddItem "April"
.CMBLN.AddItem "Mei"
.CMBLN.AddItem "Juni"
.CMBLN.AddItem "Juli"
.CMBLN.AddItem "Agustus"
.CMBLN.AddItem "September"
.CMBLN.AddItem "Oktober"
.CMBLN.AddItem "Nopember"
.CMBLN.AddItem "Desember"
End With
End Sub
'macro yang diinsert pada tombol biru
Sub FORM()
UserForm1.Show 'tampilkan daku (buka form)
End Sub
Coba renungkan dan jalankan programnya (anda pasti bisa...).
Salam,
HK
On Friday, 15 November 2013, 15:47, Ahmad Syaifullah Lubis
<[email protected]> wrote:
MR HK,
Akhirnya saya dapatin program yang key inputannya berdasarkan "Bulan", kenapa
ya macronya tidak bisa dibuka.
mohon bantuannya.
terima kasih.
ASL
________________________________
To: [email protected]
From: [email protected]
Date: Thu, 14 Nov 2013 07:49:00 -0800
Subject: Re: [belajar-excel] Input Data Keuangan
Maaf pak, saya belum bisa memberikan solusi atas keinginan tersebut. Mungkin
para sesepuh bisa memberikan solusinya.
Salam,
HK
On Thursday, 14 November 2013, 8:21, Ahmad Syaifullah Lubis
<[email protected]> wrote:
Mr HK,
Terus terang saya memang gak paham dengan macro, walaupun ditutorin baca sana
sini, tetep aja gak ngerti. soalnya pernah liat di blog lain tadinya saya mau
copykan macronya tapi sayang saya sudah tidak simpan dalam komputer dan sudah
lupa websitenya. Di situ saya liat, key inputannya nama bulan, jadi setelah
proses input selesai dan akan disimpan atau dicopypastekan, macro akan mencari
key inputan tsb, misal key inputannya "Januari", maka macro akan menyimpan
(copypastekan) ke sheet yang bernama "Januari", begitu seterusnya sehingga
didalam woorkbook tsb akan ada 12 sheet dari nama2 bulan. Jadi keinginan saya
sama juga, Key Inputannya adalah nama Proyek, contoh key inputan "MAN-MNI",
maka copypastenya akan ke sheet yang bernama "MAN-MNI", kalau keynya "MAN-BJA"
maka copypastenya ke sheet "MAN-BJA", begitu seterusnya. Sedangkan yang saya
maksud dengan Print Data Base di sini adalah suatu proses inputan atau
melihat inputan baik akan dilihat atau diedit, maka selain bisa dicopypaste ke
sheet dari Masing2 Nama Proyek, juga bisa diprint hasil inputannya (semacam
invoice/voucher begitu).
di form Nama Proyek bisa dipilih2 sesuai dengan proyek yang diinginkan.
Sekali lagi, harapan saya, bisa dibantu lagi oleh Mr HK, atau Mr dan Mrs
lainnya.
terima kasih.
ASL
________________________________
To: [email protected]
From: [email protected]
Date: Wed, 13 Nov 2013 01:14:33 -0800
Subject: Re: [belajar-excel] Input Data Keuangan
Pak ASL,
Pertama-tama ingin saya sampaikan bahwa kehendak kita kadang2 belum tentu
sesuai dengan kaidah database yang baik (sesuai petunjuk Mr Kid dalam Kopdar1).
Bila input/hasil input kita sudah memenuhi kaidah tsb maka reportingnya tentu
akan lebih mudah.
"Kehendak" yang belum sesuai adalah menyimpan hasil input per proyek.
Kita bisa "memaksakan" hal tsb waktu menyimpan hasil input namun bagaimana
waktu mengedit (sheet mana yang musti dilihat?)
Walaupun hasil input disimpan di dalam satu sheet bukan berarti kita tidak
dapat membuat outputnya per proyek. Ini bisa dilakukan dengan Data Filter atau
PivotTable seperti yang sering dibahas dalam milis ini (apakah ini yang
dimaksud dengan Print Data Base).
Hal lainnya
Jika ingin memilih nama proyek waktu menginput pada Form maka bisa dibuat data
validation pada sel tsb yang mengacu kepada suatu daftar proyek (sheet Tabel
Proyek).
Formulir Input memang didesign untuk diisi seluruhnya (tidak ada blank cell).
Ini tercermin dari perintah :
Set Form1 = Range(Range("F7"), Range("F7").End(xlDown))
Semoga dengan penjelasan ini anda bisa melakukan modifikasi.
Jika masih ada kesulitan, silakan disampaikan kembali ke milis.
Salam,
HK
On Wednesday, 13 November 2013, 14:57, Ahmad Syaifullah Lubis
<[email protected]> wrote:
Mr HK,
saya sudah sesuaikan dengan kehendak saya. kalau bisa mohon ditambahkan lagi
dong, seperti Print Data Base, pemilihan Nama Proyek. Dari Nama proyek yang
dipilih dan penginputan akan dieksekusi (Save Your New Input), makan hasil
inputan tsb (copy pastenya) akan disimpan dalam sheet dari nama proyek yang
dituju. Misal kalau nama proyeknya MAN-MNI maka hasil input/copy pastenya ke
sheet yang bernama MAN-MNI.
mudah2an Mr HK bisa membantu saya.
terlampir file yang dimaksud.
terima kasih.
ASL
________________________________
To: [email protected]
From: [email protected]
Date: Mon, 11 Nov 2013 23:52:46 -0800
Subject: Fw: [belajar-excel] Input Data Keuangan [1 Attachment]
Nah, ini filenya....
On Tuesday, 12 November 2013, 14:47, hendrik karnadi <[email protected]>
wrote:
Coba cari di file milis (file Mbak Siti).
Form Input dan Lihatnya dipisah, Sheet Input dan Databasenya berada dalam satu
workbook (bahkan ada tambahan Historcal Sheet - ide dari Mr. Kid).
Setelah dipelajari, coba sesuaika nama2 kolomnya.
Selamat mencoba.
Salam,
HK
On Tuesday, 12 November 2013, 14:12, Ahmad Syaifullah Lubis
<[email protected]> wrote:
Hallo BeExceller
Udah lama nih gak aktif (aktif nanya melulu
Saya dapat dari teman, file input data keuangan, namun tidak dapat jalan. saya
liat programnya, namun saya tidak bisa memperbaikinya. mohon bantuannya dong,
agar program tsb bisa jalan, syukur2 ditambah lagi dengan penyempurnaan yang
lebih bagus. Inti programnya sih hanya hasil inputan data keuangan bisa
dimasukkan ke database. Keinginan saya sih, waktu input Kode Act akan muncul
nama account yang dimaksud. Lebih2 kalau ada program cetak voucher
keluar/masuknya. yah berharap sangat ada membantu saya, yang dah gak sanggup
bermacro, cuman pinginnya kerjaannya terbantu dengan macro.
terima kasih.
ASL.
