Assalamualaikum...
BismillahiRohmaniRohim
kali ini kita belajar bersama membuat Input Data Sederhana pada Worksheet saja tanpa Form VBA
OK... langsung saja kita mulai CEKIDOT...
==========================================
Alat dan Bahan :
==========================================
- 1 siung File Excel ber extensi macro dicincang halus menjadi 4 sheet di rename seperti dibawah ini
- 1 keranjang Tabel DATA Penjualan di bersihkan bagian isinya kemudian di format center aligment
font, di copy ke 3 sheet JAN, FEB, MAR (model bulan)
- 1 Kg Sheet untuk input data
- 2 ikat ComboBox atau gantikan dengan bahan alternatif ValidationLIST,
- 1 Sendok Teh Tabel Input di aduk rata dengan model sedemikian rupa
- 1 batang BUTTON CONTROL di rename Hajarrrrrr.... , speerti dibawah ini
- Bumbu Penyedap MODULE dan SCRIPT sederhana sebagai bumbu utama
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
===================================================
Cara Pembuatan :
===================================================
1. Siapkan semua Bahan di File tadi
2. Panaskan bahan pertama menggunakan ALT F11 dan gunakan suhu sedang dengan menekan tab Insert pilih MODULE
2. Masukkan Bumbu Penyedap dan Bumbu Utama dibawah ini kedalam Modul (copy paste ke dalam
modul
Dim Ulangi, TglBarangMsk As Long 'LONG deklarasi bernilai bilangan dengan jangkauan yang besar
Dim namaSHEET As String 'STRING adalah deklarasi bernilai text
'ini deklarasi agar tujuan penyimpanan data adalah sesuai sheet pilihan
Dim masukan, keluaran As Range 'Range adalah Deklarasi untuk area atau Cell pada sheet
Sub Hajarrr()
With Sheets("InputData") ' with digunakan untuk menentukan lokasi eksekusi macro
namaSHEET = .Range("B5").Value 'mengambil nama sheet tujuan penyimpanan dari validation list
TglBarangMsk = .Range("c5").Value 'Mengambil Titik Kolom Penyimpanan
End With 'menutup lokasi tujuan proses deklarasi
With Sheets(namaSHEET)
For Ulangi = 1 To 5 'karena jumlah baris item barang ada 5, maka berulang FOR 1 s/d 5
'Set digunakan agar deklarasi "masukan" dan "keluaran" bisa diisi nilai
Set masukan = Sheets("InputData").Cells(Ulangi + 7, 3)
'Nilai 3, 7 silahkan ubah sesuai posisi tabel anda
Set keluaran = Sheets(namaSHEET).Cells(Ulangi + 3, TglBarangMsk + 3)
keluaran = masukan.Value 'VALUE adalah nilai
Next
End With
End Sub
3. Simpan kedalam piring hidangan (SAVE hasil Kerja Anda
4. Silahkan dicicipi seperti contoh dibawah ini
This is it.................. INPUT DATA Sederhana ala CHEFF KJ99
silahkan dicicipi filnya DISINI
semoga bermanfaat, jangan lupa komentar dan kritiknya ya... ^_^
Salam
KJ99
CHEFF
3 komentar:
pak... bisa ga setelah klik hajar angka2 yg ada di kolom jumlah sheet inputdata hilang?
terima kasih...
Bisa,
Coba tambahkan script
SheetX.Range("area_yg_akan_dihapus").value=""
it works... makasih sangat :D
Post a Comment