Cara Membuat Stiker CD Skripsi!

Skripsi dan Tesis adalah tugas akhir yang wajib dibuat oleh para mahasiswa untuk lulus. Sepanjang pengerjaan tugas akhir, saya sering menemukan banyak kendala. Terutama dalam pembuatan stiker CD. Menyetorkan soft copy tugas akhir dalam bentuk CD adalah salah satu syarat untuk mendaftar wisuda.

Saya bisa saja memilih untuk menyerahkan pembuatan stiker CD ke tukang fotocopy. Tapi biaya yang menurut saya tidak wajar kembali menjadi kendala. Bukan gimana-gimana. Tapi sebagai seorang yang merupakan tamatan dari Fakultas Ekonomi dan Bisnis, semua harus melalui perhitungan yang maksimal.

Awalnya saya berniat menggunakan jasa mas-mas di fotokopian sebelah kampus tapi biayanya 10 ribu untuk 1 (satu) CD. Sedangkan saat itu saya harus membuat lebih dari 5 CD karena selain menyetor ke perpustakaan kampus cabang dan kampus pusat, saya juga harus menyetorkan file itu kepada para pembimbing dan penguji saya. 

Yes! semua kendala yang kita alami pasti akan membawa kita ke jalan alternatif! haha. Kemudian saya searching cara-cara membuat stiker CD di internet dan Whaaalaaaa!!! i found it! Let's Try!

1.  Pertama yang harus kamu lakukan adalah MEMBELI STIKER CD, CD dan TEMPATNYA!. 
     Beli di toko buku aja ya biar dapet murah!

2.  Kedua, BUKA MICROSOFT WORD.

Tampilan Microsoft Word 2010

3.  Ketiga, KLIK PAGE LAYOUT, KLIK SIZE dan kemudian KLIK MORE PAPER SIZE.

Setelah mengikuti langkah ketiga, maka akan muncul tampilan seperti ini.

4.  Langkah keempat, KETIK ANGKA 5.12" pada Width dan Height. Kemudian KLIK OK seperti dibawah ini.

Maka, ukuran kertas pada tampilan microsoft word akan berubah seperti ini.

5.  Step selanjutnya, KLIK INSERT, KLIK SHAPES dan kemudian BUAT BENTUK LINGKARAN seperti ini.

6.  Pastikan UKURAN LINGKARAN SAMA RATA! 

     KLIK 2 kali PADA LINGKARAN hingga muncul pilihan FORMAT dan KETIK 4.57" seperti ini.

7.  klik Design dan Pilih CLOSE HEADER AND FOOTER dan kemudian KETIK JUDUL TUGAS AKHIR, NAMA DAN NIM seperti ini.

Yang musti banget kalian perhatiin disini adalah PENEMPATAN LAMBANG UNIVERSITAS. 

8.  Terakhir, tinggal print aja deh pakai stiker CD yang udah kamu beli sebelumnya.

Gampang kan? hihi. Cara begini akan menekan cost. Kalau awalnya saya harus mengeluarkan uang 50 ribu lebih untuk jasa pembuatan di mas-mas tukang fotokopian, dengan cara begini cost-nya jadi jauuuuuuhhhhhhh dibawah 50 ribu.

"Sayangi duitmu, nambah ilmu tiaaappp hariii..." Lah.. kok jadi mirip taglinenya Yak*lt. haha.

Semoga bermanfaat buat semua adik-adik dan teman-teman diluar sana. Cheers!

--------- Salam Hemat!!----------

Cara Membuat Rumus Terbilang Microsoft Excel!

Pasti banyak dari kalian apalagi yang berkecimpung di dunia keuangan akan kesusahan saat harus mengetik nilai terbilang pada kwitansi secara manual seperti dibawah ini.

Contoh kwitansi manual microsoft excel

Jika harus mengerjakan hanya satu atau dua kwitansi saja, tentu cara manual sepertinya tidak akan menjadi masalah. Namun, jika harus mengerjakan banyak kwitansi tiap bulannya, tentu cara manual HARUS DITINGGALKAN!

Sebagai orang yang berprofesi sebagai bagian keuangan pada sebuah perusahaan, kita dituntut untuk bekerja cepat dan tepat. Karena itu, penggunaan teknologi harus sangat dimaksimalkan untuk menghemat waktu dan mempermudah kinerja.

Mari Kita MULAI!

1. First step yang musti kita lakukan setelah membuat format kwitansi dan menginput nilai kwitansi       secara manual adalah MENGINPUT KODE TERBILANG.
    
     a. Klik Alt dan F11 secara bersamaan. Kemudian akan muncul tampilan seperti berikut.

      

    b. Klik Insert, Kemudian Klik Module.

    c. Setelah klik Module. Tampilan layar akan tampak seperti ini.

     

    d. Kemudian, INPUT KODE TERBILANG kedalam kotak putih.
        Copy dan Paste saja kode terbilang berikut ini:

Function Terbilang(n As Long) As String 'max 2.147.483.647

Dim satuan As Variant, Minus As Boolean

On Error GoTo terbilang_error

satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

If n < 0 Then

Minus = True

n = n * -1

End If    

Select Case n

Case 0 To 11

Terbilang = " " + satuan(Fix(n))

Case 12 To 19

Terbilang = Terbilang(n Mod 10) + " Belas"

Case 20 To 99

Terbilang = Terbilang(Fix(n / 10)) + " Puluh" + Terbilang(n Mod 10)

Case 100 To 199

Terbilang = " Seratus" + Terbilang(n - 100)

Case 200 To 999

Terbilang = Terbilang(Fix(n / 100)) + " Ratus" + Terbilang(n Mod 100)

Case 1000 To 1999

Terbilang = " Seribu" + Terbilang(n - 1000)

Case 2000 To 999999

Terbilang = Terbilang(Fix(n / 1000)) + " Ribu" + Terbilang(n Mod 1000)

Case 1000000 To 999999999

Terbilang = Terbilang(Fix(n / 1000000)) + " Juta" + Terbilang(n Mod 1000000)

Case Else

Terbilang = Terbilang(Fix(n / 1000000000)) + " Milyar" + Terbilang(n Mod 1000000000)

End Select

If Minus = True Then

Terbilang = "Minus" + Terbilang

End If

Exit Function

terbilang_error:

MsgBox Err.Description, vbCritical, "^_^Terbilang Error"

End Function

    e. Ketika kode terbilang sudah Anda input seperti gambar diatas, kemudian klik saja tanda Close              "x" di pojok kanan paling atas.

2. Step kedua, ketik =terbilang(nilai kwitansi)&"Rupiah". 

3. Step terakhir, Klik ENTER pada rumus yang telah diketik tadi. Maka muncul tampilan seperti ini. 

Hore... kwitansi manual sudah jadi. Jika ingin membuat kwitansi baru pada file yang sama, buat saja format kwitansi manual seperti biasa kemudian masukkan jumlah uang dan ketik =terbilang(nilai kwitansi)&"Rupiah" pada kolom terbilang. Maka tulisan akan sesuai dengan jumlah uang yang tertera secara otomatis. 

Kode terbilang ini pernah saya lihat di sebuah situs tetapi saat saya butuhkan situs itu tidak saya temukan lagi di Google. Selain itu saya lupa nama situs yang mencantumkan kode terbilang ini. 

Semoga dapat membantu pembaca khususnya para pekerja di bidang keuangan. Cheers!