Posts tagged ‘text’

Font Blinking di Excel

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:

Download file:  Blinking excel 2007.zip

Blinking excel 97-2003.zip

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

November 10, 2008 at 2:56 pm 3 comments

Fungsi Excel Text, Abs dan number atau date formats

Fungsi TEXT() dan ‘&’ sangat berguna untuk memasukkan nilai sel numeric ke dalam kalimat yang dapat lebih mudah dipahami oleh pembaca worksheet anda. Anda dapat membuat penyataan dalam bentuk kalimat yang merupakan gabungan antara kata-kata dan angka/nilai. Sebagai contoh. “Gaji seluruh karyawan untuk bulan April adalah sebesar Rp. 1.200.000.000“).

Simbol ‘&’ adalah operator yang dapat dipergunakan untuk menggabungkan (atau menyambungkan) dua data string atau beberapa kata. Sebagai contoh: =”Hal ini mencerminkan kunjungannya ” & D2 jika sel D2 berisi “Kurang Memuaskan” atau “Memuaskani”. Untuk membantu memformat data angka dan tanggal ke dalam sebuah kalimat maka anda memerlukan bantuan fungsi TEXT agar formatnya sesuai.

Fungsi TEXT mengubah angka (number) ke Teks dan memformat angka tersebut sesuai dengan yang anda inginkan. Sintaksnya adalah: =TEXT(value, “FormatCode”). Untuk dapat mengetahui format apa saja yang bisa diterapkan maka anda harus memahami FormatCodes. Beberapa format code dapat dilihat pada contoh di bawah ini, sedangkan yang lainnya anda dapat melihat di help Excel dan cari ‘Formatting numbers : Custom formats‘.

Fungsi ABS mengubah nilai negatif menjadi positive dan sintaksnya =ABS(value)


Sel E11 =G4&” melakukan kunjungan ke “&ABS(F9) &” konsumen “&IF(F7>F8,”lebih sedikit “,IF(F7=F8,”sama dengan “,”lebih banyak”))&”dari rencana”
Sel E12 =”Hal ini mencerminkan kunjungannya ” & IF(F9<0,” kurang memuaskan”, ” cukup baik”) & ” dengan selisih ” & TEXT(ABS(F9/F7),”0.0%”)
Sel E13 =”Bulan Laporan “&TEXT(G3,”mmm yyyy”)

Beberapa format untuk Fungsi TEXT()

September 23, 2008 at 1:46 pm 4 comments


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 14 other followers

Blog Stats

  • 110,559 hits

Iklan