Membuat Nota Penjualan

Nota Penjualan digunakan sebagai bukti transaksi, umumnya dibuat 2 rangkap, satu untuk pembeli dan lainnya sebagai arsip penjual.

Secara garis besar, untuk pembuatan nota ini diperlukan 2 worksheet, yang pertama data barang, dan yang satunya sebagai output untuk dicetak.

Dalam Memproses data, saya membuat UDT yang kira kira diperlukan, supaya lebih mudah tentunya, kemudaian dideklarasikan variable Barang secara public supaya bisa diakses secara global, 

Dan tampilan yang sudah selesei mudah mudahan tidak mengecewakan

yang mau buat silahkan lihat videonya aja, lagi males ngetik2..... :D

Membuat Kwitansi Bagian 1

Bila kamu seorang Bendahara, seringkali kita bila dihadapkan dengan tetek bengek kuitansi yang perlu dibuat secepat-cepatnya, memang bukan hal yang terlalu menyibukkan kalau jumlahnya hanya satu dua buah, tapi gimana bila kita perlu memuat 100 buah perhari???, tentu saja hal ini bisa saja terjadi, pada saat diperlukan dan perlunya ketelitian, pembuatan kuitansi yang efektif dan efisien sangat diharapkan.

Umumnya kuitansi dibuat pada kertas kuitansi yang dipesan khusus dan dibuat beberapa rangkap serta telah berisi format tertentu, tapi ini cukup menyita waktu bila harus dilakukan dengan mesin ketik.

Berdasarkan pengalaman pribadi, disini akan kita mencoba membuat kuitansi di Microsoft Excel, dan memaksimalkan fasilitas fasilitasnya untuk memudahkan kita dalan pembuatannya.

Sebagai awalnya, saya memenggunakan 3 worksheet untuk pembuatannya

1. Form Utama / Kwitansi
2. Data Utama
3. Data Pendukung

1. Form Utama
Sheet ini kita gunakan sebagai output ke printer maksundnya keluaran data dihasilkan, data yang dimasukkan dan berakhir di form ini untuk kemudian diprint. Mari kita buat form sebagus mungkin.

2. Data Utama
Dalam sheet ini, semua data yang diperlukan kita masukkan, semua unsur unsur yang diperkirakan dinamis kita buat sedemikian rupa supaya mudah mengisinya,

saya menganggap ada 13 unsur penting didata utama dan dibuat masing masing kolomnya, antara lain :

• No.
• Kode Rekening
• Terima Dari
• Tahun
• Sebesar
• PPn
• PPh Pasal
• Pajak Lainnya
• Jumlah Pajak
• Lunas Tanggal
• Penerima
• Alamat
• Untuk Pembayaran

3. Data Pendukung

Data pendukung diisi data untuk melengkapi/membatu data utama, saya isi tentang pajak dan pernik perniknya

pertama saya tulis jenis jenis pajaknya, kemudian saya blok dan beri nama, ini untuk memudahkan dalam memanggilnya dalam penggunakan formula

Umumnya pengenaan pajak lebih dari sekali, misalnya PPN, biasanya dibarengi dengan pajak PPH22 untuk pembelian barang, karenanya juga perlu kita masukkan.

Data ini nantinya akan kita operasikan bersama fungsi VLOOKUP, jadi perlu di urutkan terlebih dulu, kemudian memberi nama supaya langsung bisa dipanggil, disini saya kasih nama "datappn"

Setelah data pendukung ini dibuat, kita kembali ke Data Utama, data pendukung kita gunakan sebagai validasi input "Pajak Lainnya", disni kita pilih List dan Sourcenya ="listppn"

kalau sukses seharusnya akan ada dropdown data bila kita klik 

Sampai disini kita telah membuat 3 data untuk keperluan pembuatan kwitansi,

Tulisan selanjutnya kita akan menyelesaikan pembuatan kwitansi ini, itu pun kalo ada yang tertarik

Angka ke Terbilang

Dalam pembuatan kwitansi, biasanya selalu diterakan jumlah nominal dalam angka dan terbilang, adanya terbilang mungkin untuk menegaskan dan supaya tidak bisa dimanipulasi kali ya, namanya juga uang, biasanya urusan bisa jadi sensitif.

Cukup banyak contoh contoh bagaimana merubah angka menjadi terbilang, salah satunya step by step akan kita bahas bagaimana menghasilkan kalimat dari nominal, alurnya dibuat sejelas mungkin untuk memudahkan dipahami.

Mari kita buka ms.excel kita, masuk ke visual basic dengan menekan tombol "ALT+F11", kemudian kita tambahkan sebuah modul supaya code yang kita buat bisa diakses dari semua sheet yang ada di workbook kita,disini saya buat fungsi misalnya dengan nama "sebutan"




Bagaimana jumlah digit nominal yang bisa jadikan terbilang ????? ,

Seharusnya ya bisa sampe dimana kita bisa menyebut angka itu, misal sejuta, satu milyar, dan seterusnya, kalo nominal yang nggak bisa menyebutnya ya nggak bisa, wong nyebutnya aja nggak bisa, apa lagi menuliskannya dalam bentuk kalimat, ya misalnya 1 dengan jumlah 0 100 kali, kan bingung mau nyebutnya.

Fungsi terbilang disini kita akan membatasi nominal sampai 12 digit saja, ini sudah cukup karena umumnya transaksi sampe 12 digit hampir tidak pernah ditemui, misalnya nominal 100.100.100.100 kita menyebutnya seratus milyar seratus juta seratus ribu seratus.

Dari contoh diatas bisa kita lihat, nominal terpisah dengan tanda titik, yang masing-masing adalah milyar, juta, ribu dan anggap yang terkahir satuan, jadi dalam fungsi, kita masukkan pengelompokan ini sebagai varible.

Demikian Juga untuk hasilnya, supaya lebih mudah dikelompokkan, kita buat variable untuk hasil sementara,
Karena kita hanya mengolah nominal maksimal 12 digit, kita juga perlu membatasi jumlah maksimalnya, disini kita menggunakan variable NilaiString

setelah itu baru kita masukkan pengelompokkan data awalnya

Supaya terlihat rapi, fungsi untuk mendapatkan terbilang perkelompok kita buat terpisah, anggap ini anak fungsi, disini saya berinama fungsi ConvertAngka

Berikutnya kita isi variable angka() dengan sebutannya, misalnya angka(1)="Satu",angka(2)="Dua" sampe angka 9,

Selanjutnya konversi nominalnya seperti ini

disini kita sudah selesei fungsi ini, kita kembali ke fungsi sebutan, dan kita mulai mengambil hasil fungsi konvertnya

Sekarang dah rampung macronya, tinggal testing di excel, tekan ALT+F11

Sukses kayanya, moga bergunalah wallll...

Convert DMS to Coordinat format

Convert Degree Menit Second to Coordinat format

Tulisan ini merupakan lanjutan dari Konversi Desimal ke Koordinat , bila belum lihat dibukaya.

20°20'14''

Didalam microsoft excel, kita bisa menggunakan insert symbol  " ° " untuk menuliskan dalam format koordinat, tapi ini cukup menyita waktu untuk data yang banyak.

bisa dibayangkan misalnya 1000 baris yang di konvert, apa nggak katur tuh tangan :D
dibandingkan dengan macro, bisa dilakukan lebih efisien.

Chr(176) merupakan nilai byte(ASCI) dari symbol  " ° " , kita menggunakan nilai byte dari ASCI karena
symbol  " ° "  tidak bisa di tulis secara langsung.

Function Cvt_DMSToString(ByVal Deg As Double, ByVal Min As Double, ByVal Sec As Double) As String
  Cvt_DMSToString = Deg & Chr(176) & Min & "'" & Sec & Chr(34)
End Function

Tentunya jadi simple kalo udah dikuasi dengan benar brooeeww

Convert Decimal To DMS Format

Convert Decimal To Degree Minute Second

Alat-alat navigasi menyimpan data dalam bentuk Decimal, walaupun yang tampilan visualnya dalam format koordinat ataupun UTM, dalam kondisi yang tidak menguntungkan, selama alat masih bisa diakses, masih memungkinkan untuk mengambil data.

Seperti halnya waktu, ada satuan jam, menit dan detik, koordinat juga demikian, yang berbeda kadangkala untuk satuan detik, koordinat menggunakan sampai 3 dibelakang koma, yang mungkin supaya kelihatan keren kali ya, tapi umumnya tetap dalam satuan penuh. Koordinat terdiri dari 3 bagian, dari yang teratas derajat menit dan detik

Degree alias derajat ditulis dalam 1 kelipatan penuh, demikian juga dengan minute, sedangkan untuk second ada yang menuliskan 1 kelipatan penuh dan ada juga yang menuliskan sampai 3 dibelakang koma. Kalo dipikir pikir 1 kelipatan penuh sudah cukup akurat, karena tetap saja ada bias dalam setiap alat.

Disini kita membuat 3 fungsi, yang pertama untuk mengambil nilai Degree, kedua nilai Minute selanjutnya Second.

Function Dec_toDegree
Function Dec_toMinute
Function Dec_toSecond

kita pisahkan dulu sign nilai, jika bernilai negatif dijadikan positif, dan flag negatif disimpan dalam variabel "isminus", ini perlu dilakukan karena untuk perhitungan negatif tidak semudah pada nilai nilai positif.

Jika sudah sesuai dengan code2 diatas, kita coba pada sheet micosoft excel, untuk kembali ke lembar workbook excel bisa menggunakan shortcut ALT + F11 , demikian juga sebaliknya untuk kembali ke editor macronya.

Mudah mudahan nggak ada error ya coy