Sabtu, 20 Oktober 2012

Download Software Microsoft Visual Basic 6.0 Full Version | Free Download Software | Download Visual Basic 6.0


Download Software Microsoft Visual Basic 6.0 Full Version | Free Download Software | Download Visual Basic 6.0 - Microsoft Visual Basic merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment ( IDE ) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model ( COM ). Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects ( DAO ), Remote Data Objects ( RDO ), atau ActiveX Data Object ( ADO ), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. Beberapa bahasa skrip seperti Visual Basic for Applications ( VBA ) dan Visual Basic Scripting Edition ( VBScript ), mirip seperti halnya Visual Basic.


Programmer dapat membangun aplikasi dengan menggunakan komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi eksternal tambahan. Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, dan Java Visual Basic 6.0 dapat menghasilkan tipe data yang dapat disesuaikan sendiri. Dengan adanya fasilitas Native Code untuk mengkompilasikan source code, maka akan menghasilkan suatu aplikasi dengan waktu eksekusi lebih cepat. Visual Basic 6.0 menyediakan 3 macam interface yang bisa digunakan untuk merancang aplikasi sesuai dengan kebutuhan. Interface tersebut berupa MDI ( Multi Document nterface ), SDI ( Single Document Interface ) dan EDI ( Exploler Document Interface ). Fasilitas VB 6 yang disediakan lebih lengkap,...

..:: Fasilitas Microsoft Visual Basic 6.0 ::..
  1. Menu merupakan daftar perintah yang dikelompokkan dalam kriteria tertentu yang berfungsi melaksanakan sebuah perintah. Visual Basic 6 terdapat 13 menu utama yaitu File, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-In, Windows dan Help.
  2. Toolbar merupakan kumpulan tombol yang dapat melakukan sebuah perintah dengan cepat. Fungsi toolbar hampir sama dengan menu hanya toolbar berbentuk tombol-tombol yang susunannya tidak secara bertingkat. Contoh toolbar tersebut antara lain Add Form, Menu Editor, Save, Cut, Copy dan lain sebagainya.
  3. Form adalah tempat untuk meletakkan objek-objek yang digunakan untuk melaksanakan perintah yang diberikan. Pada bagian kanan atas form terdapat tombol Minimize, Maximize/Restore dan Close yang digunakan untuk mengatur tampilan jendela form.
  4. Window Code adalah jendela tempat menuliskan kode program. Semua kode perintah ditulis pada jendela ini. Pada bagian Window Code terdapat fasilitas kode editing yang cukup lengkap
  5. Toolbox adalah kumpulan objek yang digunakan untuk kontrol pada sebuah program. Toolbox terdiri atas beberapa tool yang kemudian ditempatkan pada sebuah form. Toolbox terdiri dari Pointer, Label, Image, Frame dan lain sebagainya.
  6. Project Explorer digunakan untuk melihat bagian-bagian proyek pembuatan aplikasi. Bagian-bagian tersebut dapat berupa project, form, data environment dan data report. Project Explorer ini berbentuk menu tree sehingga mempermudah dalam pengaksesannya. Pada jendela explorer terdapat tiga tombol kontrol tampilan antara lain Window Code untuk menampilkan kode, Window Project untuk menampilkan dalam bentuk visual dan Toggle Folder untuk pengelompokan jenis objek.
  7. Window Properties menampilkan semua properti dari obyek yang digunakan. Kita dapat mengubah setiap properti dari objek yang ada melalui jendela ini.
  8. Windows Form Layout utk mengatur letak form layar monitor.

Sumber : http://kolombloggratis.blogspot.com/2011/04/download-sofrware-microsoft-visual.html#ixzz29ugskwP5

Tips Memasukkan Rumus Excel


Tips Memasukkan Rumus Excel

Posted: August 15th, 2011 | Author: | Filed under: Microsoft Excel | Tags: , Ada beberapa tips yang perlu Anda tahu mengenai rumus/fungsi Excel.
Cara memasukkan sebuah fungsi/rumus Excel ke dalam suatu sel :
1. Letakkan pointer pada sel.
2. Tekan tanda sama dengan(=), lalu nama fungsi yang digunakan (nama fungsi boleh huruf besar atau kecil), dan tanda kurung buka (.
Contoh : =DATE(
3. Tanda kurung buka ( akan mengaktifkan syntax fungsi sehingga kita tahu parameter apa saja yang perlu diisi. Anda juga bisa menekan Ctrl + Shift + A untuk mengeluarkan syntax fungsi dan semua parameter yang harus diisi.
4. Isilah semua parameter yang diperlukan. Jika isi parameter berupa nama sel ataupun range, Anda bisa menggunakan mouse untuk mengklik sel/range yang dituju, lalu tekan koma(,) untuk pindah ke parameter berikutnya.
5. Tekan Enter jika sudah selesai. Atau tekan Esc jika Anda batal memasukkan fungsi.
6. Jika Anda lupa atau bingung tentang suatu fungsi, langsung saja tekan F1 untuk bantuan Excel.
Insert Function Dialog Box
Cara lain memasukkan formula ke dalam sel adalah dengan memilih tab Formula lalu Insert Formula. Dengan cara ini, Excel akan menampilkan kotak dialog Insert Function. Silakan dicoba, mana yang lebih cocok untuk Anda.
Membuat alamat sel Absolut
Dalam mengisi suatu parameter fungsi, seringkali kita harus memasukkan alamat sel yang tetap. Tetap di sini artinya alamat sel tidak akan berubah meskipun kita mengcopy kan fungsi itu ke sel lain. Alamat sel yang tetap itu disebut alamat sel absolut. Caranya : kita menekan tombol F4 di alamat sel yang akan kita jadikan absolute. Alamat sel absolute ditandai dengan tanda string ($) di depan alamat sel. Tanda string juga bisa didapat dengan menekan Shift 4.
Contoh : sel C5 diberi tanda string menjadi $C$5.
Bisa juga yang tetap hanya kolom atau hanya baris suatu sel. Sel C5 menjadi $C5 (kolom C tetap, baris berubah) atau C$5 (kolom berubah, baris 5 tetap).

Fungsi IF dalam Excel


Fungsi IF dalam Excel

Posted: October 12th, 2011 | Author: | Filed under: Microsoft Excel | Tags: Banyak pembaca yang menanyakan fungsi IF. Saya belumlah mahir dalam Excel, namun mari kita belajar Fungsi IF dari awal.
Syntax dari Fungsi IF  ini adalah :
IF(logical_test,value_if_true,value_if_false)
Maka dengan menggunakan Fungsi IF, kita memberikan :
  • suatu kondisi yang diuji(logical test) oleh Excel, lalu
  • jika kondisi itu terpenuhi maka lakukan A,
  • jika tidak terpenuhi maka lakukan B.
Contoh 1 :

Anda harus mengisi kolom Kategori.
Logical testnya adalah :
jika Biaya < atau = 120,000 maka Kategori=Within Budget
jika Biaya > 120,000 maka Kategori=Over Budget
Maka gunakan Fungsi If untuk mengisi kolom Kategori (mulai cell B2) :
=IF(A2<=120000,”Within Budget”,”Over Budget”)
Perhatikan : within budget dan over budget harus didalam tanda kutip karena merupakan teks dan   bukan numerik/angka.
contoh 2 :

Anda harus mengisi kolom Komisi.
Logical testnya :
jika Sales <500,000 maka Komisi=1% dari Sales
jika Sales  >= 500,000 dan <=1,000,000 maka Komisi=2% dari Sales
jika Sales >1,000,000 maka Komisi=3% dari Sales
Maka Fungsi IF di cell C3 adalah :
  =IF(B3>=500000,IF(B3<=1000000,2%,3%),1%)*B3
Di sini saya menggunakan 2 Fungsi IF dalam satu formula/rumus. Logika saya adalah :
cek B3 (sales) apakah >= 500,000, IF(B3>=500000
……….. jika ya maka cek lagi B3 <=1,000,000, jika ya maka 2%    IF(B3<=1000000,2%,3%)
……….. jika tidak maka 3%
jika tidak maka 1%.   ,1%)
lalu hasil yang saya dapatkan dari Fungsi IF saya kalikan B3 (sales) untuk mendapatkan komisi. *B3
Anda harus mencoba sendiri untuk mengerti dengan jelas.
contoh 3 :
Bisakah Fungsi IF digabungkan dengan fungsi lain? Bisa saja, contohnya Fungsi IF digabung dengan Fungsi AND. Dengan soal yang sama dengan contoh 2 di atas, rumus di cell C3 bisa juga ditulis dengan menggunakan Fungsi AND seperti ini :
=IF(B3<500000,1%,IF(AND(B3>=500000,B3<=1000000),2%,3%))*B3
Rumus di atas dibuat dengan logika persis mengikuti logical testnya. Silakan direnungkan :D

Pengenalan Beberapa Fungsi Atau Rumus Microsoft Excel


Pengenalan Beberapa Fungsi Atau Rumus Microsoft Excel

Posted: August 11th, 2011 | Author: | Filed under: Microsoft Excel | Tags: , , , , , Microsoft Excel sangat berguna untuk mengolah data. Pengolahan data bisa dilakukan dengan memakai rumus Excel yang relevan. Rumus Excel atau fungsi microsoft Excel adalah persamaan yang dapat melakukan perhitungan, meminta kembali informasi, memanipulasi isi sel lain, melakukan kondisi pengujian, dan banyak lagi.  Pengetikan rumus Excel selalu diawali dengan tanda sama dengan (=).
Sebuah rumus Excel dapat mengandung fungsi, operasi matematika, dan konstanta. Fungsi adalah rumus Excel atau formula yang merupakan  bawaan dari Microsoft Excel. Kita akan melihat beberapa fungsi microsoft Excel yang paling sering dipakai.

Rumus Excel VLOOKUP

Syntax dari fungsi microsoft excel ini adalah : VLOOKUP (lookup_value, table_array, col_index_num, range_lookup)
Rumus Excel VLOOKUP dipakai untuk mencari nilai dalam kolom pertama dari tabel dan mengembalikan nilai dalam baris yang sama dari kolom lain dalam tabel. Supaya lebih jelas, kita pakai fungsi Microsoft Excel VLOOKUP dalam contoh berikut.
Toko Saribusana memiliki tabel Daftar Barang sbb. :
rumus excel vlookup
Kemudian, saya diminta membuat tabel hasil penjualan bulan Juli 2011 seperti berikut :
formula microsoft excel vlookup2
Untuk mengisi kolom Keterangan, saya akan ambil dari Daftar Barang Toko Saribusana berdasarkan Kode yang ada, maka rumus Excel nya adalah
=VLOOKUP(B12,$B$3:$E$6,2,FALSE)
B12 : Kode Barang di B12 adalah acuan yang dipakai untuk mengambil data di tabel Daftar Barang.
$B$3:$E$6 : range tabel yang akan kita ambil datanya, dalam hal ini adalah tabel Daftar Barang tanpa mengikutsertakan judul kolom. Dan,  jangan lupa gunakan $ sebab range tabel adalah absolut.
2 : kolom ke-2 yaitu kolom Keterangan di range tabel adalah kolom yang akan kita ambil datanya. Kolom ke-1 selalu dimulai dari kolom paling kiri.
Singkatnya, kita menyuruh Excel melihat Kode di cel B12 lalu cari di range tabel Daftar Barang sesuai Kode yang sama, setelah itu ambil nilai di kolom Keterangannya dan isikan di tabel Hasil Penjualan. Hasilnya :
rumus excel vlookup 3
Demikian juga untuk mengisi kolom Harga Penjualan di cel E12, dengan memperhatikan bahwa Harga Penjualan = Harga Pokok * (1+Markup), maka , rumus Excel nya adalah
=VLOOKUP(B12,$B$3:$E$6,3,FALSE)*(1+VLOOKUP(B12,$B$3:$E$6,4,FALSE))
Di fungsi Microsoft Excel tersebut, kita menyuruh Excel melihat Kode di B12 lalu cari kode yang sama di tabel Daftar Barang, setelah itu ambil Harga Pokoknya dan kalikan Harga Pokok dengan (1+Markup). Nilai Markup diambil dengan cara yang sama dengan cara mengambil nilai Harga Pokok. Maka kita mendapatkan Harga Penjualan untuk Kode di B12.
Oke, silakan mencoba dulu dan mengutak atik fungsi Microsoft Excel VLOOKUP. Semoga mengerti.
Oh, ya, V di VLOOKUP singkatan dari vertikal. Penggunaan VLOOKUP (bukan HLOOKUP) ketika nilai-nilai acuan Anda berada dalam kolom di sebelah kiri tabel data dan Anda mengambil data lain di sebelah kanannya. Gunakan fungsi microsoft excel HLOOKUP ketika nilai-nilai acuan Anda berada dalam baris di sebelah atas tabel data dan Anda ingin mengambil data-data di baris bawahnya.

Rumus Excel IF

Syntax dari fungsi microsoft excel ini adalah : IF(logical_test,value_if_true,value_if_false)
Maka dengan menggunakan fungsi microsoft excel IF, kita memberikan :
  • suatu kondisi kepada Excel, lalu
  • jika kondisi itu terpenuhi maka lakukan A,
  • jika tidak terpenuhi maka lakukan B.
Oke, kita coba dalam kasus yang sama yaitu Toko Saribusana. Kembali saya diminta menambahkan sebuah kolom di Tabel Penjualan bulan Juli 2011 yang menunjukkan status barang. Jika penjualan barang lebih dari 500 unit berarti Barang Laku, jika penjualan diantara 300 dan 500 maka Cukup Laku, dan di bawah 300 berarti Ga Laku.
rumus excel IF
Rumus excel di sel G12 adalah
=IF(D12>300,IF(D12>500,”Laku Keras”,”Kurang Laku”),”Ga Laku”)
Saya meminta Excel untuk mengecek :
  • Apakah unit terjual di D12 lebih dari 300  =IF(D12>300
  • Jika ya maka cek lagi apakah D12 lebih dari 500, IF(D12>500
  • Jika ya maka Laku Keras, “Laku Keras”
  • jika tidak maka Kurang Laku.  “Kurang Laku”
  • jika tidak berarti barang Ga Laku. “Ga Laku”
Di atas terlihat bahwa terjadi dua kali pengecekan, atau saya memakai 2 kali rumus excel IF. Fungsi If kedua berada di dalam fungsi If pertama. Fungsi IF dapat dipakai di dalam fungsi IF lainnya, jangan lupa fungsi IF di dalam tidak memakai tanda sama dengan [=] lagi.
Sekarang kita akan mencoba fungsi microsoft excel yang berhubungan dengan tanggal.

Fungsi Microsoft Excel Date and Time

Kedua fungsi microsoft excel ini sering juga dipakai dalam mengolah data di Excel.
rumus excel date and time
Langsung saja, di atas adalah tabel Daftar Siswa Tercepat dalam Ujian IPA dari tiap kelas. Petugas administrasi memasukkan data tanggal, bulan, tahun dalam kolom-kolom terpisah supaya lebih cepat dan mudah. Nah, tugas saya mencari siapa yang tercepat dari kelima kontestan tersebut.
Pertama, saya satukan dulu tanggal, bulan dan tahun menjadi satu di sel C12 dengan fungsi microsoft excel :
=DATE(E3,D3,C3)
Fungsi microsoft excel ini mengambil data di sel E3,D3,C3 dan menjadikannya tanggal.
Lalu satukan juga jam, menit, dan detik tiap siswa di sel D12 dengan rumus :
=TIME(F3,G3,H3)
Rumus ini mengambil data di sel E3,D3,C3 dan menjadikannya waktu, untuk format time yang Anda ingini, ubah dalam menu Format Cells (klik kanan di sel, pilih Format Cells, pilih Time, pilih format yang Anda mau).
Baru saya cari siswa tercepat di sel E12 dengan fungsi microsoft excel :
=RANK(D12,$D$12:$D$16,1)
Fungsi Rank mencari urutan dalam suatu range, lalu Anda bisa pilih mau Ascending atau Descending.  Hasilnya adalah tabel berikut, selamat buat Cassey, kamu tercepat!
fungsi microsoft excel date and time 2
Okay, sementara itu dulu fungsi microsoft excel yang bisa saya berikan.
Kita akan bertemu lagi di tips & trik berikutnya.

Jumat, 19 Oktober 2012

Blog Akuntansi dan Pajak

Cara mengubah bilangan angka menjadi teks/ kalimat dalam MS Excel


Salam hangat sobat semua…hari ini saya ingin mencoba memberikan salah satu trik favorit saya dalam menjalan aplikasi Ms excel .yap trik bagaimana mengubah /mengkonversi suatu bilangan angka menjadi teks dalam Ms excel . mungkin diantara sobat semua ada yang merasa kurang perlu menggunakan trik/cara ini namun bagi sobat semua yang sering membuat kwitansi atau dalam pekerjaan di Ms excel selalu mengetik kalimat dari angka-angka itu pasti membuang waktu dan menjengkelkan …nah disini saya memberikan satu trik untuk sobat agar pekerjaan yang biasanya lamaaaaaa dan menjengkelkan dengan hitungan detik sudah dapat selesai..tanpa panjang lebar let’s go to trick

Langkah –langkah yang sobat lakukan :
1.      Sebelumnya sobat harus mendownload Add-innya disini
2.      Buka aplikasi prog Ms Excel, klik office Buton ( dipojok kiri atas  / logo MS Office ) dan pilih  Excel Option
3.      Setelah sobat pilih Excel Option  akan muncul  kotak dialog dan pilih Trust Center, setelah itu pilih  Trust Center Setting  lalu pilih  Macro Setting  lalu pilih point Enable all macros dan klik Ok
4.      Langkah selanjutny sobat pilih Add-ins dan akan muncul kotak dialog dan lalu klik Go
Setelah akan muncul kotak dialog dan klik browse, lanjut sob sekarang sobat tinggal mencari direktori tempat sobat menyimpan file terbilang yang tadi sobat download sebelumnya lalu sorot  ( hasil download adalah format RAR sobat harus mengkonversi terlebih dahulu )
5.    Setelah sobat sorot file terbilang lalu klik Ok, dan akan muncul kotak dialog lalu centang terbilang lalu klik Ok…Selamat sobat sudah bisa mengkonversi bilangan angka menjadi kalimat di Ms Excel.
 
Cara Mengoperasikan Fungsi Terbilang
Rumus 1
Mengubah angka bilangan di sel D3 dengan nominal 2.750.000
Sobat ketik formula di Cell yang sobat tentukan  =terbilang (D3) tekan enter maka akan berubah menjadi kalimat dua juta tujuh ratus lima puluh ribu
Rumus 2.
Mengubah angka bilangan di sel D3 dengan nominal 2.750.000
Ketik rumus formula di cell yang telah ditentukan  =proper(terbilang (D3) ) tekan enter maka akan berubah menjadi kalimat Dua Juta Tujuh Ratus Lima Puluh Ribu
Rumus 3.
Mengubah angka bilangan di sel D3 dengan nominal 2.750.000
Ketik rumus formula di cell yang telah ditentukan  = upper (terbilang (D3) ) tekan enter maka akan berubah menjadi kalimat DUA JUTA TUJUH RATUS LIMA PULUH RIBU ( menjadi huruf capital semua )
Rumus 4.
Mengubah angka bilangan di sel D3 dengan nominal 2.750.000
Ketik rumus formula di cell yang telah ditentukan  = proper (terbilang (D3)&” Rupiah”) tekan enter maka akan berubah menjadi kalimat Dua Juta Tujuh Ratus Lima Puluh Ribu Rupiah ( jenis mata uang dapat diganti sesuai kebutuhan sobat semua )


Sumber: http://dhany47.blogspot.com/2012/07/cara-mengubah-bilangan-angka-menjadi.html

Rabu, 17 Oktober 2012

Script Konversi Angka ke Terbilang

pemakaian script ini bisa dilihat pada
http://omanscripts.blogspot.com/2008/05/terbilang-angka.html


===begin of script===
Option Explicit
'Main Function
Function
Terbilang(ByVal MyNumber)
Dim Dollars, Cents,
Temp
Dim DecimalPlace, Count
Dim
bilangan
ReDim Place(9) As String

Place(2) = " Ribu "
Place(3) = " Juta
"
Place(4) = " Milyar "
Place(5) = "
Triliun "
' String representation of
amount.
MyNumber =
Trim(Str(MyNumber))
' Position of decimal place 0 if
none.
DecimalPlace = InStr(MyNumber,
".")
' Convert cents and set MyNumber to dollar
amount.
If DecimalPlace > 0
Then
Cents =
GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &
_

"00", 2))
MyNumber =
Trim(Left(MyNumber, DecimalPlace - 1))
End
If
Count = 1
Do While MyNumber
<> ""
Temp =
GetHundreds(Right(MyNumber, 3))

bilangan = Temp & Place(Count)

If bilangan = "Satu Ribu " Then bilangan = "Seribu
"
If Temp <> "" Then Dollars
= bilangan & Dollars
If
Len(MyNumber) > 3
Then

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""
End
If
Count = Count +
1
Loop
Select Case
Dollars
Case
""
Dollars
= "Rupiah"
Case
"One"

Dollars = "Satu Rupiah"
Case
Else

Dollars = Dollars & " Rupiah"
End
Select
Select Case
Cents
Case
""
Cents =
""
Case
"One"

Cents = " and One
Cent"

Case Else

Cents = " Koma " & Cents
End
Select
Terbilang = Dollars & Cents
End
Function

' Converts a number from 100-999
into text
Function GetHundreds(ByVal MyNumber)
Dim
Result As String
If Val(MyNumber) = 0 Then Exit
Function
MyNumber = Right("000" & MyNumber,
3)
' Convert the hundreds place.
If
Mid(MyNumber, 1, 1) = "1" Then

Result = "Seratus "
ElseIf Mid(MyNumber, 1, 1) <>
"0" Then
Result =
GetDigit(Mid(MyNumber, 1, 1)) & " Ratus "
End
If
' Convert the tens and ones
place.
If Mid(MyNumber, 2, 1) <> "0"
Then
Result = Result &
GetTens(Mid(MyNumber, 2))

Else
Result = Result &
GetDigit(Mid(MyNumber, 3))
End If

GetHundreds = Result
End Function

'
Converts a number from 10 to 99 into text.
Function
GetTens(TensText)
Dim Result As
String
Result =
"" ' Null out the
temporary function value.
If Val(Left(TensText, 1)) = 1
Then ' If value between
10-19...
Select Case
Val(TensText)

Case 10: Result =
"Sepuluh"

Case 11: Result =
"Sebelas"

Case 12: Result = "Dua
Belas"

Case 13: Result = "Tiga
Belas"

Case 14: Result = "Empat
Belas"

Case 15: Result = "Lima
Belas"

Case 16: Result = "Enam
Belas"

Case 17: Result = "Tujuh
Belas"

Case 18: Result = "Delapan
Belas"

Case 19: Result = "Sembilan
Belas"

Case Else
End
Select

Else
' If value between 20-99...
Select
Case Val(Left(TensText,
1))
Case
2: Result = "Dua Puluh
"
Case 3:
Result = "Tiga Puluh
"
Case 4:
Result = "Empat Puluh
"
Case 5:
Result = "Lima Puluh
"
Case 6:
Result = "Enam Puluh
"
Case 7:
Result = "Tujuh Puluh
"
Case 8:
Result = "Delapan Puluh
"
Case 9:
Result = "Sembilan Puluh
"
Case
Else
End
Select
Result = Result &
GetDigit _

(Right(TensText, 1)) ' Retrieve ones place.
End
If
GetTens = Result
End
Function

' Converts a number from 1 to 9 into
text.
Function GetDigit(Digit)
Select Case
Val(Digit)
Case 1: GetDigit =
"Satu"
Case 2: GetDigit =
"Dua"
Case 3: GetDigit =
"Tiga"
Case 4: GetDigit =
"Empat"
Case 5: GetDigit =
"Lima"
Case 6: GetDigit =
"Enam"
Case 7: GetDigit =
"Tujuh"
Case 8: GetDigit =
"Delapan"
Case 9: GetDigit =
"Sembilan"
Case Else: GetDigit =
""
End Select
End Function

===begin of script===

Konversi Angka ke Bilangan dalam MS Excel

Beberapa waktu lalu pernah kepikiran buat bikin rumus untuk merubah angka menjadi huruf (bilangan). Tapi baru kepikiran aja, blom sempet dikerjain. Waktu dicoba pake rumus excel biasa (pake VLOOKUP) hasilnya bisa, tapi ngga maksimal, kalo angka "11" hasilnya jadi "Sepuluh Satu".

Setelah tanya kiri kanan, ternyata ada cara yang lebih mudah, yakni dengan membuat sendiri rumus yang diinginkan dengan vasilitas visual basic editor yang seterusnya dijadikan sebuah add-in. Cara ini terbilang lebih mudah, karena sekali kita menambahkan add-in ini, lalu seterusnya kita dapat menggunakan rumus ini kapan pun.

Cara ini saya dapet dari blognya senior saya: omankomarudin.blogspot.com. Untuk membuat rumus ini dari mulai nol bisa dibuka disana untuk lebih jelasnya. Disini saya cuma jelaskan cara singkat nya saja. Untuk membuat rumus yang otomatis merubah angka menjadi huruf silahkan ikuti langkah-langkah berikut ini:

Untuk Excel 2003 :
  1. Donlod file berikut : terbilang.zip
  2. Ekstrak file tersebut ke direktori "c:/windows/addins
  3. Buka Ms Excel 2003, lalu Klik Tools > Addins (lalu akan muncul Addins window
  4. Beri tanda ceklis pada "terbilang" lalu klik "OK"
  5. Bila add-in "terbilang" tidak ada dalam daftar tersebut, Klik "Browse" lalu cari file yang bernama "terbilang.xla" di tempat anda meng-ekstrak file "terbilang.zip" kalo sudah ketemu filenya klik "OK"
  6. Tutup program MS Office Excel.
Untuk Excel 2007
  1. Donlod file berikut : terbilang.zip
  2. Ekstrak file tersebut ke direktori "c:/windows/addins
  3. Buka Ms Excel 2007 lalu klik Office Button > Excel Option
  4. Pilih add-ins lalu klik go (lalu akan muncul Addins window)
  5. Beri tanda ceklis pada "terbilang" lalu klik "OK"
  6. Bila addin "terbilang" tidak ada dalam daftar tersebut, Klik "Browse" lalu cari file yang bernama "terbilang.xla" di tempat anda meng-ekstrak file "terbilang.zip" kalo sudah ketemu filenya klik "OK"
  7. Tutup program MS Office Excel.

Nah, selesai lah nambahin rumus ke excel ... sekarang tinggal cara menggunakannya

Buka Ms Excel, ketik angka 1234 (ini hanya contoh) pada cell A1
lalu pada cell A2 tuliskan rumus berikut (tanpa tanda kutip) "=terbilang(A1)"
Maka hasilnya adalah "Seribu Dua Ratus Tiga Puluh Empat"
Jika ingin menggunakan rupiah di akhirnya, maka rumusnya "=rupiah(A1)"

catatan:
A1 adalah cell dimana tertulis angka yang akan dikonversi menjadi huruf



Program Aplikasi Pembayaran Siswa

Upaya MA Mambaul Ulum 2 Pamekasan untuk menjadi MAMUDA INOVATIF dalam bingkai Islam dan Teknologi, terus dilakukan. Kali ini kami berikan bocoran tentang penggunaan Aplikasi untuk komputerisasi setiap pembayaran siswa menggunakan sebuah Program Khusus yang dibuat langsung oleh Kepala Madrasah, Haeruddin, S.Pd.
Program ini dibuat menggunakan Microsoft Excel 2010, namun bisa dibuka menggunakan Ms Excel 2007.
Nah, apa saja kehebatan program yang perancangan serta pembuatannya dibutuhkan waktu satu minggu ini?
  1. Terdapat sistem Login yang dibagi 2, yakni
  • Staff. Di mana Staff hanya bisa menginput data SPP, OSIS, DPP, LKS, dll. Staff juga bisa mencetak kuitansi pembayaran. Jadi saat ada siswa yang membayar, diinput dan langsung dicetak kuitansinya.
  • Admin. Yang namanya Admin, ya gak ikutan menginput pembayaran. Admin bisa mengubah data siswa, data besarnya iuran tiap item, mengatur siapa saja yang mendapat keringanan SPP, melihat rekap bulanan, rekap akhir dan history pembayaran
2. Ketika seorang siswa sudah membayar SPP pada suatu bulan, maka staff tidak bisa memasukkan data lagi.
3. Form input pembayaran sangat mudah. Bahkan untuk SPP dan OSIS tidak perlu menuliskan angkanya. Cukup ditulis huruf apa saja, akan langsung keluar besarnya iuran siswa dimaksud
Form Input Pembayaran
4. Bisa langsung cetak kuitansi
5. Walaupun hanya disetting untuk satu semester, namun untuk semester berikutnya, Admin hanya tinggal memilih Semester saja. Semua data dan nama Bulan akan langsung menyesuaikan
6. Sheet yang terbuka, menyesuaikan. Artinya tidak semua Sheet ditampilkan. Ketika kita hanya ingin melihat rekap saja, maka HANYA Sheet rekap yang tampak, sementara Sheet yang lain tidak muncul, dan tidak bisa di-Unhide dengan cara biasa.
7. dan lain-lain
Program ini baru dibuat, sehingga sangat �memungkinkan untuk diadakan perbaikan terus menerus.
Ingin mencoba? Silahkan download �di sini

Membuat Kalender Elastis di Ms Excel

Contoh Kalender Asal Jadi
Pendahuluan
Array Formula adalah sebuah rumus aneh bin ajaib yang sampai saat menulis catatan ini, saya sendiri belum paham 100 % terhadap rumus jenis ini. Saya sebut aneh, sebab memang tidak biasa dari jenis rumus yang lain (kita akan melihatnya nanti). Namun, dalam pembuatan kalender elastis ini, kita akan mempraktekkannya.
Kalender yang akan kita buat, berlaku untuk tahun 1904 sampai tahun 9999. Jadi sangat elastis. Bisa dibayangkan, bagaimana mengatur dan mengelolanya? Nah, biar lebih praktis, ikuti langkah-langkah berikut.
Untuk membuat kalender pada sel B2:H9:

  1. Blok sel B2:H2 dan dimerge (dijadikan satu)
  2. Masukkan sebuah tanggal pada sel B2, contoh 1/3/2011
  3. Tanggal yang dimasukkan tidak berpengaruh, karena yang akan diproses nantinya Cuma bulan dan tahunnya. Sehingga kita format sel tersebut agar yang tampil hanya bulan dan tahun saja, dengan cara klik kanan B2:H2, pilih Format cells. Pada tab Number pilih Custom, dan tuliskan : mmmm yyyy pada bagian Type.
  4. Masukkan nama hari pada sel B3:H3
  5. Sekarang saatnya kita menuliskan rumus yang cukup panjang. Saran saya, rumus di bawah ini kita print dulu, atau Excel kita dibuat tampilan agak kecil dengan memilih menu Restore Down (tombol berbentuk kotak putih di sebelah kiri tombol Close, pada pojok kanan atas Excel).
  • Untuk komputer yang setting regionalnya pake Bahasa Inggris, Blok sel B4:H9 dan tuliskan rumus berikut:
=IF(MONTH(DATE(YEAR(B2),MONTH(B2),1))<>MONTH(DATE(YEAR(B2),MONTH(B2),1)-(WEEKDAY(DATE(YEAR(B2),MONTH(B2);1))-1)+{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1),”",DATE(YEAR(B2),MONTH(B2),1)-(WEEKDAY(DATE(YEAR(B2),MONTH(B2),1))-1)+{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1)
  • Untuk komputer yang setting regionalnya pake Bahasa Indonesia, Blok sel B4:H9 dan tuliskan rumus berikut:
=IF(MONTH(DATE(YEAR(B2);MONTH(B2);1))<>MONTH(DATE(YEAR(B2);MONTH(B2);1)-(WEEKDAY(DATE(YEAR(B2);MONTH(B2);1))-1)+{0;1;2;3;4;5}*7+{1]2\3\4\5\6\7}-1);”";DATE(YEAR(B2);MONTH(B2);1)-(WEEKDAY(DATE(YEAR(B2);MONTH(B2);1))-1)+{0;1;2;3;4;5}*7+{1\2\3\4\5\6\7}-1)
Perhatian:
Setelah selesai menulis rumus, jangan langsung di-enter. Tapi ikuti langkah berikut:
Tarik nafas yang dalam, tahan, keluarkan bersamaan dengan menekan tombol Ctrl+Shift+Enter.
Langkah inilah yang disebut dengan array formula, di mana di formula bar, sekarang ada tambahan tanda {} pada awal dan akhir rumus yang kita tulis. Kalau kita hanya menekan tombol Enter, niscaya akan menghasilkan error.
Kalau kita mau mengedit, juga harus menekan Ctrl+Shift+Enter. Sehingga rumus Array seringkali disebut CSE Formula. CSE adalah singkatan dari Ctrl, Shift, Enter
  • Sekarang di sel B4:H9 akan tertulis angka ribuan.
  • Format sel B4:H9 sehingga hanya menampilkan tanggal saya, dengan cara seperti langkah 3, tapi di bagian Type kita tulis d saja.
Kalender elastis sudah berhasil kita buat, dan kita bisa merubah bulan dan tahun di sel B2, dan secara otomatis tanggalnya akan ter-update.
Untuk perbandingan, di sini bisa kita download contoh kalender� asal-asalan yang saya buat seperti langkah di atas, tapi sudah sedikit dimodifikasi.

Terjemah Angka ke Teks dalam SKHU SMP atau SMA di Excel tanpa Macro

Ujian Nasional SMP dan SMA sudah berakhir. Sekolah tinggal menunggu hasil akhir untuk menentukan kelulusan siswa. Setelah pengumuman kelulusan (untuk SMA rencananya tanggal 16 Mei 2011), sekolah baru mendapatkan rekap Nilai UJian Nasional dari Diknas. Nah, sebelum SKHUN diterima sekolah (untuk SMA rencananya tanggal 26 Juni 2011), terkadang banyak siswa yang meminta dibuatkan Surat Keterangan Hasil Ujian (SKHU) sebagai syarat mendaftar di perguruan tinggi.
Dalam membuat SKHU, selain kita harus mencantumkan nilai Ujian Nasional, kita juga perlu menuliskan angka nilai tersebut dalam bentuk huruf.
Contoh:
No. Mata Pelajaran Nilai
Angka Huruf
1 Bahasa Indonesia 8,40 delapan koma empat nol
2 Bahasa Inggris 7,75 tujuh koma tujuh lima
3-dst.


Jumlah 48,23 empat puluh delapan koma dua tiga
Pembahasan kita kali ini adalah bagaimana cara menuliskan nilai Huruf seperti tertera dalam gambar di atas di Microsoft Excel tanpa Macro. Kalau kita browsing di internet, penerjemahan angka ke teks biasanya menggunakan fungsi TERBILANG yang dibuat menggunakan macro atau VBA (Visual Basic Application). Ada yang sudah dibuat Add-ins untuk memudahkan pengguna. Namun, penggunaan macro perlu beberapa langkah untuk bisa diapplikasikan, yakni dengan men-setting Macro Security menjadi enabled. Untuk mengatasi hal tersebut, saya mencoba membuat rumus tanpa macro untuk melaksanakan tugas di atas.
Kalau kita perhatikan cara penulisan Nilai huruf di atas, maka kita bisa melihat perbedaan �pengucapan� untuk nilai mata pelajaran dengan jumlah. Di mana untuk nilai mata pelajaran �dibaca� angka per angka. Sedangkan untuk jumlah, Nilai sebelum koma �dibaca� seperti biasa, sedang nilai setelah koma dibaca angka per angka. Untuk itu kita perlu dua jenis rumus.
A. Rumus untuk Nilai per mata pelajaran
Misalnya nilai Matematika terdapat di sel A5.
1. Kita buat Defined Name terlebih dahulu, dengan cara:
a. klik kanan di sel kosong, pilih Define Name, pada bagian Name, kita isi �NN� (tanpa tanpa kutip).
b. pada bagian Refers To, untuk yang regional settingnya menggunakan Bahasa Indonesia, tuliskan:
={“nol”\”satu”\”dua”\”tiga”\”empat”\”lima”\”enam”\”tujuh”\”delapan”\”sembilan”}
Untuk yang regional settingnya Bahasa Inggris:
={�nol�,”satu “,”dua “,”tiga “,”empat “,”lima “,”enam “,”tujuh “,”delapan “,”sembilan “}
Perhatikan: setelah tanda sama dengan, kita gunakan tanda kurung kurawal, bukan tanda kurung biasa.
c. Pilih OK
d. Aktifkan sel B5, lalu kopikan rumus berikut untuk yang regional settingnya Bahasa Indonesia:
=IF(LEFT(A5;2)+0=10;”sepuluh koma nol nol”;INDEX(NN;LEFT(A5)+1)&” koma “&INDEX(NN;LEFT(RIGHT(TEXT(A5;”0,00″);2))+1)&” “&INDEX(NN;RIGHT(RIGHT(TEXT(A5;”0,00″);2))+1))
dan untuk yang Bahasa Inggris:
=IF(LEFT(A5,2)+0=10,”sepuluh koma nol nol”,INDEX(NN,LEFT(A5)+1)&” koma “&INDEX(NN,LEFT(RIGHT(TEXT(A5,”0,00″),2))+1)&” “&INDEX(NN,RIGHT(RIGHT(TEXT(A5,”0,00″),2))+1))
B. Rumus untuk Jumlah Nilai
Misal Jumlah nilai ada di sel� A26
a. klik kanan di sel kosong, pilih Define Name, pada bagian Name, kita isi �N� (tanpa tanpa kutip).
b. pada bagian Refers To, untuk yang regional settingnya menggunakan Bahasa Indonesia, tuliskan:
={“satu”\”dua”\”tiga”\”empat”\”lima”\”enam”\”tujuh”\”delapan”\”sembilan”}
Untuk yang regional settingnya Bahasa Inggris:
={“satu “,”dua “,”tiga “,”empat “,”lima “,”enam “,”tujuh “,”delapan “,”sembilan “}
Perhatikan: setelah tanda sama dengan, kita gunakan tanda kurung kurawal, bukan tanda kurung biasa.
c. Pilih OK
d. Aktifkan sel B26, lalu kopikan rumus berikut untuk yang regional settingnya Bahasa Indonesia:
=IF(LEFT(TEXT(A23;”00″);2)+0=10;”sepuluh”;IF(LEFT(TEXT(A23;”00″);2)+0=11;”sebelas”;IF(LEFT(TEXT(A23;”00″);2)+0=0;”nol”;IF(LEFT(TEXT(A23;”00″);2)+0<10;INDEX(N;LEFT(TEXT(A23;”00″);2)+0);IF(LEFT(TEXT(A23;”00″);2)+0<20;INDEX(N;RIGHT(LEFT(TEXT(A23;”00″);2))+0)&” belas”;IF(AND(LEFT(TEXT(A23;”00″);2)+0>19;RIGHT(LEFT(TEXT(A23;”00″);2))+0=0);INDEX(N;LEFT(LEFT(TEXT(A23;”00″);2))+0)&” puluh”;INDEX(N;LEFT(LEFT(TEXT(A23;”00″);2))+0)&” puluh “&INDEX(NN;RIGHT(LEFT(TEXT(A23;”00″);2))+0)))))))&” koma “&IF(RIGHT(TEXT(A23;”0,00″);2)+0=0;”nol nol”;INDEX(NN;LEFT(RIGHT(TEXT(A23;”0,00″);2))+1)&” “&INDEX(NN;RIGHT(RIGHT(TEXT(A23;”0,00″);2))+1))
dan untuk yang Bahasa Inggris:
=IF(LEFT(TEXT(A26,”00″),2)+0=10,”sepuluh”,IF(LEFT(TEXT(A26,”00″),2)+0=11,”sebelas”,IF(LEFT(TEXT(A26,”00″),2)+0=0,”nol”,IF(LEFT(TEXT(A26,”00″),2)+0<10,INDEX(N,LEFT(TEXT(A26,”00″),2)+0),IF(LEFT(TEXT(A26,”00″),2)+0<20,INDEX(N,RIGHT(LEFT(TEXT(A26,”00″),2))+0)&” belas”,IF(AND(LEFT(TEXT(A26,”00″),2)+0>19,RIGHT(LEFT(TEXT(A26,”00″),2))+0=0),INDEX(N,LEFT(LEFT(TEXT(A26,”00″),2))+0)&” puluh”,INDEX(N,LEFT(LEFT(TEXT(A26,”00″),2))+0)&” puluh “&INDEX(NN,RIGHT(LEFT(TEXT(A26,”00″),2))+0)))))))&” koma “&IF(RIGHT(TEXT(A26,”0,00″),2)+0=0,”nol nol”,INDEX(NN,LEFT(RIGHT(TEXT(A26,”0,00″),2))+1)&” “&INDEX(NN,RIGHT(RIGHT(TEXT(A26,”0,00″),2))+1))
Waduh, panjang amat rumusnya ya�����!
Demikianlah rekan-rekan, rumus Terbilang untuk SKHU. Kalau mau lihat contoh yang sudah jadi di Ms Excel bisa didownload di sini. Di file tersebut, saya juga menyertakan langkah menangani rumus yang panjang seperti di atas, ditambah rumus untuk mencari nama depan, nama tengah dan nama belakang. Serta satu lagi contoh membuat kalender dengan array formula dan conditional formatting.

Konversi Angka Menjadi Huruf di MS Excel



Konversi dari angka menjadi huruf biasanya digunakan untuk pembuatan kwitansi/receipt. Misalnya angka Rp.1.001.000,- ditulis menjadi “Satu juta seribu rupiah”. Berikut ada tips untuk mengkonversi angka menjadi huruf secara otomatis dengan memanfaatkan skrip VB.
[Catatan: Saya menggunakan MS Office 2007]
  1. Tentu saja, buka dulu program MS Excel dengan cara yang paling disukai.
  2. Sebelumnya tampilkan dulu Tab Menu Developer di Ribbon, yaitu dengan cara klik Microsoft Button yang ada di pojok kiri atas, lalu pilih Excel Options. Di tab Popular, aktifkan pilihan “Show Developer Tab in the Ribbon“, lalu tekan OTRE.
  3. Di Tab menu Developer, pilih menu Visual Basic untuk menampilkan Visual Basic Editor (VBE). Pilih menu Insert > Module. Salin kode di bawah ke dalam jendela Module1.
    Dim Huruf(0 To 9) As String
    Dim ax(0 To 3) As Double
     
    Function INIT_angka()
        Huruf(0) = ""
        Huruf(1) = "satu "
        Huruf(2) = "dua "
        Huruf(3) = "tiga "
        Huruf(4) = "empat "
        Huruf(5) = "lima "
        Huruf(6) = "enam "
        Huruf(7) = "tujuh "
        Huruf(8) = "delapan "
        Huruf(9) = "sembilan "
     
    End Function
     
    Function dgratus(angka As Double) As String
        Temp = ""
        INIT_angka
        panjang = Len(Trim(Str(angka)))
        nilai = Right("000", 3 - panjang) + Trim(Str(angka))
        For y = 3 To 1 Step -1
            ax(y) = Mid(nilai, y, 1)
        Next y
        Select Case ax(1)
            Case Is = 1
                Temp = "Seratus "
            Case Is > 1
                Temp = Huruf(Val(ax(1))) + "" + "ratus "
            Case Else
                Temp = ""
            End Select
     
        Select Case ax(2)
            Case Is = 0
                Temp = Temp + Huruf(Val(ax(3)))
            Case Is = 1
                Select Case ax(3)
                    Case Is = 1
                        Temp = Temp + "Sebelas"
                    Case Is = 0
                        Temp = Temp + "Sepuluh"
                    Case Else
                        Temp = Temp + Huruf(Val(ax(3))) + " belas"
                End Select
            Case Is > 1
                Temp = Temp + Huruf(Val(ax(2))) + "puluh"
                Temp = Temp + " " + Huruf(Val(ax(3)))
            End Select
        dgratus = Temp
    End Function
    Function dghuruf(angka As Double) As String
        Dim ratusan(0 To 6) As String
        Dim sebut(0 To 4) As String
        sebut(1) = " ribu "
        sebut(2) = " juta "
        sebut(3) = " milyar "
        sebut(4) = " triliyun "
        panjang = Len(Trim(Str(angka)))
        kali = Int(panjang / 3)
        If Int(panjang / 3) * 3 <> panjang Then
            kali = kali + 1
            sisa = panjang - Int(panjang / 3) * 3
            nilai = Right("000", 3 - sisa) + Trim(Str(angka))
        Else
            nilai = Trim(Str(angka))
        End If
     
        For x = 0 To kali
            ratusan(kali - x) = Mid(nilai, x * 3 + 1, 3)
        Next x
     
        For y = kali To 1 Step -1
            If y = 2 And Val(ratusan(y)) = 1 Then
                Temp = Temp + "seribu "
            Else
                If Val(ratusan(y)) = 0 Then
                    Temp = Temp
                Else
                    Temp = Temp + dgratus(Val(ratusan(y)))
                    Temp = Temp + sebut(y - 1)
                End If
            End If
        Next y
        dghuruf = Temp
    End Function
  4. Setelah itu tutup jendela VBE dengan meng-klik menu File > Close and Return to Microsoft Excel.
  5. Selanjutnya simpan lembar kerja tersebut dengan memilih tombol Office Button dan pilih menu Save As > Excel Macro – Enabled Workbook.
  6. Konversi Angka Menjadi Huruf di MS Excel
  7. Sekarang silahkan menguji coba dengan menulis angka berapa saja di sembarang cell. Misalnya di A1 kita tulis 25081981. Di sel B1 kita ingin menampilkan hurufnya, maka di B1 ketikkan =dghuruf(A1)
Untuk menambahkan kata “rupiah” di belakangnya, tambahkan &” rupiah”, sehingga menjadi
=dghuruf(A1)&" rupiah"
.
Untuk mengubah supaya huruf depan tiap kata menjadi kapital, tambahkan fungsi PROPER, sehingga menjadi
=PROPER(dghuruf(A1)&" rupiah")
.
Untuk mengubah setiap huruf menjadi kapital, tambahkan fungsi UPPER, sehingga menjadi
=UPPER(dghuruf(A1)&" rupiah")
.
Selamat mencoba dan semoga bermanfaat. Smile
Untuk mengkonversi huruf supaya tertulis terbalik (ıuı ıʇɹǝdǝs), kunjungi tool membalik teks.

Excel 2007: Merubah Angka menjadi Tulisan

Kang, tolong dong .. gimana caranya supaya angka di Excel ini bisa otomatis berubah jadi angka, supaya kita gak ribet musti ngetik lagi…banyak salah ketik nich !!!
Itu kalimat terakhir yang saya ingat, saat saya menemukan trik ini dari Microsoft.com. Saya belajar banyak dari situs ini mengenai penggunaan program-program yang ada di Microsoft Office. Dengan kata lain, situs ini sebagai pembimbing online saya dalam memecahkan kasus dan permasalahan dalam penggunaan excel (bisa diklik disini untuk lihat versi aslinya).
Sebenarnya, untuk membuat angka menjadi teks, bukan memakai rumus atau formula Excel biasa. Tapi, memakai sebuah fasilitas lain yaitu makro excel. Kita lewati cara pembuatan makro excel ini. Adapun file makro terbilang ini dapat diunduh disini
Untuk bisa menerapkan makro ini, berikut adalah petunjuk singkatnya. Setelah berkas (file) di atas Anda unduh (download) di , bukalah dengan aplikasi pembaca teks. WordPad atau Notepad.
  • Bukalah berkas Excel yang baru, atau berkas milik Anda yang ingin ditambahi kode ini. Tekan Alt + F11. Langkah ini akan membuka satu jendela khusus untuk Visual Basic Editor.
  • Di bagian VBAProject di panel sebelah kiri, klik-kanan ThisWorkbook > Insert > Module.

  • Di bagian kosong yang terbuka di bagian kanan, tuliskan kode macro yang tadi dibuka di WordPad. Silakan salin-dan-tempel (Copy Paste istilahnya).
  • Kembalilah ke jendela Excel Anda, dan cobalah tuliskan formula terbilang di salah satu sel. Misalnya, tulislah =terbilang(1002300) maka hasilnya akan berupa tulisan satu juta dua ribu tiga ratus rupiah. Anda juga dapat menulis formula dengan =terbilang(B3), misalnya, dan sel B3 berisi angka yang ingin dibuat teks.
Perhatian:
Bila macro di aplikasi Excel Anda tidak dapat dijalankan, periksalah bagian Macro security. Caranya lihat gambar di bawah ini

Untuk menghilangkan Kata “Rupiah” Bisa diedit melalui perintah Macro nya …
Selamat Mencoba ….
Sumber :  http://teknologi.kompasiana.com/terapan/2011/06/14/excel-2007-merubah-angka-menjadi-tulisan/
Disini

Kamus Function Excel (Lebih dari 150 Rumus)

Kali ini, saya sharing tentang sebuah file berisi Kamus fungsi atau rumus-rumus Microsoft Excel yanng cukup lengkap. Namun fungsi-fungsi baru Excel 2007 belum ada di situ. Kamus ini bukan buatan saya lho. Semua fungsi diberi penjelasan dan contohnya sekaligus.


Kepengin? Download aja langsung dari sumbernya di sini. Gratis? Pastinya... Hanya saja pake Bahasa Inggris. 


Setelah didownload, nama file Excel-nya jangan diubah, karena akan mengakibatkan tidak berfungsinya hyperlink yang ada di file tersebut.

Sumber: http://excelheru.blogspot.com/2011/11/kamus-function-excel.html

Langkah membuat Mega Formula Terbilang untuk Raport atau SKHU Tanpa Macro

Setelah agak lama tidak posting, karena harus istirahat total, kali ini akan membahas tentang cara menerjemahkan angka ke huruf yang biasa dipakai di penulisan Raport dan SKHU.
Kalau kita cari di Google dengan mengetikkan kata kunci "Terbilang", maka akan banyak didapatkan rumus Terbilang, tapi yang pakai Macro. Nah, di tulisan ini akan dibeber Fungsi Terbilang yang tanpa Macro.


Rumus yang dibahas di sini bersumber Maha Guru Excel Indonesia, Mbak Siti-Vi dan Mbak Hapsari di Milis Belajar-Excel#14674. Sehingga rumus ini bukan buatan saya, saya hanya tinggal menggunakan saja. Hehehehe.


Misalnya angka ada di sel C5, maka rumusnya adalah:
=IF(--INT(C5)=0,"Nol ",IF(--(LEFT(TEXT(INT(C5),"000")))=1,"Seratus ",IF(--(LEFT(TEXT(INT(C5),"000")))>1,INDEX(N,--(LEFT(TEXT(INT(C5),"000"))))&"Ratus ","")))&IF(--(MID(TEXT(INT(C5),"000"),2,1))=0,"",IF(--(MID(TEXT(INT(C5),"000"),2,1))=1,CHOOSE((--(RIGHT(TEXT(INT(C5),"0")))=0)*1+((--(RIGHT(TEXT(INT(C5),"0")))=1)*2)+((--(RIGHT(TEXT(INT(C5),"0")))>1)*3),"Sepuluh ","Sebelas ",INDEX(N,--(RIGHT(TEXT(INT(C5),"0"))))&"Belas "),IF(--(MID(TEXT(INT(C5),"000"),2,1))>1,INDEX(N,--(MID(TEXT(INT(C5),"000"),2,1)))&"Puluh ")))&IF(OR(--(MID(TEXT(INT(C5),"000"),2,1))=1,--(RIGHT(TEXT(INT(C5),"0")))=0),"",INDEX(N,--(RIGHT(TEXT(INT(C5),"0")))))&"Koma "&IF(--LEFT(TEXT(MOD(C5,1)*100,"00"))=0,"Nol ",INDEX(N,LEFT(TEXT(MOD(C5,1)*100,"00"))))&IF(--RIGHT(TEXT(MOD(C5,1)*100,"00"))=0,"Nol ",INDEX(N,RIGHT(TEXT(MOD(C5,1)*100,"00"))))


ckckckckckckcck.....! ehm rumus yang sangat sangat panjang (Mega Formula). Sulit lho memahami logika rumus panjang seperti di atas. Lebih sulit lagi cara menjelaskannya. Dan tentu yang paling sulit cara membuatnya untuk pertama kali. (OKI, kita harus berterima kasih kepada kedua Maha Guru Excel Indonesia yang telah memberikan kita, Para Guru, rumus yang hanya tinggal pakai saja).


Sebagai sebuah MegaFomula, maka memahami alur logika rumus mempunyai kesulitan tersendiri. Untuk itu, kita perlu memecah rumus tersebut menjadi beberapa bagian. Saya memecah menjadi 15 bagian. Lalu ke-15 bagian tersebut di-Kompress menjadi 4 bagian saja:
1. Bilangan Ratusan
2. Bilangan Puluhan dan Satuan
3. Koma
4. Bilangan Desimal.
Barulah dari 4 bagian tadi barulah digabung jadi satu rumus tunggal.
Berikut Pemecahan rumus di atas:





dikompress jadi 4 langkah saja:
Maka jadilahMega Formula seperti di atas.


Info Tambahan:
Rumus Index(N,.....). N yang dimaksud di sini adalah sebuah Name_Range yang berisi: 
={"Satu ","Dua ","Tiga ","Empat ","Lima ","Enam ","Tujuh ","Delapan ","Sembilan "}


File penjelasan langkah-langkah di atas, bisa didownload di sini atau di Boxnet pada SideBar.

Selasa, 16 Oktober 2012

Download Free SmartsysSoft Greeting Card Designer 2.40 Portable | 86.30 MB 21:09 Muu Faa No comments


SmartsysSoft, software yang digunakan untuk mendesain kartu ucapan dengan tampilan grafis yang kuat. Dilengkapi ratusan template kartu ucapan, simbol, clip art,dan gambar. Sehingga, anda dapat membuat kartu ucapan yang mudah dan menarik. Anda juga dapat menambahkan foto anda ke dalam dasain dengan kualitas yang sangat tinggi. Hasilnyapun dapat langsung di cetak di printer anda atau bisa di save dengan format BMP, JPEG, GIF, PNG, TIFF. Karena portable, anda dapat menjalankan tanpa di install lagi. 

Baca dan diterjemahkan sendiri :
  • Powerful vector graphics editing program
  • Each vector object such as shape, symbol, text can be filled or stroked with solid color, gradient colors, images, patterns.
  • Provides visual path editing tools to edit shapes. With which, you can create the most unique shapes, symbols or texts if you desires.
  • More than hundreds of dash styles are supported to be used for stroking shapes.
  • Each drawing elements is painted very smoothly. So you can get very nice business cards when your designs are translated to printing.
  • Works like a greate image editor program that supports strongly layer-editing. A shape object can be filled and storked with different transparency level.
  • Greeting Card Templates and Pre-designed Drawing Elements
  • Select from attractive greeting card templates and customize with your own photos and texts to create stunning greeting cards.
  • Provides thousands of pre-defined pictures, symbols, shapes, gradient style, textures and clipart images. In addition, all common image formats are supported so you can use your own pictures and clipart to design the perfect custom greeting cards for you.
  • Allows you to fold your greeting card in a number of ways.
  • Design Greeting Cards With Easy
  • The application’s interface is attractive and quite intuitive.
  • Undo and redo anytime and anywhere.
  • With moving mouse button you can create, move, resize or rotate each drawing objects visually and freely.
  • Custom Your Printing
  • Supports to print your cards on any local Windows compatible printer.
  • Save your designs as a high quality images with BMP, JPEG, GIF, PNG, TIFF format for outside quality printing.



  sumber : http://cooldieaja.blogspot.com/ 



Download Free Aplikasi Pengolah Nilai Hasil belajar Siswa | 1.46 MB


Aplikasi Penilaian Hasil belajar Siswa | Selain mengajar, guru juga mendidik dan menilai siswa selama pelajaran. Kegiatan menilai haruslah seobjektif mungkin dengan memperhatikan aspek-aspek perkembangan anak didik selama proses belajar mengajar berlangsung.

Namun sebagai guru yang hanya manusia biasa, terkadang tugas menilai menjadi beban berat karena guru juga memiliki tugas tambahan lainnya yang harus diselesaikan. Meski kelihatan sepele,penilaian hasil belajar yang objektif akan meningkatkan kepercayaan diri guru dan siswa untuk menentukan proses belajar mengajar ke arah yang lebih baik.


Ada satu Aplikasi Penilaian Hasil belajar siswa yang dapat meringankan beban guru dalam proses penilaian, baik penilaian Ulangan harian, tugas-tugas, portofolio, perbaikan, pengayaan, dan lain-lain. Didalamnya juga ditambahkan Analisis butir Soal, remidial, distribusi nilai, UTS, UAS, ketuntasan hasil belajar, Nilai Akhir dan Nilai Raport dan Peringkat Siswa yang diperoleh secara otomatis, termasuk Penilaian Akhlak dan Kepribadian.

Jika Program Penilaian Hasil belajar Siswa ini dijalankan secara teratur, guru tidak akan lagi kebingungan menilai siswa secara menyeluruh dan objektif sehingga guru tidak lagi main tembak dalam menilai siswa sehingga didapat perangkingan siswa dengan kondisi yang sebenarnya.


Download Aplikasi Penilaian Hasil Belajar Siswa

Download aplikasi penilaian hasil belajar siswa disini . Aplikasi Pengolah Nilai Hasil belajar siswa ini dapat digunakan oleh guru SD, SMP, SMA/SMK sederajat. Semoga dapat membantu Bapak Ibu guru dalam menjalankan tugas sebagai pendidik yang lebih baik.
  sumber : http://disdik-lampung.info/  

  sumber : SHIN'AN MUSFIQI dari SMPN 3 BATEALIT Kab JEPARA JATENG, Email : musfiqhi@yahoo.co.id phone 081325176648. 

Senin, 15 Oktober 2012

Tutorial excel 2010 untuk pemula (panduan excel 2010 gratis)


Tutorial excel 2010 untuk pemula (panduan excel 2010 gratis)

Microsoft Excel merupakan salahsatu program aplikasi pengolah angka yang sangat populer saat ini. Microsoft Excel yang terkadang juga disebut Ms Excel atau biasa juga disingkat menjadi Excel merupakan aplikasi yang bisa menjadi sangat membantu pengerjaan /pengolahan data sehingga bisa menjadi lebih mengefektifkan penggunaan waktu dan mengefisienkan pekerjaan karena data dan formula yang sudah dibuat bisa disimpan dan dapat diakses pada saat yang lain untuk melakukan perbaikan/penambahan data dan formula.

Berikut ini adalah beberapa tutorial ms excel 2010 yang mungkin bisa menjadi referensi dan panduan buat pengguna microsoft excel yang masih pemula.



1. Cara membuat password file excel 2010 (proteksi dokumen ms excel 2010)
2. Rumus penjumlahan, pengurangan, perkalian, pembagian di excel 2010
3. Menggunakan rumus pangkat di excel 2010 (fungsi power /kuadrat)
4. Menggunakan rumus akar pada excel (fungsi akar kuadrat excel 2010)
5. Menggunakan fungsi eksponensial dan logaritma natural di excel 2010
6. Cara mengetik persamaan matematika di excel menggunakan equation editor
7. Menggunakan rumus logaritma di excel 2010
8. Logaritma bilangan akar dan pangkat di excel 2010
9. Cara menyisipkan worksheet excel di word 2010
10. Menggunakan fungsi trigonometri sin cos tan pada excel 2010
11. Cara membuat autonumber di excel 2010 (auto fill number)
12. Membuat tabel ASCII di excel 2010 menggunakan fungsi text
13. Mengganti ukuran margin /measurement unit ke cm di excel
14. Menggunakan simbol ke worksheet excel 2010
15. Autonumber kombinasi huruf dan angka di excel 2010
16. Fungsi arccos, arcsin, arctan (arcus cosinus, arcus sinus, arcus tangen)
17. Cara mengetik angka nol di depan angka selain 0 di excel
18. Membuat grafik histogram di excel 2010
19.Mengedit bingkai tampilan grafik di excel 2010
20. Menghitung arcus sin(sin B*cos C/Cos D) di excel
21. Membuat watermark di excel 2010 menggunakan Header Footer Tools
22. Menulis rumus kimia di excel menggunakan subscript
23. Mengetik bilangan pangkat di excel 2010
24. Membuat gambar background worksheet excel 2010
25. Cara mengganti warna gridline worksheet excel 2010
26. Penggunaan SUMIF pada interval data di excel 2010
27. Fungsi utama trigonometri di excel 2010
28.

Catatan:
Selain panduan microsoft excel 2010 di atas, untuk anda pengguna microsoft office 2007 khususnya microsoft excel 2007 bisa dilihat panduan mengoperasikan ms excel untuk pemula disini belajar excel 2007



Related Posts by Categories