excel.aurino.com Blog

Excel tidak punya fitur untuk membuat teks berkedip.  (catatan: ^{blinking teks sangat mengganggu orang yang membaca pesan anda jika pesannya banyak).} Untuk membuat teks berkedip, Anda harus menjalankan prosedur secara berkala untuk mengubah warna font teks. Metode OnTime dalam VBE dapat digunakan untuk menjalankan prosedur itu. Anda dapat menggunakan module VBA sbb:

Prosedur untuk Teks Blinking

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets(”Sheet1″).Range(”A1″).Font
If .ColorIndex = 3 Then ‘ Red Text
.ColorIndex = 2 ‘ White Text
Else
.ColorIndex = 3 ‘ Red Text
End If
End With
RunWhen = Now + TimeSerial(0,0,1)
Application.OnTime RunWhen, “‘” & ThisWorkbook.Name & “‘!StartBlink”, , True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets(”Sheet1″).Range(”A1″).Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, “‘” & ThisWorkbook.Name & “‘!StartBlink”, , False
End Sub

Kemudian dalam module ThisWorkbook, masukan kode berikut:

Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

Entri data cepat dengan menggunakan Mouse

Copy Data untuk Sel disebelahnya

1. Pilih sel yang berisi data yang akan dicopy
2. Arahkan mouse pada Fill Handle — kotak hitam kecil disebelah kanan bawah kotak seleksi
3. Pada saat pointer berubah menjadi tanda plus hitam, tekan dan tahan tombol kiri mouse, dan tarik, kekiri, ke kanan atau ke beberapa sel .
4. Kalau sudah terisi semua, lepas tombol kiri mouse.

Copy isi sel ke sel yang berdekatan — dengan pilihan (options)

1. Pilih sel yang berisi data yang akan dicopy
2. Arahkan mouse pada Fill Handle — kotak hitam kecil disebelah kanan bawah kotak seleksi
3. Pada saat pointer berubah menjadi tanda plus hitam, tekan tombol kanan mouse, dan kekiri, ke kanan atau ke beberapa sel .
4. Kalau sudah terisi semua, lepas tombol kanan mouse.
5. Dan pilih opsi dari menu shortcut

Memasukkan Data dengan Cepat - dengan Keyboard

Menjawab pertanyaan Alali dalam shoutbox,

Berikut saya coba memakai rumus yang panjang sekali. Syarat data harus mirip dengan yang digunakan oleh Alali yaitu

setelah  1.210 ,- ada spasinya jadi kalau dihitung jumlah hurufnya adalah 8 char.

rumusnya :

=VALUE(LEFT(A2,FIND(” orang”,A2)-1))*

VALUE(MID(A2,FIND(”x”,A2)+2,FIND(”hari”,A2)-FIND(”x”,A2)-3))*

VALUE(SUBSTITUTE(MID(A2,FIND(”Rp.”,A2)+3,LEN(A2)-FIND(”Rp.”,A2)-5),”.”,”"))

file excel dapat didownload rumus-untuk-menghitung-hok

Misal Anda harus memutuskan jumlah uang yang akan investasikan. Untuk memecahkan masalah ini, Anda dapat menggunakan fungsi PV dalam Excel, yang akan menghasilkan nilai investasi. Yaiut jumlah total dari  serangkaian pembayaran yang terjadi beberapa kali dengan nilai sekarang (present value). Berikut adalah sintaks yang digunakan untuk Fungsi PV .
PV (rate, NPER, PMT, FV, type)
Rate: Suku bunga per periode.
NPER: Jumlah total pembayaran dalam periode tahunan.
PMT: Pembayaran dilakukan setiap periode, yang merupakan nilai konstan.
FV: Nilai Masa depan (Future Value) adalah jumlah yang Anda inginkan setelah pembayaran terakhir dilakukan.
type: anaka yang menunjukkan bahwa kapanpembayaran yang jatuh tempo. 0 atau diabaikan atau menunjukkan akhir periode, dan 1 menunjukkan awal periode.

Untuk menentukan berapa banyak untuk berinvestasi:

1. Dalam sel C1 masukkan return perkiraan per tahun.
2. Dalam sel C2 masukkan jumlah periode dalam tahun.
3. Masukkan suku bunga di sel C3.
4. Hitung jumlah maksimum investasi dalam sel C4 dengan rumus sebagai berikut: = PV (C3, C2, C1).
5. Tekan Enter.

Excel PV-function.xls

Untuk mengubah angka ke kata dalam bahasa Inggris menggunakan fungsi dengan VBA
Yang menggunakan fungsi dapat mendownload file numstowords_vba.zip. yang punya kemampuan sbb:

• Fungsi NumsToWords(), dengan parameter yang dapat diubah mata uangnya dan format.
• Contohnya apat dilihat dalam worksheet yang anda download
• PLUS…Jika anda alergi terhadap VBA..Jangan Takut be!…Click tombolnya dan fungsi tersebut akan otomatis diexport ke workbook yang sedan terbuka atau anda buka tanpa harus mengubah-ubah programnya.
• Fimgsi ini dibuat oleh Ron Coderre

123.45

Diubah menjadi: One Hundred Twenty Three Dollars and Forty Five Cents

Sintaks nya

Contoh Penggunaan lainnya:

Dengan fungsi SUMIF kita dapat menghasilkan penjumlahan yang memenuhi kriteria tertentu.

Sintaks : SUMIF(range,criteria,sum_range)

Sebagai contoh:

1. Anda ingin menjumlahkan semua data yang ada di sel A1:A20 dengan kriteria bahwa data harus lebih besar dan sama dengan 10 (>=10), maka anda dapat menggunakan =SUMIF(A1:A20,”>=10″) .
2. Atau jika anda ingin menjumlahkan data tersebut diatas dengan kriteria nilainya berada di antara 5 dan 10. Maka kriterianya menjadi jumlahkan data yang lebih besar dan sama dengan 5 (>=5) dikurangi jumlah seluruh data yang lebih besar dari 10 ( > 10) dengan rumus sebagai berikut =SUMIF(A1:A20,”>=5″)-SUMIF(A1:A20,”>10″)
   

Catatan: Cara lain untuk item 2 adalah : =SUMPRODUCT((A1:A20>=5)*(A1:A20<=10)*A1:A20)

Okey dua dulu ya contohnya… yang lainnya menyusul … kalau ada yang mau nyumbang silahkan.

Untuk menjumlahkan 5 angka terbesar sebuah data yang terletak dikolom tertentu maka kita dapat menggunakan gabungan antara fungsi SUM dengan fungsi LARGE. Sebagai contoh lihat tabel dibawah berikut ini. Rumusyang digunakan adalah

=SUM(LARGE(A:A,{1,2,3,4,5}))

Yang artinya jumlahkan data di kolom A hanya 5 angka terbesar saja.

Kadang kala anda perlu untuk membulatkan suatu hasil tidak mengikuti ketentuan matematika umum. Dengan fungsi pembulatan Round(angka,desimal) maka hasil yang didapatkan adalah seperti dalam contoh baris 3 s/d 4. Jika anda ingin mendapatkan pembulatan lainnya maka contoh paa baris 6 s/d 14 dapat dipergunakan sebagai acuan. Untuk pembulatan dengan angka 5 maka anda perlu membagi angka asli dengan angka 5 kemudian dibulatkan ke 0 desimal dan dikalikan lagi dengan angka 5. Demikian pula jika anda ingin mendapatkan pembulatan ke angka 0.5 maupun ke angka 0.25.