Thursday, March 10, 2016

INPUT DATA Sederhana (Simpel VBA) ala CHEFF KJ99, Delicious mmmuuaachhh

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

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites