Menampilkan Photo Pada Database

Pernah suatu hari saya diberi sebuah masukan oleh beberapa rekan kerja mengenai sebuah database siswa yang saya buat dengan excel tidak lengkap lantaran tanpa disertai photo dari siswa itu sendiri. Awalnya saya berpikir hal itu tidak mungkin dilakukan, terlebih jika memakai Aplikasi Excel – karena aplikasi ini hanya dibuat untuk mengentry database saja.

Pertanyaan sekaligus permintaan tersebut membuat saya tertantang untuk mencoba serta mencari tahu tentang apakah Excel bisa melakukan ini…. Dari yang saya dapat dari googling, akhirnya saya mendapat beberapa module dan kode VBA untuk menginsert gambar dengan menggunakan bantuan macro. Kemudian, saya menemui kendala lagi – bagaimana jika ini digunakan dalam database yang memiliki banyak data.

Setelah beberapa hari berikutnya saya mencoba untuk bereksperimen dan memodifikasi serta menambahkan beberapa Kode serta module yang saya dapatkan dari internet tersebut agar bisa digunakan dalam database yang saya miliki.

Dan, sekarang saya share kepada anda yang barangkali sedang mencari cara bagaimana menampilkan gambar foto ke dalam database excel, dari hasil tutorial ini akan menghasilkan sebuah database yang terlihat seperti gambar berikut :

Memulai Mengetry Database

Sebagai latihan dalam tutorial ini, masukkan database seperti berikut dan letakkan di Sheet1 :
 

Menggunakan Fungsi VLOOKUP

Fungsi ini dibutuhkan untuk memanggil data dalam database Masukkan formula VLOOKUP berikut di sel F2

=VLOOKUP(E2;A2:B8;2;0)

Untuk sementara hasil yang didapatkan dari formula ini adalah #N/A hal ini disebabkan tidak adanya sebuah nilai yang dijadikan pedoman, jika anda ingin menghilangkan pesan error bisa anda tambahkan fungsi IFERROR dalam serangkaian kode diatas.

Design Bingkai Photo

Bukan hanya aplikasi sekelas Corel atau Adobe saja yang bisa digunakan untuk design, excel-pun juga bisa…
Berikut langkah membuat desain sederhana  :

1. Aktifkan dan pilih Menu Tab Developer jika belum klik disini untuk melihat cara menampilkannya
2. Buat 2 buah Image dengan cara klik Insert > Image (ActiveX Control)

3. Untuk Image1 (biarkan (name)nya asli seperti itu saja)

Kemudian klik kanan dan pilih properties
 

 
pada bagian PictureSizeMode pilih 3 - fmPictureSizeModeZoom
Artinya, gambar yang akan kita insert nanti akan dimaksimalkan ukurannya sesuai dengan ukuran frame dari Image1.

4. Untuk Image2 (biarkan juga (name) seperti aslinya)

Klik klik kanan Image2 dan pilih properties
 

 
pada bagian Picture (None) anda klik tanda (…) untuk mencari gambar yang akan ditempelkan di Image2.
Kemudian pada bagian Visible rubah menjadi False Gambar ini nantinya akan digunakan jika data belum atau tidak memiliki Photo, dan Image2 ini kita sembunyikan (Visible=False) karena hanya sebagai acuan saja dan bukan sebagai gambar utama.

Saya harap sampai dengan langkah ini, anda bisa mengikutinya..

Menambahkan Tombol Untuk Mencari dan Mengambil Gambar

Masih dalam menu Tab Developer, Tambahkan 2 buah tombol di lembar kerja anda antara lain :

• Command Button (ActiveX Control)

1. klik menu Insert > Command Button (ActiveX Control)
2. letakkan di lembar kerja
3. jika anda ingin me-rename tombol ini klik kanan > properties Pada bagian Caption ubah nama sesuai dengan yang anda inginkan

• Spin Button (ActiveX Control)

1. klik menu Insert > Spin Button (ActiveX Control)
2. letakkan di lembar kerja

Desain sudah selesai, sekarang tinggal memasukkan kode untuk beberapa tombol yang sudah kita buat

Memasang Kode untuk Mengambil Gambar

Sebelum anda memasukkan kode-kode untuk masing-masing tombol, pastikan icon DESIGN MODE yang terdapat pada Tab Developer dalam keadaan aktif (menyala) sehingga ketika klik ganda objek control – maka akan langsung menuju jendela Microsoft Visual Basic
Berikut kode yang harus anda pasang:

• Klik ganda CommandButton1 (atau sesuai dengan nama yang anda ketikkan pada langkah sebelumnya)

On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim SourceFile, DestinationFile

X.SetFocus
Filter = "JPG Image Files Only(*.jpg),*.jpg,"
Title = "Silahkan Pilih Logo" FileX = Application.GetOpenFilename(Filter, , Title)
NamaFile = Range("F2")

Sheets("sheets1").Image1.Picture = LoadPicture(FileX)
Image1.Picture = LoadPicture(FileX)

DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"
FileCopy FileX, DestinationFile

Keterangan:
Filter = "JPG Image Files … : adalah gambar yang diperbolehkan untuk di masukkan ke dalam database
NamaFile = Range(“F2") : adalah nama dari file gambar yang nantinya akan tersimpan dalam komputer anda, nama file ini berdasarkan dari data yang tertulis di sel F2
\Photo\ : adalah nama folder tempat menyimpan file gambar, dengan kata lain anda WAJIB membuat sebuah folder dengan nama Photo ditempat anda menyimpan hasil kerjaan excel ini.

Tutup atau minimize jendela Microsoft Visual Basic untuk kembali ke jendela Microsoft Excel

• klik ganda SpinButton1

On Error GoTo GbKosong
SpinButton1.Min = 1
SpinButton1.Max = 7
Range("E2") = SpinButton1

Application.ScreenUpdating = False
NamaData = Range("F2")
Files = ActiveWorkbook.Path & "\Photo\" & NamaData & ".jpg" '
Image1.Picture = LoadPicture(Files)
Application.ScreenUpdating = True

Exit Sub
GbKosong:
Image1.Picture = Image2.Picture

Keterangan :
SpinButton1.Min = Data minimal dari database yang di baca
SpinButton1.Max = Data tertinggi dari sebuah database, dalam contoh di atas nilai tertinggi adalah 7

Finishing

Langkah akhir dari semua pekerjaan adalah dengan melakukan proses menyimpan. Untuk penyimpanan file ini gunakan excel dengan type Macro enabled.

Cara membuat Form Login Pada Excel

Langsung aja bagaimana cara membuatnya, siapkan 1 Userform, 2 Textbox, 2 Commandbutton.
Lalu masukkan script di bawah ini :

Private Sub cmdKeluar_Click() ThisWorkbook.Close End Sub Private Sub cmdOK_Click() If TextBox1.Value = "" Then MsgBox "Isi Username terlebih dulu", _ vbOKOnly + vbInformation, "User Kosong" TextBox1.SetFocus Exit Sub ElseIf TextBox2.Value = "" Then MsgBox "Isi Password terlebih dulu", _ vbOKOnly + vbInformation, "User Kosong" TextBox2.SetFocus Exit Sub End If Sheets("pas").Select If Range("d1") = False Then LoginSalah = MsgBox("Username atau Password salah" _ & vbCrLf & "Coba masuk lagi?", _ vbYesNo + vbInformation, "Error Masuk") 'Jika tombol Yes yang di-klik If LoginSalah = vbYes Then 'TextBox User dikosongkan TextBox1.Value = "" 'TextBox Password dikosongkan TextBox2.Value = "" 'TextBox User menjadi fokus TextBox1.SetFocus ElseIf LoginSalah = vbNo Then Unload Me End If 'Jika user dan password yang dimasukkan benar Else 'Keluar dari Form Login Unload Me 'Menampilkan kotak pesan login berhasil MsgBox "User dan Password benar", _ vbOKOnly + vbInformation, "Login Berhasil" End If End Sub Private Sub TextBox1_Change() Sheets("pas").Select Range("b1") = TextBox1 End Sub Private Sub TextBox2_Change() Sheets("pas").Select Range("b2") = TextBox2 End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = True End Sub

Cara Membuat Add In Terbilang Untuk Microsoft Excel 2007

Bagaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata ) pada Microsoft Excel 2007. Bagi anda yang sering membuat tanda terima pembayaran tentunya sering kali anda harus menterjemahkan angka-angka menjadi kata-kata, misal Rp. 1000,- diterjemahkan menjadi "Seribu Rupiah", tentu akan sangat melelahkan jika hal ini harus dikerjakan secara manual, dimana anda harus mengeja setiap angka pada transaksi anda untuk kemudian anda ketik. Tujuan Add In ini saya berharap akan bisa membantu mempermudah pekerjaan dalam membuat tanda terima dan mempersingkat proses.

Langkah-langkahnya sebagai berikut :
1. Copy paste kode dibawah ini pada notepad ("Terbilang dengan akhiran rupiah" atau "Terbilangan tanpa akhiran rupiah")
2. Lalu Save As dengan akhiran "terbilang.xlam" dan taruh terserah anda, contoh c:/My Documents
3. Kemuadian buka excel 2007
4. Excel Option

5.Pilih tabs "Add-Ins", lalu "Go…".

6. Muncul kotak berikut tekan pada tombol "Browse"

7. Cari file yang anda simpan tadi (misal di c:/My Documents)

8. Centang Terbilang, lalu klik tombol "Ok" lalu akan muncul kotak berikut :

9. Klik Ok lagi untuk menyeselaikan proses pemasangan Add-Ins
Sekarang kita check apakah fungsi tersebut berfungsi. Untuk memakainya anda perlu mengetahui formulanya. Misal angka yang hendak anda buatkan terbilangnya ada di cell "A1", maka di cell B1 kita tulis rumus formulanya  sebagai berikut :
=terbilang(A1) 

Developer

Cara Mengaktifkan Tab Developer pada Microsoft Excel

 

 

Pada defaultnya, Microsoft Excel tidak memuncul  Tab Developer , tak tahu kenapa Tab ini tidak langsung dimunculkan langsung. Padahal disinilah kehebatan Excel, banyak forum-forum yang ramai membahasnya. Tab yang membahas Visula Basic Macro yang bias digunakan apapun sesuai kebutuhan dengan kecanggihan analoginya. Untuk yang belum dan baru memulai asyik belajar excel tingkat lanjut, pertama kali yang perlu dilakukan adalah tahu tentang ini, begini cara mengaktifkan Tab Developer di Excel    

              -  Buka Microsoft excel sebagaimana biasanya :

              -     Pilih Office Button (berada di pojok kiri atas) lalu Excel Option

  - Jika Sudah Muncul gambar seperti dibawah ini :

 - Pilih “ Populer”

- Centang kolom “ Show Developer Tab in the Ribbon”

- Klik OK

- Lihat Tab Developer kalian uda muncul pada Tab yang paling Akhir

 Semoga bermanfaat....salam hormat.