DESAIN UNDANGAN PERNIKAHAN MODEL RAIN CARD (RC) 06

Kali ini saya mencoba berbagi desain undangan pernikahan. Ini merupakan pekerjaan tambahan saya di bidang percetakan selain usaha isi ulang pulsa HP dan listrik.

Saya mendapatkan order undangan pernikahan sebanyak 1.200 lembar. Undangan yang saya bikin ini merupakan kertas undangan “jadi”. Atinya kita hanya akan mendesain teks seusai kebutuhan dan jenis pelengkap keindahan lain (meskipun tidak dibutuhkan).

Untuk mendesain undangan saya menggunakan aplikasi Corel Draw versi 5 atau biasa dikenal X5.

Aplikasi Corel dikenal sangat friendly dalam hal desain gambar dan teks. Untuk itu saya merasa cukup memudahakan saya dalam mengatur ukuran kertas, berbagai warna objek dan font serta pemilihan jenis font yang bagus. Selain itu kita dapat menambahkan berbagai objek variasi seperti bunga, balon dll untuk menambah keindahan desain kita.

Jenis undangan yang dipesan orang ini merupakan Undangan jenis Rain Card seri 06. Harga yang saya tawarkan disini Rp 1.400/lembar. Harga tersebut sudah termasuk plastic OPP(plastic pembungkus), label/stiker dan tambahan bonus undangan Akad Nikah sebanyak 100 lembar (kertas terpisah/tersendiri).

Gambar di atas merupakan model desain yang akan dicetak halaman dalamnya.
Sementara halaman depannya saya buat seperti disampingnya
Dan ini saya tambahkan undangan akad yang ukuran 8 x 10  cm

Untuk hasil yang sudah dicetak dan dibungkus seperti di bawah ini

Dan terakhir saya bagikan file Corel (CDR) berikut RC 06 dan Akad

Bermain main memilih gambar

Ahhh kadang mumet juga bermain dengan coding aneh bin mumet di VBA excel. Sekarang kita tinggalkan dulu sebentar vba excel dan mari kita maen di tetangga sebelah, ya ga jauh jauh sih, masih di lingkup Microsoft Office.

Sehubugan juga dengan anak saya yang lagi suka-sukanya bermain dengan nama-nama binatang dan sekaligus buat belajar dia yang masih 2,5 tahun. Maka saya sedikit berkreasi ria membuat mainan yang dapat menampilkan gambar berbagai macam binatang dan buah.

Mainan ini tidak jauh-jauh dengan VBA juga, Cuma bedanya kali ini saya gunakan tetangganya excel (entah tetangga, entah saudara) yakni Office Power Point.

Sebenarnya mainan ini karya orang di Blog tetangga, tapi saya tambahkan saja gambarnya biar lebih meriah. Kalau saya pernah ketemu di VBA excel, namanya Kamus Bergambar. Perbedaannya adalah, kalau di excel hanya memanfaatkan 1 buah combobox untuk memilih nama dari gambar yang ingin ditampilkan. Sedangkan di Powerpoint ini, kita susun nama-nama dari gambar, lalu apabila kita klik deretan nama tersebut maka gambar akan muncul sesuai nama yang kita klik tadi.

Contoh kita klik Kucing, maka akan menampilkan gambar kucing. Jika kita klik nama buah apel maka gambar apel akan muncul sedangkan gambar kucing tadi akan hilang/sembunyi.

Untuk lebih jelasnya silakan download aja disini
Semoga bermanfaat untuk belajar si kecil yang manis yang lagi kepingin tahu segala galanya.

POP UP ANGKA UNTUK MENAMPILKAN KEYBOARD ANGKA ON SCREEN PADA OFFICE EXCEL

Apakah anda seorang bendahara yang kerap bermain dengan angka-angka di tempat anda bekerja? Atau anda seorang operator yang sering menginput misalnya nomor HP, Nilai siswa atau nomor NIK seseorang? Jika betul, anda mungkin akan berkali kali melotot layar computer/laptop  untuk mengecek kembali angka-angka yang anda input tersebut. Sebab anda selalu khawatir apabila angka yang anda ketik bisa-bisa salah dan hal itu berakibat fatal pada pekerjaan anda. Terlebih lagi angka yang anda ketik berdigit belasan alias banyak.

Namun yang membuat anda kesal (terutama penulis sendiri) adalah ketika anda bekerja dengan perangkat laptop, karena posisi tombol angka pada laptop berjejer sebaris mulai angka 1 sampai dengan 0. Artinya jari jemari kita untuk mengetik kadang susah untuk menjangkau seluruh angka tersebut tanpa harus mengangkat tangan kita. Terlebih pula apabila anda yang mahir mengetik dengaan 11 jari (hanya mengandalkan 2 buah jari telunjuk hehehe), anda mungkin akan sering pula melotot keyboard laptop anda disamping melotot layar laptop untuk mengecek kesesuaian data anda.

Bandingkan dengan keyboard eksternal atau keyboard computer PC yang memiliki tombol angka yang letaknya mengumpul sehingga mudah dijangkau dengan satu tangan saja. Tentunya anda mesti mahir menghafal posisinya agar mata anda tidak perlu lagi melihat kembali angka-angka dikeyboard yang ingin diketik.

Dari permasalahan di atas, penulis merasa perlu membuat formula atau solusi untuk memudahkan kita dalam menginput  angka-angka tersebut. 

Dalam hal ini anda adalah pengguna Office Excel yang biasanya dipakai untuk pengolahan angka. Dengan formula ini anda tidak perlu mengetuk tombol angka, cukup mengklik layar angka yang kita buat mirip keyboard on screen. Jadi anda tidak perlu melihat keyboard lagi kan?!

Pertama, pada lembar kerja anda, buka VBA editor Excel anda dengan cara buka menu Developer kamudian klik menu Visual Basic. 

Dari lembar kerja VBA editor ini, kita buat Form dengan cara insert Userform, lalu buatlah Comman Botton sebanyak kebutuhan anda. Misalnya 12 buah commonbutton sesuai penulis dan ganti Name dan Caption sesuai dengan nama dan angka-angka seperti pada gambar di bawah ini. Tambahkan 1 buah commonbutton OK yang berfungsi untuk menginput angka ke sebuah cell lembar kerja. Kemudian buat juga Textbox untuk menampung angka sementara sebelum di input ke cell lembar kerja.

Setelah selesai bikin form tersebut, saatnya kita buat kode VBA untuk menjalankan userform tersebut. Copykan saja kode seperti di bawah ini dan paste pada area penulisan kode userform dengan cara klik kanan UserForm1 lalu pilih view code.

Copykan kode  ini

Private Sub ok_Click()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(lr, 1) = angka.Text

End Sub
Private Sub t0_Click()
angka.Text = angka.Text + "0"
End Sub
Private Sub t00_Click()
angka.Text = angka.Text + "00"
End Sub
Private Sub t000_Click()
angka.Text = angka.Text + "000"
End Sub
Private Sub t1_Click()
angka.Text = angka.Text + "1"
End Sub
Private Sub t2_Click()
angka.Text = angka.Text + "2"
End Sub
Private Sub t3_Click()
angka.Text = angka.Text + "3"
End Sub
Private Sub t4_Click()
angka.Text = angka.Text + "4"
End Sub
Private Sub t5_Click()
angka.Text = angka.Text + "5"
End Sub
Private Sub t6_Click()
angka.Text = angka.Text + "6"
End Sub
Private Sub t7_Click()
angka.Text = angka.Text + "7"
End Sub
Private Sub t8_Click()
angka.Text = angka.Text + "8"
End Sub
Private Sub t9_Click()
angka.Text = angka.Text + "9"
End Sub

Untuk menampilkan atau memanggil form angka tersebut, maka copy dan paste kode di bawah ini pada sheet yang anda inginkan. Contoh saya ingin menggunakannya pada sheet1 pada range A3 sampai dengan X300 (A dan X = kolom, 3 dan 300 = baris)

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng1          As Range

 Set Rng1 = Range("A3:X300")

    If Intersect(Target, Rng1) Is Nothing Then Exit Sub

    'Cancel cell editing that would normally trigger when you double click

    Cancel = True

        'Call the userform

    UserForm1.Show

End Sub

Dengan kode di atas, anda dapat memanggil form angka tersebut dengan cara dobleclik cell pada lembar kerja anda (cell yg dipilih adalah Cell A3 sampai X300 pada Sheet1). Anda dapat mengatur cell sesuai yang anda butuhkan.

 

Selain itu anda dapat juga mengatur cell yang akan diinput angka tersebut otomatis mengisi cell ke bawah setiap anda mengklik tombol OK tanpa anda memilih cell yang aktif. Hapus kode diatas dan tambahkan kode ini pada Userform1

Private Sub ok_Click()

Dim lr As Long

lr = Range("B" & Rows.Count).End(xlUp).Row + 1
Cells(lr, 2) = angka.Text

Sampai di sini kita sudah selesai membuat pop up angka tersebut. Untuk dapat menjalankannya, kita harus menyimpan file ini dalam bentuk/format Excel  Macro Enable dengan cara Save As kemudian pilih Type penyimpanan Excel  Macro Enable Worksheet.

Cobalah menjalankan file anda. Harap diperhatikan untuk dapat menjalankan aplikasi file berformat Excel  Macro Enable, kita perlu mengaktifkan Macro dengan cara klik Macro Security dari menu Developer kemudian pilih Enable All Macro.

Selamat mencoba dan modifikasilah sesuai kebutuhanan anda. semoga dapat beranfaat.
download contohnya di sini