Sign Up to my searchfunds and make Cash While You search

Sign up for PayPal and start accepting credit card payments instantly.

Saturday, February 24, 2007

Daftar Pilihan Isi (Drop-down Lists)

Mudah sekali untuk membuat daftar pilihan isi untuk suatu sel atau range tertentu. Pilihlah sebuah sel atau sekelompok/range sel (misalnya sel A1:A20) kemudian klik menu "Data/Validation", sehingga muncul Data Validation Dialog Box, kemudian pilih "List" pada text box "Allow". Sedangkan dalam text box "Source" tulislah nilai atau kata-kata yang dijadikan pilihan isi dengan membatasi dengan koma “,” misalnya (Peserta, Aurino, Andi, Dika). Klik OK.
Setelah selesai kita pilih sel A1 to A20, maka panah kecil akan muncul di ujung kanan sel. Jika kita meng-klik panah tersebut maka pilihan isi akan muncul dan jika kita pilih salah satu akan langsung masuk ke dalam sel tersebut.



Pembahasan lebih lanjut mengenali Data Validation ini akan dilanjutkan pada pembahasan khusus mengenali dan range name.

Wednesday, February 21, 2007

Lanjutan Excel Tip Dasar

Memasukkan Tanggal
Untuk mengetikkan tanggal hari ini kita dapat menggunakan cara tahan tombol CTRL dan tekan titik koma(;). Sedangkan untuk memasukkan jam tahan CTRL/SHIFT dan tekan titik dua(:)
Jika kita ingin memasukkan tanggal hari ini dan berubah setiap saat kita membuka spreadsheet tersebut, maka gunakan rumus (formula) =Now() dan format sel tersebut untuk menunjukkan tanggal. Jika kita mengubah formatnya dengan format jam (time), maka sel tersebut akan menunjukkan jam pada saat kita terakhir kali membuka workbook tersebut.

Angka Nol
Jika kita mempunyai tabel yang banyak menggunakan formula dalam spreadsheet dan kita tidak ingin menampilkan angka "0" maka pakailah "Tools/Options/View" dan pilihlah untuk menyembunyikannya dengan memberi tanda check (√) "Zero Values".

Gambar Nyusul ya


Akan tetapi jika kita ingin menyembunyikan hanya yang ada di tabel dan tidak di jumlahnya (yang biasanya diletakkan pada akhir baris atau akhir kolom) maka kita gunakan "Format/Conditional Formatting" dan pilih warna putih ("white") untuk font yang selnya bernilai "0". Untuk Conditional Formatting dapat dilihat di judul Conditional Formatting.

Copy Format Beberapa Kali (Format Painter)
Dengan Double-click pada Format Painter kita dapat mengcopy format suatu sel ke beberapa sel atau range sekaligus. Pilih sel yang akan dicopy formatnya, kemudian double-click pada Format Painter. Pada saat kita menggerakkan kursor pada sel yang akan ditempel (paste) formatnya maka kita akan melihat Format Painter mengikuti kursor tersebut. Paste (temple) format beberapa sel atau range, jika sudah selesai kabala ke icon Format Painter pada toolbar dan click sekali untuk menonaktifkan fungsi tersebut.

Tanda Dollar ($)
Jika kita akan mengcopykan rumus dari satu sel ke satu atau beberapa sel, maka kita harus mulai menggunakan tanda dollar ($) untuk menandai bahwa kita memakai alamat relative atau alamat absolute. Untuk melakukannya kita harus ke formula bar (window pada kiri atas layar tempat kita memasukkan angka maupun rumus) kita harus mengklik sebelum alamat setiap kolom dan baris dan tambahkan $. Misalnya rumus: A2*C4 maka $A$2 * C4 artinya $A$2 alamat absolute (tidak berubah jika dicopy) sedangkan C4 alamat relative (berubah jika dicopykan).
Kita dapat juga mengklik tombol "F4" pada keyboard. Dua buah $ akan muncul. klik “F4” lagi dan satu $ akan hilang. Dan seterusnya

Hal Dasar-Dasar dalam Excel

Walaupun excel merupakan program yang sangat popular dan banyak sekali yang telah menggunakan ada baiknya kita mulai dari penting yang mungkin kurang kita perhatikan selama memakai aplikasi excel ini.
Hal penting yang pasti sudah diketahui oleh kita semua adalah fungsi-fungsi database, fungsi penjumlahan (SUM), fungsi lainnya terutama statistic. Namun ada dua fungsi yang sangat membantu dalam pengolahan database yaitu fungsi-fungsi SUMPRODUCT, fungsi INDEX/MATCH (umumnya kita menggunakan fungsi-fungsi LOOKUP)
Fungsi dan Rumus Dasar yang perlu dipahami adalah sebagai berikut:

Penggunaan Sebagai Kalkulator
Salah satu fungsi yang paling banyak digunakan sehari-hari adalah jumlah (sum). Pilihlah 2 (dua) sel yang berisi angka dan lihatlah pada bagian bawah pada layar Excel. Kita dapat melihat . Jika kita tidak dapat melihat angka tersebut klik kanan status bar di bagian bawah kanan sheet dan tabs dan pilih SUM dari menu tersebut. Jika kita klik kanan pada maka kita akan melihat menu sebagai berikut:


Dengan kalkulator ini, bisa menghitung sum (jumlah nilai), count (jumlah data), average (rata-rata) dan sebagainya. Jika kita memilih dua sel yang berisi text maka yang tampil adalah fungsi "Count". Setiap kali kita memperoleh laporan atau data maka kita dapat menggunakan kalkulator untuk memeriksa angka-angkanya. Demikian pula dengan subtotal, kita dapat menghitung melalui kalkulator ini hanya dengan memilih sel yang dituju. Alat ini sangat penting !!!

Bersambung .....

Tuesday, February 20, 2007

Ms Access Entry Using Ms Excel

Microsoft Access is a convenient database package. It has templates for creating personal databases for books, recipes, etc. These templates are accessed by the Database Wizard which can be opened from the initial screen. The more specialized databases are created using

It is probably most efficient to enter the data into an Excel file and then import that file into Access. One reason that it is more convenient to work through Excel is that arithmetic manipulations such as computing ratios are easily done in Excel but only done with difficulty or not at all in Access.

Importing a database from Excel
• First create the Microsoft Database file, .mdb
• Select FILE and click on GET EXTERNAL DATA
• Select IMORT
• Scroll down the File Type menu to Microsoft Excell files
• Select from the list provided the file to be imported
• Click on IMPORT
• Click on NEXT
• Click on FINISH

Once the data is entered into the database the operations of sorting and selecting subtables from the data can be carried out.

Ms Excel sebagai Database

Microsoft excel merupakan aplikasi yang sangat membantu dalam penanganan database yang relative tidak besar. Dengan menggunakan aplikasi ini pembuatan database tidak yang tidak memerlukan pengolahan data yang terlalu kompleks dapat dibuat dengan mudah dan tentu saja lebih fleksibel, karena format data yang sudah banyak dikenal oleh pemakai komputer. Boleh dikatakan bahwa program database yang paling murah dan sederhana saat ini adalah Ms Excel dan kita tidak perlu sekolah dulu untuk membuat database dengan excel. Akan tetapi terdapat keterbatasan pada saat kita menggunakan Excel sebagai database.
1. Database Excel tidak bisa memasukkan data secara bersamaan (seperti sharing dalam dbms), jadi hanya satu orang pada satu waktu tertentu yang dapat memasukkan data ke database excel.
2. Terdapat batas jumlah data yang dimasukkan Setiap sheet dalam Workbook Excel terdiri dari 65,000 baris and 256 kolom. Satu Workbook Excel dapat terdiri dari 256 sheet. Jadi maksimum 4,292,608,000 cells (kurang dari empat milyar tiga ratus juta data).
Namun keterbatasan ini bukanlah penghambat untuk database perusahaan kecil atau instansi yang tidak menangani data yang cukup besar. Data penting salah satu departemen dalam perusahan atau bagian atau seksi tertentu yang tidak disimpan dalan database besar yang terpisah because they have no "corporate" significance but a departmental personal database can be created and the data used for very critical decisions.
Excel perlu mengenali data set anda sebagai database Excel, jika tidak maka kita tidak akan dapat mengakses fungsi-fungsi database dari menu “Data” (misalnya Sort, Filter, Form, Subtotal, Pivot Table).
Jadi semua orang dapat membuat database dengan Excel. Kita tidak perlu membuat form (format isian) yang rumit untuk memasukkan data, dan kita tidak perlu membuat queries yang rumit. Cukup gunakan rumus-rumus SUMPRODUCT, INDEX/MATCH dan SUBTOTAL untuk membuat laporan yang telah memiliki layout yang kita perlukan pada saat kita membutuhkannya.
Sedangkan untuk analisis dan laporan, apapun databasenya kita memerlukan Excel. Banyak sekali orang atau instansi bahkan perusahaan yang telah menggunakan database terpusat yang besar seperti (Oracle, SAP, Sybase, SQL Server...) atau bahkan system akuntansi terpusat atau aplikasi manufacturing seperti (JDE, SAP, Oracle,…..), namun dalam analisisnya atau pembuatan laporan mereka menggunakan Excel. Dan pekerjaan menganalisis dan membuat laporan akan akan menjadi lebih efisien jika kita mempelajari fungsi-fungsi atau rumus SUMPRODUCT dan INDEX/MATCH dalam Excel. Alasan utama bagi sebagian besar orang menggunakan Excel adalah karena aplikasi ini sangat user friendly dalam menganalisa dan membuat laporan, shg kita tidak memerlukan analis yang ahli seperti jika kita membuat laporan dengan menggunakan aplikasi yang rumit. Kalau kita menggunakan tenaga ahli khusus dalam analisis dan pelaporan makan kita akan mengalami penundaan laporan dengan banyaknya laporan yang harus dihasilkan oleh satu orang saja (yang ahli) dibandingkan jika seluruh pegawai memahami bagaimana membuat pelaporan dengan menggunakan excel.

Friday, February 16, 2007

Pemberian nama sebuah atau beberapa cell (sel) dalam Excel

Pemberian nama sebuah atau beberapa cell (sel) dalam Excel
Untuk memberi nama sebuah sel atau sekelompok sel maka pilih (sorot) sel atau range tersebut dan arahkan mouse ke Name Box pada ujung kanan atas di atas garis kolom dan disebelah “formula bar”. "Name Box" tooltip akan muncul pada saat cursor berada dibagian tersebut:



Dalam Name Box di contoh di atas anda melihat B3 yang merupakan alamat (address) sel yang dipilih. Klik pada name box dan tulislah nfJudul dan TEKANLAH ENTER. Sel terpilih atau range terpilih telah diberi nama. Misalnya kita telah memberi nama beberapa sel, kemudian kita akan menuju sel tertentu yang telah kita beri nama, maka geser cursor ke panah kecil disebelah name box dan kliklah pada panah tersebut. Kita akan melihat daftar nama sel atau range yang telah diberi nama. Pilih nfJudul sel atau range yang telah diberi nama akan terpilih. Selalu gunakan awalah "nf" pada saat memberi nama sel atau range untuk mempermudah nantinya.
Ingat setelah memberi nama dalam field di Name Box KITA HARUS MENEKAN ENTER.


Pemeliharaan Sel dan Range Yang diberi Nama
Jika kita mau menghapus nama field atau merubah sel dan range yang termasuk dalam sebuah nama tertentu maka kita gunakan menu "Insert/Name/Define" sehingga kita akan melihat tampilan kotak dialog sbb:




Jika kita akan menghapus nama sebuah field maka pilih nama yang ada dalam daftar setelah muncul dikotak yang berada di atas daftar baru tekan “delete”. Untuk mengubah sel atau rangenya maka ubahlah alamat cell yang ada di kotak "Refers to" CLICK pada ADD. Jangan lupa CLICK pada ADD.
Seperti yang dapat kita lihat, selain dapat menggunakan metode cepat seperti yang dijelaskan di atas (pada Name Box), untuk memberi nama field dapat dilakukan juga melalui kotak dialog window ini.

Tuesday, February 13, 2007

Fungsi Merubah Angka ke Kata Untuk MS Excel

Fungsi Terbilang(...) dan TerbilangRp(...), dan TerbilangSen(…)
Pada worksheet ini kita memakai fungsi terbilang yang telah di entry pada module Terbilang
Pada module tersebut kita memiliki dua fungsi utama untuk menampilkan angka menjadi:
1. Terbilang(x) -> sekian koma sekian per seratus
2. TerbilangRp(x) -> sekian rupiah sekian sen
2. TerbilangSen(x) -> sekian koma sekian sekian

Penggunaannya sama dengan penggunaan fungsi-fungsi dalam excel lainnya.

Contoh 922,337,203,685,477.00

Ditulis : = TerbilangRp(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh rupiah


Ditulis : = Terbilang(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh

Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh

Memasukkan Fungsi Terbilang
Masukkan Kode dalam listing vba function dengan cara mengcopy seluruh kode
ke dalam module Vba dalam suatu worksheet.

1. Blok/sorot A1:A163 dan Copy atau Ctrl-C pada Sheet Listing Vba Function


2. Pilih Tool - Macro - Visual Basic Editor atau Alt-F11
3. Insert - Module
4. Edit - Paste atau Ctrl-V
5 File Save … Beri nama misalnya: BacaAngka atau yang lainnya
selesai
anda tinggal menggunakannya.

contoh

!!!! Ingat anda harus men-setup macro security ke medium !!!!
Caranya
1 Menu Tools pilih tab Security lalu


2 Tekan tombol Macro Security pilih option Medium tekan Ok

3 Tutup Microsoft Excell dan Exit dari Excell
4 Buka Microsoft Excell
5 Mulai

LISTING

'This Public Function for Indonesian "Numeric to string Converstion"
'You can copy, modify or take part of this function
'Redesign and retouch to get new rupiah function by: aurinoradjamaris@yahoo.com
'aurinodjamaris@gmail.com
Web Site:



Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
Terbilang = ""
Exit Function
End If
'jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'triliun = Int(x / 1000 ^ 4)
'milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
'juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
'ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
'satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
'sen = Int((x - Int(x)) * 100)
'baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + "triliun "
End If

'baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + "milyar "
End If
'baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + "juta "
End If
'baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + "ribu "
End If
'baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
'baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + "koma " + Ratus(sen, 0) + "per seratus "
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Public Function TerbilangRp(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangRp = ""
Exit Function
End If
'jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + "triliun "
End If
'baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + "milyar "
End If
'baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + "juta "
End If
'baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + "ribu "
End If
'baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + ""
End If
'sebelum bagian sen
baca = baca & "rupiah "
'baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + Ratus(sen, 0) + "sen "
End If
End If
TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Function Ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + "ratus "
End If
End If
'baca bagian puluhan dan satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + "puluh "
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
Ratus = baca
End Function

Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = "Nol"
Case 1:
If Posisi <= 2 Or Posisi > 2 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select
End Function
Public Function TerbilangSen(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangSen = ""
Exit Function
End If
x = Round(x, 2)
'jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'triliun = Int(x / 1000 ^ 4)
'milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
'juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
'ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
'satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
'sen = Int((x - Int(x)) * 100)
'baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + "triliun "
End If

'baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + "milyar "
End If
'baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + "juta "
End If
'baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + "ribu "
End If
'baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
'baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + "koma " + angka(Left(sen, 1), 1) + angka(Right(sen, 1), 1)
End If
End If
TerbilangSen = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Need to find someting

Search the Web:

Sign up for PayPal and start accepting credit card payments instantly.