Menggunakan Android untuk Scanner Barcode ke Excel

Bismillahirahmanirahim
Assalamualaikum Wr. Wb.

Sesuai judul, menggunakan Android sebagai Scanner Barcode ke Excel

Melihat salah satu pertanyaan dan status member di grup EIUG tentang scanner barcode saya jadi tertarik untuk membahas hal tersebut karena terkadang kita merasa peralatan untuk aplikasi toko seperti scanner dan aplikasi Kasir cukup mahal selain itu cukup bingung untuk mencari sendiri alatnya dipasaran.
apa fungsi dari sistem ini?
ada beberapa manfaat yang bisa kita dapatkan dari scanner barcode ini, misalnya Aplikasi Kasir Toko, untuk Melacak Kartu Siswa atau Kartu Anggota sebuah Organisasi, atau melacak keabsahan sebuah hasil cetak yang kita beri segel barcode.

setelah membaca beberapa referensi di status tersebut dan mencoba secara langsung aplikasi tersebut bisa dilakukan langsung menggunakan Android dan PC atau Laptop. Ok kita langsung saja ke TKP:

syarat yang diperlukan:

1. Jaringan Wifi atau Bluetooth (PC/Laptop yang memiliki bluetooth), jika PC atau laptop tidak tersedia bluetooth, bisa kita beli assesoris/hardware bluetooth tambahan dan jangan lupa install driver bluetooth nya :)

          contoh bluetooth hardware

          

      2. Driver Barcode Scanner untuk PC/Laptop dapat anda download disini.

      3. Aplikasi Android untuk Scannernya dapat di download disini. kebetulan versi ini adalah versi 

          pro sehingga tidak terbatas lagi pada 10-20 scanner saja.

      4. Microsoft Office Excel (pasti sudah ada), kalau diinginkan menggunakan Worksheet 

          atau userform juga bisa.

Langkah-langkah:

1. Install aplikasi Barcode Reader Pro v1.8.1.apk di android yang tadi anda download
2. Install Driver KinoniWinInstaller281.exe di PC/Laptop yang juga anda download tadi
3. Setting sesuai kebutuhan, jika menggunakan:

Wifi :

• Konekkan Android, PC/Laptop anda ke Wifi anda
• Buka aplikasi barcode reader di android anda,

          

          
          

• Buka Excel / Aplikasi VBA penjualan anda kemudian letakkan kursor pada tempat yang diinginkan (lihat gambar)

          

• Lakukan Scan pada barang yang dinginkan

          

• hasilnya akan otomatis di kursor tadi

          

Dengan menggunakan Bluetooth

• Pastikan bluetooth PC/Laptop Aktif
• Aktifkan Bluetooth Android
• Buka aplikasi Barcode di Android

          

• Buka Setting dan pilih koneksi bluetooth

          

• Buka Excel dan letakkan kursor pada posisi yang diinginkan

          

• lakukan scanner pada barang yang diinginkan

          

• dan lihat hasilnya di excel 

          

Catatan :

• biasanya akan terjadi error 5005 itu dikarenakan salah satu perangkat (Android/PC/Laptop) koneksi ke wifi kurang bagus.
• jika menggunakan bluetooth biasanya juga terjadi error, maka perlu dilakukan pembersihan cache/data di setting aplikasi android anda kemudian aktifkan kembali bluetooth dan lakukan koneksi ulang ke PC/Laptop. 

Sekian tutor menggunakan Android untuk Scanner Barcode ke Excel, semoga bermanfaat
untuk error-error lain yang muncul mohon bantuan teman-teman untuk saling membantu mengatasinya di kolom komentar, semoga cara ini makin sempurna kedepannya.


Salam KJ99



referensi dari artikel ini disini

Read More

Hide dan UNHIDE Cell, Sheet dan Protect Sheet di Excel

Assalamualaikum...

BismillahiRohmaniRohim

sesuai judul ada 3 hal yang kita pelajari bersama sekarang, yaitu :
1. HIDE dan UNHIDE Cell di Worksheet
2. HIDE dan UNHIDE Sheet di File
3. Protect Sheet, tapi jangan tanya cara buka paksa protect sheet ya... saya juga bingung

ok mari kita mulai yang pertama
HIDE dan UNHIDE Cell di sheet
perhatikan animasi berikut...

HIDE dan UNDHIDE Sheet
ada 2 cara, yaitu menggunakan metode biasa di worksheet dan yang kedua menggunakan metode propertise VBA
perhatikan animasi berikut

Materi ketiga adalah Protect Sheet
perhatikan animasi berikut

ok sekian dulu beberapa tutor excel dasar... :)
semoga bermanfaat


Salam KJ99

Read More

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

Read More

RUMUS YANG PALING SERING DICARI DI EXCEL

BismillahiRahmaniRahim

Kita biasanya sering ingin cepat ingin tau beberapa rumus dalam keseharian kita menggunakan Excel baik untuk kebutuhan Bisnis, Admin Kantor maupun kebutuhan lainnya. kali ini kita membahas beberapa rumus excel yang paling sering digunakan atau dicari terutama untuk pemula seperti saya.
artikel ini sebenarnya sudah saya posting sejak tahun 2013 di grup facebook dengan judul aslinya "Rumus Yang Paling Sering Dicari", tetapi kali ini adalah Versi Update untuk formula tambahan CSE (Array Formula).
Disini saya hanya membantu semampunya untuk menjelaskan beberapa rumus yang kebetulan sudah biasa saya digunakan sehari-sehari, antara lain :
1. SUBTOTAL
2. SUMIF
3. OFFSET
4. COUNTIF
5. MATCH
6. VLOOKUP/HLOOKUP/LOOKUP
7. INDEX
8. PROPER/UPPER/LOWER
9. Array FORMULA (CSE)
10. dan lain-lain

untuk melihat contoh penggunaan Rumus-rumus diatas, anda dapat mendownloadnya disini

jangan lupa untuk memberi komentar jika ada kritik atau saran (maklum saya juga masih pemula)

hehehehe

Semoga bermanfaat
Salam KJ99

Read More

Membuat DataBase Siswa

Assalamualaikum Wr. Wb.

Bismillahirohmanirohim...

Lama tidak update blog mas bro, Mbak Sister, Sahabat Guys, Emak Bapak Parents dan the other case... hehehe

seperti biasa blog saya tidak banyak cincong untuk tulisan-tulisan yang membuat semuanya cepat kabur dari sini tetapi saya tau kalau kalian selalu menggeser kursor kebawah untuk mencari link downloadnya (o.. owww... ketahuan deh).... ckckckck

ada beberapa falisilitas dalam file ini, antara lain :
- searching nama
- print out sesuai keinginan, 1 atau beberapa lembar
- Tambah foto atau Ubah Foto
- dsb
 oh iya untuk  BARCODE perlu install dulu file font nya....

cekidot saja dulu screenshoot berikut untuk melihat cara pakainya...

setelah melihat secara singkat anda boleh mendownloadnya disini

Sekian dulu update dari saya KJ99
untuk Password VBA DBsiswaKJ99 silahkan email ke kaharuddinjames@gmail.com
atau komen disini saja

Salam KJ99

Read More

MEMBUAT STEMPEL SENDIRI di Excel

Assalamualaikum

membuat stempel tentu harus dengan ijin dari pihak yang memiliki otoritas pada stempel tersebut
tetapi terkadang kita di beri tugas untuk menduplikasi stempel tersebut kedalam laporan atau kartu-kartu yang terkait dengan lembaga kita

nah kali ini kita coba membuka trik yang boleh dikatakan trik lama dan sangat mudah untuk hal tersebut.
kita persiapkan dulu bahannya :
1. Model Stempel biasanya bulat bisa kita download dari om Google
2. Nama/ Tulisan yang akan di masukkan ke Stempel

Pengerjaannya :

1. Edit Gambar yang kita download
    menggunakan Software Editor Image
    seperti Photosop, Corel, Paint dsb.
    hingga tulisan yang ada pada gambar kosong
    (untuk di isikan sesuai data)
    disini saya pakai Paint (fasilitas windows).

2. insert Picture yang sudah di edit ke Sheet
    Excel
3. Insert Word art dan sesuaikan kebutuhan
    lekukan word dengan gambar stempel yang
    di kehendaki
4. Klik Word art kemudian di kotak bar formula
    tuliskan =A1 , ini asumsi nama sekolah di tulis
                                                                                        di cell A1

5. Klik semua shape, image dan word art
    kemudian Klik kanan Group..
6. Selesai

Contoh File sederhana disini

Semoga bermanfaat :)

Silahkan ke menu HOME untuk artikel menarik lainnya

Read More

TERBILANG untuk KWITANSI dan RAPORT non VBA

Assalamualaikum
kali ini saya menyimpan file ini agar tidak lupa rumusnya jika lama tidak tersentuh...
karena itu penyakit saya yang paling utama (pelupa) :v

"RumusTerbilang" ini merupakan hasil modifikasi dari posting di grup EIUG yang semula hanya bisa hingga ratusan menjadi ratusan Milyar,

Seperti ini kira-kira penampakan

untuk lebih jelasnya silahkan download file disini, silahkan bongkar semua isinya dan digunakan jika perlu atau sebagai referensi saja.

oh Iya file ini Office 2013 jadi mudah-mudahan running di versi lain atau nanti saya mencoba update ke versi binary

Yang perlu dipahami disini adalah untuk penggunaan name manager untuk terbilang Raport, kita perlu memperhatikan posisi sheet dan cell jika ingin di copy dan gunakan di file lain, dengan kata lain seperti ini kronologinya :
- buka define name,
- Cari Bilang saja
- copy rumus di dalamnya dan letakkan di samping cell yang ingin di terjemahkan angkanya
- jika error tekan F2 di keyboard dan lihat referensi rumus kemana :)

untuk Terbilang Kwitansi, cukup copy semua rumus dan letakkan disamping cell tujuan

Semoga bermanfaat,
Salam KJ

Silahkan tekan tombol home dibawah untuk artikel menarik lainnya :)

Read More

GRAFIK YANG PERLU DI PELAJARI

Assalamualaikum

Silahkan simak Video Penggunaan Grafik Berikut dan anda akan bingung seperti saya :v
Setelah saya pelajari baru sedikit yang saya mengerti dari Offset, Mod, Rept, dsb :v
Lumayan buat pala pening

Grafik yang dibuat oleh salah satu Master Excel (Andy Pope)

Nikmati saja,

Silahkan ke Tombol HOME untuk Lihat Artikel lainnya dan artikel terkait disebelah kanan milik teman EIUG.

Salam KJ

Read More

KEYBOARD Shortcuts/ Pintasan di Keyboard

Silahkan Bagikan........

Keyboard Shorcuts (Microsoft Windows)

1. CTRL+C (Copy)
2. CTRL+X (Cut)
3. CTRL+V (Paste)
4. CTRL+Z (Undo)
5. DELETE (Delete)
6. SHIFT+DELETE (Delete the selected item permanently without placing the item in the Recycle Bin)
7. CTRL while dragging an item (Copy the selected item)
8. CTRL+SHIFT while dragging an item (Create a shortcut to the selected item)
9. F2 key (Rename the selected item)
10. CTRL+RIGHT ARROW (Move the insertion point to the beginning of the next word)
11. CTRL+LEFT ARROW (Move the insertion point to the beginning of the previous word)
12. CTRL+DOWN ARROW (Move the insertion point to the beginning of the next paragraph)
13. CTRL+UP ARROW (Move the insertion point to the beginning of the previous paragraph)
14. CTRL+SHIFT with any of the arrow keys (Highlight a block of text)
SHIFT with any of the arrow keys (Select more than one item in a window or on the desktop, or select text in a document)
15. CTRL+A (Select all)
16. F3 key (Search for a file or a folder)
17. ALT+ENTER (View the properties for the selected item)
18. ALT+F4 (Close the active item, or quit the active program)
19. ALT+ENTER (Display the properties of the selected object)
20. ALT+SPACEBAR (Open the shortcut menu for the active window)
21. CTRL+F4 (Close the active document in programs that enable you to have multiple documents opensimultaneou sly)
22. ALT+TAB (Switch between the open items)
23. ALT+ESC (Cycle through items in the order that they had been opened)
24. F6 key (Cycle through the screen elements in a window or on the desktop)
25. F4 key (Display the Address bar list in My Computer or Windows Explorer)
26. SHIFT+F10 (Display the shortcut menu for the selected item)
27. ALT+SPACEBAR (Display the System menu for the active window)
28. CTRL+ESC (Display the Start menu)
29. ALT+Underlined letter in a menu name (Display the corresponding menu) Underlined letter in a command name on an open menu (Perform the corresponding command)
30. F10 key (Activate the menu bar in the active program)
31. RIGHT ARROW (Open the next menu to the right, or open a submenu)
32. LEFT ARROW (Open the next menu to the left, or close a submenu)
33. F5 key (Update the active window)
34. BACKSPACE (View the folder onelevel up in My Computer or Windows Explorer)
35. ESC (Cancel the current task)
36. SHIFT when you insert a CD-ROMinto the CD-ROM drive (Prevent the CD-ROM from automatically playing)

Dialog Box - Keyboard Shortcuts
1. CTRL+TAB (Move forward through the tabs)
2. CTRL+SHIFT+TAB (Move backward through the tabs)
3. TAB (Move forward through the options)
4. SHIFT+TAB (Move backward through the options)
5. ALT+Underlined letter (Perform the corresponding command or select the corresponding option)
6. ENTER (Perform the command for the active option or button)
7. SPACEBAR (Select or clear the check box if the active option is a check box)
8. Arrow keys (Select a button if the active option is a group of option buttons)
9. F1 key (Display Help)
10. F4 key (Display the items in the active list)
11. BACKSPACE (Open a folder one level up if a folder is selected in the Save As or Open dialog box)

Microsoft Natural Keyboard Shortcuts
1. Windows Logo (Display or hide the Start menu)
2. Windows Logo+BREAK (Display the System Properties dialog box)
3. Windows Logo+D (Display the desktop)
4. Windows Logo+M (Minimize all of the windows)
5. Windows Logo+SHIFT+M (Restorethe minimized windows)
6. Windows Logo+E (Open My Computer)
7. Windows Logo+F (Search for a file or a folder)
8. CTRL+Windows Logo+F (Search for computers)
9. Windows Logo+F1 (Display Windows Help)
10. Windows Logo+ L (Lock the keyboard)
11. Windows Logo+R (Open the Run dialog box)
12. Windows Logo+U (Open Utility Manager)
13. Accessibility Keyboard Shortcuts
14. Right SHIFT for eight seconds (Switch FilterKeys either on or off)
15. Left ALT+left SHIFT+PRINT SCREEN (Switch High Contrast either on or off)
16. Left ALT+left SHIFT+NUM LOCK (Switch the MouseKeys either on or off)
17. SHIFT five times (Switch the StickyKeys either on or off)
18. NUM LOCK for five seconds (Switch the ToggleKeys either on or off)
19. Windows Logo +U (Open Utility Manager)
20. Windows Explorer Keyboard Shortcuts
21. END (Display the bottom of the active window)
22. HOME (Display the top of the active window)
23. NUM LOCK+Asterisk sign (*) (Display all of the subfolders that are under the selected folder)
24. NUM LOCK+Plus sign (+) (Display the contents of the selected folder)

MMC COnsole Windows Shortcut keys

1. SHIFT+F10 (Display the Action shortcut menu for the selected item)
2. F1 key (Open the Help topic, if any, for the selected item)
3. F5 key (Update the content of all console windows)
4. CTRL+F10 (Maximize the active console window)
5. CTRL+F5 (Restore the active console window)
6. ALT+ENTER (Display the Properties dialog box, if any, for theselected item)
7. F2 key (Rename the selected item)
8. CTRL+F4 (Close the active console window. When a console has only one console window, this shortcut closes the console)

Remote Desktop Connection Navigation
1. CTRL+ALT+END (Open the Microsoft Windows NT Security dialog box)
2. ALT+PAGE UP (Switch between programs from left to right)
3. ALT+PAGE DOWN (Switch between programs from right to left)
4. ALT+INSERT (Cycle through the programs in most recently used order)
5. ALT+HOME (Display the Start menu)
6. CTRL+ALT+BREAK (Switch the client computer between a window and a full screen)
7. ALT+DELETE (Display the Windows menu)
8. CTRL+ALT+Minus sign (-) (Place a snapshot of the active window in the client on the Terminal server clipboard and provide the same functionality as pressing PRINT SCREEN on a local computer.)
9. CTRL+ALT+Plus sign (+) (Place asnapshot of the entire client window area on the Terminal server clipboardand provide the same functionality aspressing ALT+PRINT SCREEN on a local computer.)

Microsoft Internet Explorer Keyboard Shortcuts
1. CTRL+B (Open the Organize Favorites dialog box)
2. CTRL+E (Open the Search bar)
3. CTRL+F (Start the Find utility)
4. CTRL+H (Open the History bar)
5. CTRL+I (Open the Favorites bar)
6. CTRL+L (Open the Open dialog box)
7. CTRL+N (Start another instance of the browser with the same Web address)
8. CTRL+O (Open the Open dialog box,the same as CTRL+L)
9. CTRL+P (Open the Print dialog box)
10. CTRL+R (Update the current Web )

Read More

Menampilkan data dari beberapa Sheet di Excel tanpa VBA

Assalamualaikum

Menampilkan data dari beberapa Sheet di Excel tanpa VBA, bagi yang sudah biasa dengan excel pasti langsung kepikiran dengan rumus Vlookup, HLookup, Index-Match, atau Offset-Match. Baiklah sekarang kita Siapkan saja file yang berisi beberapa sheet yang didalam setiap sheet terdapat data tabel dengan isi terdiri dari keyword-keyword yang sama, misalnya Nomor Induk Siswa (NIS), NIP, atau kode Barang dan sebagainya.
nah untuk mengolah file tersebut ke sheet laporan karena biasanya dalam sebuah file yang banyak data dan sheet terdapat satu sheet untuk di laporkan hasilnya.

seperti FlowChart berikut :

Setiap tabel yang kita miliki di setiap sheet sebaiknya kita beri nama dengan Name manager agar lebih mudah pemanggilannya tidak perlu lagi bolak-bolik sheet untuk blok tabel, misalnya tabel_data, tabel_kinerja, tabel_Gaji dsb

di sheet laporan kita bisa mengandalkan beberapa rumus untuk eksekusi ke sheet/tabel yang dikehendaki, dalam file sampel kita menggunakan Function CHOOSE sebagai eksekutor pemilih tabel.
Gambaran rumus CHOOSE adalah memilih sesuai perintah urutan :

 syntax : CHOOSE(pilih urutan, Pilihan1, pilihan2, .....dst)

dalam file sampel terdapat tabel Value_01, Value_02, Value_03, dan Cell E2 sebagai index pilihan jadi rumus kita tuliskan : CHOOSE(E2,Value_01,Value_02,Value_03)

untuk eksekusi kita memakai Vlookup sebagai pemanggil data tunggal yang di bungkus dalam name manager (R_Nama dan R_Value).

Properti lain dalam file lampiran adalah Conditional Formatting custom yang mengubah angka ke text seperti pada pilihan Halaman.

Untuk lebih jelasnya silahkan download file di bawah
Download File Disini

Untuk kendala silahkan hubungi KJ dan mari sama-sama belajar, karena artikel ini dibuat agar jika suatu saat kita lupa kita bisa membaca kembali :)

Salam KJ,

Untuk Artikel lain silahkan tekan tombol Home dibawah

Read More

Menampilkan Foto di Excel tanpa VBA

Assalamualaikum

Kali ini kita membuat penampil foto database tanpa VBA :)
Cekidot ...............................................................

Bahan-bahan yang diperlukan
- Database
- Picture sesuai ukuran yang dikehendaki dengan ekstensi ringan saja BMP, walau yang lain
  memungkinkan seperti JPEG dan PNG
- Foto Sesuai ukuran cell atau suka-suka anda :v

Langkah-langkahnya :
1. siapkan database,
   atur lebar tinggi cell untuk penyimpanan foto
   masukkan foto (insert)
   ok selesai insert foto

2. siapkan image untuk bacground sebenarnya sembarang image juga boleh :)

3. Buat Tampilan untuk foto misal Kartu atau report database

4. Mulai hubungkan tampilan dengan rumus dan data base

Copy define name ke name yang ke-2

5. Selesai :)

Semoga bermanfaat ya...

oh iya filenya lupa... ada disini kalau anda beruntung :v becanda ,
silahkan download disini

Salam dari NewBe
KJ99

Read More

MEMBUAT PASSWORD LOGIN VBA

Assalamualaikum Wr Wb

Membuat password Login biasanya untuk membatasi user pengguna sebuah program atau file
untuk kali ini diberi contoh yang sangat sederhana, karena saya juga seorang pemula yang mencoba membuat dari hasil googling dan belajar :)

Artikel ini cuma membahas untuk membatasi login user secara umum saja satu arah
kadang kita menemui login berdasarkan User dengan password berbeda-beda pula

Sampel form login

untuk membuat itu kita perlu
Userform, Textbox, dan Commandbutton

Userform : untuk menampung tampilan awal
Textbox   : untuk penulisan Username/password
CommandButton : untuk eksekusi

Tuliskan script berikut pada userform (double click userform)

'===Untuk Mengaktifkan posisi kursor awal di kolom user====
Private Sub UserForm_activate()
Me.TextBox1.Value = ""
Me.TextBox1.SetFocus
End Sub

'===Untuk tampilan tulisan hanya * saja di kolom input password==
Private Sub UserForm_Initialize()
Me.TextBox2.PasswordChar = "*"
End Sub

'===untuk mencegah user menutup jendela form===
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Silahkan masukkan Password", , " maaf...."
  End If
End Sub

'===Untuk eksekusi===

Private Sub CommandButton1_Click()

If TextBox2.Value <> "KJ99" Then

    MsgBox "Password salah, Bye...... ^_^", , "Maaf"

    ThisWorkbook.Save

    ThisWorkbook.Close

End If

Unload Me

Thisworkbook.application.visible=true

Sheets("Sheet1").Activate

End Sub

Pada script Sheets("Sheet1").Activate bisa kita ganti dengan tujuan lain, misal:
Userform2.Show 'jika kita punya form selanjutnya
sheets("sheet1").activate 'jika ingin langsung ke sheet1


Nah pada Thisworkbook (sisi kiri jendela VBA) sama kita double click kemudian masukkan kode berikut :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("HOME").Activate 'Silahkan Ganti dengan sheet sesuai yang anda miliki misal Sheet1
ThisWorkbook.Save
End Sub

'Untuk menyembunyikan Excel dan menampilkan Form login secara tunggal
Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False 
FORMLOGIN.Show
End Sub

Semoga artikel ini bermanfaat, terutama bagi saya yang sering lupa jadi nulis disini biar gampang baca lagi kalau lupa :v

Contoh File Form Login disini, Password: KJ99

Salam KJ

Read More

MENGHITUNG STOK BARANG HARIAN

Assalamualaikum

Sesuai judul kita bahas kali ini Menghitung Stok Barang Harian

Terkadang kita selaku Admin Gudang / Marketing atau Admin Pengadaan Barang kebingungan dengan pergerakan barang yang kita miliki jika tiba-tiba bos datang menanyakan berapa stok hari ini, atau berapa stok 4 hari lalu :v
jawabannya pasti "Tunggu Bos saya hitung dulu" :v

Berikut ini contoh sebuah keadaan pergerakan stok barang

Dari pergerakan transaksi seperti dibawah ini

Pada sampel file (Macro Enable wajib), saya mencoba membuat rumus untuk menghitung jumlah transaksi sesuai tanggal yang di tentukan sehingga laporan dapat langsung tersaji seperti gambar paling atas, dengan asumsi semua barang masuk maupun keluar dibawah tanggal laporan akan di hitung sebagai pergerakan stok.
File lampiran juga di lengkapi dengan Calendar 12.0 untuk office 2013 agar memudahkan dalam pemilihan Tanggal yaitu dengan klik pada cell tanggal.

Dalam file terdapat 3 sheet :
1. Sheet DATA BARANG (sebagai database keterangan barang beserta stok paling awal dan
    data barang masih bisa ditambah sampai 899990 Jenis barang)
2. Sheet TRANSAKSI (sebagai tempat penginputan data pergerakan in out barang)
3. Sheet LAPORAN STOK HARIAN (update laporan harian)
Disini saya cuma memberikan gambaran cara pembuatan laporannya karena laporan stok barang biasanya terkait dengan kebijakan perusahaan :)

Catatan : Bagaimanapun kelengkapan / Kesiapan program jika PIC (Person in Chart) tidak 
               komitmen dalam melakukan pencatatan transaksi maka sama saja amburadul :v

untuk Contoh file dapat di Download DISINI,

Menghitung Stok Barang Versi 2 adalah artikel terbaru yang membahas Stok Barang yang anda dapat kunjungi di : http://rujukanexcel.blogspot.co.id/

Selamat mencoba,

Salam KJ99

Read More

PPH21

Assalamualaikum
kali ini kita akan membuat laporan Pph21,

apa itu Pph21?
Katanya sih Pajak Penghasilan untuk pekerja

dan aturan di akhir tahun 2013 yang saya ketahui seperti ini :
PKP    = Penghasilan Kena Pajak
PTKP = Penghasilan Tidak Kena Pajak
NPWP = Nomor Pokok Wajib Pajak (jika karyawan tidak memiliki maka
               akan kena beban tambahan 20% dari Pph21)

Dalam lampiran file jika ingin digunakan cukup mengisikan data pada Sheet Tabel Gaji JAN-DES sesuai bulan dan di tabel akhir akan otomatis menghitung, dan jangan lupa untuk mengisikan juga THR atau Bonus lain pada bulan di bagikan agar seluruh komponen terhitung saat anda memilih tombol keseluruhan (setahun).
file juga dapat digunakan untuk hitungan perbulan maupun setahun

Silahkan download File disini

Catatan : karena file ini menggunakan sedikit perintah macro maka perlu di aktifkan macro pada
               komputer anda jika tombol sembunyikan/munculkan kolom tidak berfungsi.

cara aktifkan Macro

Selamat mencoba,
semoga artikel dan file ini bermanfaat untuk anda,
silahkan tinggalkan komentar atau email ke kaharuddinjames@gmail.com

Salam KJ

Read More

Membuat Grafik Kiri Kanan

Assalamualaikum,
Judul yang terlihat lucu tetapi biasanya diperlukan untuk tampilan yang menarik dari sebuah laporan seperti gambar berikut :

caranya :
Buat tabel kemudian pilih chart

Setelah selesai kita bisa mulai edit tampilan mulai dari warna batang, menampilkan data di grafik memformat tabel di sheet agar minus tidak terlihat ke number (merah),  dan sebagainya

Selesai.... chart kiri kanan siap di tampilkan :)

Untuk sampel file dapat di download DISINI

Salam KJ

Read More

Membuat Deskripsi Hasil Penilaian

Assalamualaikum..
Pernahkah kita dihadapkan pada laporan hasil penilaian?
dengan jumlah lembar yang ratusan bahkan ribuan?
dan diperlukan deskripsi pada catatan penilai?
seperti gambar berikut

atau seperti ini?

Catatan deskripsi seperti gambar-gambar diatas terlihat sederhana tetapi memakan waktu dalam pengerjaannya sehingga kita perlu otomatisasi agar saat di perlukan pelaporan dapat segera kita berikan.

Rumus yang digunakan dalam file adalah IF dan COUNTIF, untuk selengkapnya dapat anda download DISINI

Semoga bermanfaat,
Saya sangat berharap koreksi dari anda sekalian,

Salam KJ

Read More

Menjumlah sesuai Warna Font atau Cell

Assalamualaikum Wr Wb
Kali ini kita mencoba menjumlahkan nilai pada tabel sesuai dengan warna,

Silahkan perhatikan gambar berikut :

Terkadang kita memiliki data tabel dengan warna-warna pada cell atau warna font untuk menandakan tingkatan data tersebut. tetapi saat kita diminta untuk merekapitulasi terkadang kita menjadi ribet dengan sendirinya menjumlahkannya :v , padahal sudah kita kasi tanda loh
yup memang ribet karena kita harus menyorot lagi satu persatu cell yang telah kita beri sesuai tanda hehehehe. cara mudahnya ya dengan menggunakan Formula Rank jika data itu dijumlahkan secara range Horizontal atau Vertikal saja, tetapi jika secara acak keseluruhan maka perlu menggunakan VBA.

Ok langsung saja untuk hal tersebut kita pecahkan dengan VBA walaupun saya juga masih belajar :v

Silahkan buka file anda kemudian pada Keyboard tekan Alt F11 (masuk ke VBA) , kemudian insert module, lalu masukkan kode berikut :

Function JumlahkanSesuaiWarna(Warna As Range, tujuan As Range)
Dim Areajumlah As Range
Dim JumlahkanWarna As Long
JumlahkanWarna = 0
For Each Areajumlah In tujuan
    If Areajumlah.Interior.Color = Warna.Interior.Color Then
        JumlahkanWarna = JumlahkanWarna + Areajumlah.Cells.Value
    End If
Next Areajumlah
JumlahkanSesuaiWarna = JumlahkanWarna
End Function

Function SumSesuaiWarnaHuruf(WarnaHuruf As Range, Bloktujuan As Range)
Dim rJumlah As Range
Dim HitungWhuruf As Long
HitungWhuruf = 0
For Each rJumlah In Bloktujuan
    If rJumlah.Font.Color = WarnaHuruf.Font.Color Then
        HitungWhuruf = HitungWhuruf + rJumlah.Cells.Value
    End If
Next rJumlah
SumSesuaiWarnaHuruf = HitungWhuruf
End Function

Tekan Logo Excel di Kiri atas pada panel VBA untuk kembali ke Panel Excel

Ingat untuk Save As File anda ke Macro Enabled atau Office 97-2003 atau Binary agar VBA berfungsi :)

untuk Eksekusi Function yang kita buat caranya :

- untuk Warna Cell : =JumlahkanSesuaiWarna(warna dasar, range yang dijumlahkan)

   Contoh : =JumlahkanSesuaiWarna(L3,$C$3:$J$12)

- untuk Warna Font : =SumSesuaiWarnaHuruf(WarnaHuruf, Range yang dijumlahkan)

   Contoh : =SumSesuaiWarnaHuruf(Y3,$P$3:$W$12)

Merujuk ke warna cell sesuai tabel
Seperti Gambar berikut :

Untuk lebih jelasnya silahkan download file contohnya DISINI

Selamat mencoba, semoga sukses :)

Salam KJ

Read More

Penggunaan Rumus VLOOKUP, HLOOKUP, LOOKUP, INDEX & MATCH, OFFSET & MATCH

Assalamualaikum,
Sering kita mendengar penggunaan rumus excel VLOOKUP tetapi ada yang mengatakan gunakan saja INDEX MATCH ada juga yang mengatakan gunakan OFFSET MATCH, nah bagi pemula seperti saya bisa jadi bertanya-tanya untuk hal ini....

Sebenarnya apa perbedaannya?

Perbedaannya adalah selera pengguna sendiri (ini jawaban saya) karena Rumus-rumus diatas fungsinya sama jika untuk mencari data pada sebuah tabel dengan kumpulan data yang variatif dan banyak.

VLOOKUP = melihat data secara vertikal ke kanan
HLOOKUP = Melihat data secara vertikal ke bawah
INDEX        = Melihat data secara dinamis ke kanan dan kebawah
MATCH      = Melihat posisi urutan data kekanan atau kebawah sesuai referensi data
OFFSET      = Melihat data secara dinamis ke segala arah dan bisa digunakan sebagai referensi Array
                        pada Data Validasi atau semacamnya

untuk lebih jelasnya kita dapat melihat pada file yang bisa anda download disini


Silahkan diperhatikan secara seksama referensi-referensi cell dan range yang dituju agar kita sama-sama bisa pahami maksud dari penggunaan masing-masing rumus.

Ok semoga pemahaman saya dan anda tentang rumus-rumus tersebut setelah mempraktekkan pada file tidak jauh berbeda,
saya sebagai pemula di excel sangat mengharapkan komentar jika masih banyak hal yang terkait dengan penggunaan rumus-rumus tersebut.

Salam

Read More

VBA AKUNTANSI PEMBUKUAN

Assalamualaikum,

Bismillahirahmanirahim,
Maaf baru bisa nge blog lagi nih, soalnya ngurusi baby xixixi
kali ini terispirasi sama teman saya namanya Vivi S Devi, dia memberi pencerahan tentang aturan-aturan penulisan akun dan pengelolaan Pembukuan Akuntansi yang sampai saat saya menulis sekarang pun masih bingung apa itu Akuntansi... :v

tampilannya menu dibuat rame, sebenarnya kepengen dibuatkan animasi tapi codingnya ribet minta ampun maklum New Be seperti saya ngerti apa animasi di VBA, cuma bisa comot sana sini dari mbah google dan pembelajaran di Grup Facebook tercinta Excel Indonesia User Group (EIUG)

dan Versi Siap Pakai dan Update nya bisa dicari di http://rujukanexcel.blogspot.co.id/2016/07/aplikasi-pembukuan-akuntansi.html

ini sampel tampilan Menu nya

Dalam aplikasi ini kemungkinan besar banyak kekurangan apalagi untuk kebijakan-kebijakan pembukuan perusahaan secara pribadi atau aturan administrasi akuntasi yang baru, karena seperti yang saya katakan sebelumnya saya sendiri tidak paham apa itu akuntansi, saya cuma mencoba membuat sesuai petunjuk dan sister saya Vivi :P

untuk lebih jelasnya file dapat dilihat dan di download Disini , Versi Binary Disini
password: KJ99   , ingat huruf besar ya... kalau huruf besar belum mau pakai huruf kecil atau delete saja filenya :v

Semoga bermanfaat,
dari seorang yang baru belajar Excel

Salam KJ

Read More

MENGHITUNG JUMLAH PECAHAN UANG di Excel

Assalamualaikum Wr. Wb.
Malam ini Alhamdulillah diberi sedikit kesempatan untuk nulis lagi,
Ok, To The Point aja deh
Terkadang di sebuah perusahaan yang masih memberlakukan pembayaran dengan sistem cash memerlukan hitungan akurat terkait jumlah pecahan uang yang harus tersedia di cashier, apalagi jika perusahaan juga masih melakukan pembayaran upah langsung (cash) pada pekerja harian  pasti memerlukan hitungan untuk kebutuhan pecahan mata uang yang akan dibayarkan.

Coba perhatikan contoh NILAI PEMBAYARAN dibawah ini
Rp 1.588.850,-
Pertanyaannya berapa lembar uang yang harus disiapkan untuk Pecahan Rp100.000, Rp50.000,- , Rp20.000,- , Rp10.000,- , Rp5.000,- , Rp2.000,- , Rp1.000,- , Rp500,- , Rp200,- , Rp100,- , Rp50,-
Anda akan menjawab :
- Pecahan Rp100.000,-  = 15 lembar
- Pecahan Rp50.000,-    = 1 lembar
- Pecahan Rp20.000,-    = 1 lembar
- Pecahan Rp10.000,-    = 1 lembar
- Pecahan Rp5.000,-      = 1 lembar
- Pecahan Rp2.000,-      = 1 lembar
- Pecahan Rp1.000,-      = 1 lembar
- Pecahan Rp500,-         = 1 lembar
- Pecahan Rp200,-         = 1 lembar
- Pecahan Rp100,-         = 1 lembar
- Pecahan Rp50,-           = 1 lembar

untuk hal seperti diatas kita bisa memecahkan dengan beberapa kombinasi function di excel dan untuk yang saya pakai adalah TRUNC, SUMPRODUCT

Lebih jelasnya silahkan Download File DISINI

Fungsi penggunaan TRUNC dalam file ini adalah untuk menghilangkan nilai desimal di belakang koma pada sebuah fungsi pembagian, misal 5/2 = 2,5 tetapi trunc menjadikan nilai 2 saja atau 1/2=0 saja dalam trunc.
untuk SumProduct merupakan function yang menjumlah 2 array tabel yang dikalikan secara matrix.

Semoga pembahasan ini bermanfaat, saya sangat menunggu kritikan dan saran pembaca untuk perbaikan atau cara yang lebih singkat dan padat.

Salam KJ

Read More