You can create a splash screen for your Excel application with a UserForm. This example is essentially a UserForm that displays automatically and then dismisses itself after five seconds.

Follow these instructions to create a splash screen for your project:
Create your workbook.
Activate the Visual Basic Editor (VBE) and insert a new UserForm into the project. The code in this example assumes that this form is named UserForm1.

Place any controls that you like on UserForm1. For example, you may want to insert an Image control that has your company’s logo.  shows an example.

This splash screen is displayed briefly when the workbook is opened.

Insert the following procedure into the code module for the ThisWorkbook object:

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Insert the following procedure into the code module for UserForm1. For something other than a five-second delay, change the argument for the TimeValue function.

Private Sub UserForm_Activate()
Application.OnTime Now + _
TimeValue(“00:00:05″), “KillTheForm”
End Sub

Insert the following procedure into a general VBA module:

Private Sub KillTheForm()
Unload UserForm1
End Sub

When the workbook is opened, the Workbook_Open procedure is executed. The procedure in Step 4 displays the UserForm. At that time, the UserForm’s Activate event occurs, which triggers the UserForm_Activate procedure (see Step 5). This procedure uses the OnTime method of the Application object to execute a procedure named KillTheForm at a particular time. In this case, the time is five seconds after the activation event. The KillTheForm procedure simply unloads the UserForm.

As an option, you can add a small CommandButton named CancelButton, set its Cancel property to True, and insert the following event handler procedure in the UserForm’s code module:

Private Sub CancelButton_Click()
KillTheForm
End Sub

Doing so lets the user cancel the splash screen before the time has expired by pressing Esc. You can even place this small button behind another object so it won’t be visible.

Caution Keep in mind that the splash screen is not displayed until the workbook is entirely loaded. In other words, if you would like to display the splash screen to give the user something to look at while the workbook is loading, this technique won’t fill the bill.

Tip : If your application needs to run some VBA procedures at startup, you can display the UserForm modeless so that the code will continue running while the UserForm is displayed. To do so, change the Workbook_Open procedure as follows:

Private Sub Workbook_Open()
UserForm1.Show vbModeless
‘ other code goes here
End Sub

Thank’s see you next time.

Using CommandButtons in a UserForm
Figure 14-1 shows an example of a UserForm that uses CommandButton controls as a simple menu. Setting up this sort of thing is very easy, and the code behind the UserForm is very straightforward. Each CommandButton has its own event handler procedure. For example, the following procedure is executed when CommandButton1 is clicked:

Private Sub CommandButton1_Click()
Call Macro1
Unload Me
End Sub

This procedure simply calls Macro1 and closes the UserForm. The other buttons have similar event handler procedures.

Using a ListBox in a UserForm
Figure 14-2 shows another example that uses a ListBox as a menu. Before the UserForm is displayed, its Initialize event handler procedure is called. This procedure, which follows, uses the AddItem method to add six items to the ListBox:

Private Sub UserForm_Initialize()
With ListBox1
.AddItem “Macro1″
.AddItem “Macro2″
.AddItem “Macro3″
.AddItem “Macro4″
.AddItem “Macro5″
.AddItem “Macro6″
End With
End Sub

The Execute button also has a procedure to handle its Click event:

Private Sub ExecuteButton_Click()
Select Case ListBox1.ListIndex
Case -1
MsgBox “Select a macro from the list.”
Exit Sub
Case 0: Call Macro1
Case 1: Call Macro2
Case 2: Call Macro3
Case 3: Call Macro4
Case 4: Call Macro5
Case 5: Call Macro6
End Select
Unload Me
End Sub

This procedure accesses the ListIndex property of the ListBox to determine which item is selected. The procedure uses a Select Case structure to execute the appropriate macro. If the ListIndex is –1, nothing is selected in the ListBox, and the user sees a message

Thank’s, see you next time.

1. MsOffice 2003

• MsWord : Tool >> option >>file location>>Modify (tentukan dimana file-file akan disimpan secara defaul).

• MsExcel : Tool >> option >>Default file location (tentukan dimana file-file akan disimpan secara defaul).

2. MsOffice 2007

• MsWord : Tool >> word option >>Save>>Default file location>>Browse.. (tentukan dimana file-file akan disimpan secara defaul).

• MsExcel : Tool >> excel option >>Save>>Default file location>>Browse.. (tentukan dimana file-file akan disimpan secara default).

Selamat mencoba

Mengupdate AVG Free Antivirus 8 tiba-tiba muncul tulisan “Error “Invalid Update Control CTF File” When Updating AVG Anti-Virus 8.0?…

Don’t woory, let’s learn together :

1. Untuk pengguna Windows Xp dan sebangsanya: Anda perlu mengganti nama atau menghapus Temporary file ctf di C: \ Documents and Settings \ All User \ Application Data \ Avg8 \ update \ download. Eit tapi…. Jangan menghapus semua. Bin file di sana, kecuali jika Anda ingin kembali menjalankan semua update sejak instalasi asli anda (instalasi ulang tampaknya menimbulkan masalah di IEs Link Scanner yang menyebabkan IE untuk Crash).
2. Hanya rename / menghapus avginfo file yang diakhiri dengan. Ctf. Terdapat dua. Ctf file (avginfoavi.ctf dan avginfowin.ctf) di folder itu, dan menghapus mereka adalah jalan keluar yang terbaik.
3. Folder Application Data tersembunyi secara default. Anda harus mengaktifkan Windows Explorer untuk menampilkan file tersembunyi untuk melihat Application Data folder hidden. Atau bisa juga dari menus Start–>Run, kemudian ketik folder tersebut. Oke, silakan di coba!

• Tips Selanjutnya bagi pengguna Windows VISTA: Tidak jauh beda dengan pengguna windows XP, lebih mudah malahan lho??? Cukup hapus file berextension .ctf di C:\ProgramData\avg8\update\download

Bagi yang belum memiliki link download avg 8.0 (expires until 2018), bisa coba di : http://rapidshare.com/files/201662601/AVG_Anti-Virus_PRO_8.0____Serial_til_2018.rar

1. Simpanlah buku petunjuk (manual) printer Anda agar dapat dilihat pada saat diperlukan.

2. Simpanlah diskette yang diberikan bersama Printer Anda, karena apabila terjadi kerusakan pada harddisk, maka diskette tersebut akan diperlukan lagi untuk meng-install printer driver-nya.

3. Printer Inkjet adalah printer yang mencetak dengan cara menyemprotkan tinta melalui lubang-lubang penyemprotan tinta (head). Lubang-lubang ini berukuran diameter sekitar kurang dari 0.1milimeter. Itulah makanya lubang-lubang ini mudah sekali tersumbat dengan tinta yang mengering apabila Cartridge Tinta dibiarkan diudara terbuka.

4. Pada printer-printer Inkjet yang dilengkapi dengan 2 (dua) Cartridge Tinta, yaitu Hitam dan Warna, dan dimana hanya 1 (satu) Cartridge Tinta yang dapat digunakan pada setiap saat, seperti yang berlaku dengan Printer: HP Deskjet 400C, Canon BJC-210 dan Epson Stylus Color IIs atau Stylus Color 200, simpanlah Cartridge Tinta yang tidak sedang digunakan pada tempat yang bersih dan tertutup rapat dan GUNAKANLAH CARTRIDGE TINTA HITAM UNTUK PENCETAKAN TEXT (TULISAN), KARENA PENCETAKAN AKAN JAUH LEBIH CEPAT DAN JAUH LEBIH HEMAT.

5. Cartridge Tinta Printer Inkjet terbagi menjadi jenis-jenis berikut:
a. Cartridge Tinta yang dilengkapi dengan lubang penyemprotan tinta (head) yang bersentuhan langsung dengan kertas pada saat printer mencetak, seperti pada printer HP Deskjet 400C yang menggunakan Cartridge Tinta type HP51626A dan Canon BJC-210 yang menggunakan Cartridge Tinta type BC-02.
b. Cartridge Tinta yang tidak dilengkapi dengan lubang penyemprotan tinta (head), seperti printer Epson Stylus Color II yang menggunakan Cartridge Tinta type SO20047. Dalam hal ini, lubang penyemprotan tinta (head) terpasang mati pada printernya.
c. Cartridge Tinta yang menggunakan karet busa untuk menahan tinta didalam Cartridgenya. Cartridge jenis ini adalah yang terbanyak didapat dan berlaku untuk seluruh printer bermerk Canon dan Epson Stylus.
d. Cartridge Tinta yang menggunakan sistim setengah vakum untuk menahan tinta didalam Cartridgenya, seperi yang berlaku dengan Cartridge type HP51626A.

6. Cartridge Tinta berharga relative mahal disebabkan oleh hal-hal berikut:
a. Pembuatannya memakan biaya mahal karena kebanyakan dari Cartridge Tinta dilengkapi dengan lubang penyemprotan tinta (head) yang relative rumit pembuatannya dan dilengkapi pula dengan rangkaian elektronik yang sangat halus.
b. Keuntungan yang diraih dari pemakai itu lebih banyak dari pembelian Cartridge Tinta-nya dari pada pembelian Printer. Dapat dibayangkan pemakai membeli printer mungkin hanya sekali dalam beberapa tahun, tetapi ia mungkin akan membeli Cartridge Tinta beberapa kali dalam setahun dan ia di-harus-kan membeli Cartridge Tinta yang sudah ditentukan sesuai dengan Printer Inkjet – nya.

7. Semua Cartridge Tinta Printer Inkjet dapat diisi ulang dengan Tinta Suntik yang sesuai peruntukkannya (tipe Tinta Suntik yang tepat). Sebagai tambahan informasi, setiap Tinta Suntik DataPrint sudah di-test sehingga sudah dipastikan sesuai dengan penggunaan yang tertera pada kemasannya.

8. Pengisian ulang Cartridge Tinta dapat di-ibarat-kan seperti Anda mengganti isi sebuah bolpen mahal, seperti bolpen merk Montblanc. Apakah Anda bersedia membuang bolpen mahal Anda pada saat isi-nya habis ??? Tentunya tidak, lalu mengapa Anda membuang Cartridge Tinta pada saat tintanya habis dan jelas-jelas dapat di-isi ulang.

9. Fihak-fihak yang mengatakan bahwa Cartridge Tinta tidak dapat atau tidak boleh di-isi ulang hanyalah mereka yang ingin terus menerus memaksakan penjualan Cartridge Tinta baru.

10. Keberadaan Tinta Suntik seperti yang bermerk DataPrint memberikan pilihan yang jauh-jauh-jauh lebih murah dibandingkan dengan pembelian Cartridge Tinta baru. Menurut harga pasar yang berlaku sekarang, penghematan yang paling sedikit dapat mencapai sekitar Rp. 30,000 (Tiga Puluh Ribu Rupiah) dengan sekali mengisi ulang Cartridge Tinta. Anda dapat menanyakan sendiri hal ini kepada toko dimana Anda membeli Cartridge Tinta.

11. Fihak-fihak tertentu mengatakan bahwa Tinta Suntik adalah tinta palsu. Tanyakan pada mereka apakah mereka memproduksi sendiri tinta yang di-isi-kan kedalam Cartridge Tinta produksi-nya. Lalu tanyakan, apakah mereka itu pabrik Elektronik atau pabrik tinta ?? DataPrint dengan jujur mengakui bahwa tinta-nya tidak diproduksi sendiri, tetapi adalah di-impor langsung dari Amerika Serikat.

12. Penggunaan Tinta Suntik yang tidak tepat dapat menyebabkan Printer tidak mencetak sama sekali, atau kalaupun dapat mencetak, memberikan hasil yang tidak memuaskan.

13. Pada saat hasil cetakan menunjukkan garis putih, ini menandakan bahwa isi tinta didalam Cartridge Tinta sudah menipis.

14. Pada saat isi tinta sudah menipis dan apabila pencetakan diteruskan, garis-garis putih akan terus bertambah banyak, dan pada akhirnya isi tinta akan habis sama sekali. Apabila pencetakan masih diteruskan, maka akan terjadi pengeringan pada lubang penyemprotan tinta (head).

15. Pengeringan tinta pada lubang penyemprotan tinta (head) akan menyebabkan penyumbatan pada lubang-lubang tersebut, sehingga setelah isi tinta ditambah dengan Tinta Suntik, kemungkinan besar Cartridge tetap tidak dapat langsung digunakan karena tinta terhadang oleh sumbatan pada lubang-lubang penyemprotan tinta. (Lihat tip untuk mengatasi penyumbatan ini).

16. Itulah makanya, pada saat isi tinta sudah menipis, langsung isi / tambah tinta dengan Tinta Suntik DataPrint yang sesuai peruntukkannya

17. Keberhasilan pengisian ulang (re-fill) pada Cartridge Tinta Printer Inkjet ditentukan oleh:
a. Pengunaan Tinta Suntik yang sesuai peruntukannya (type yang tepat).
b. Pengisian dengan cara yang benar – seperti yang tertera pada lembaran cara mengisi (manual) yang disertakan pada setiap paket Tinta Suntik DataPrint.
c. Pengisian dilakukan pada saat isi tinta baru mulai menipis, yaitu pada saat sebelum terjadi penyumbatan pada lubang penyemprotan tinta (head).

18. Kebocoran tinta setelah cartridge diisi ulang dapat terjadi dikarenakan hal-hal berikut:
a. Cara pengisian yang salah (khusunya Cartridge Tinta type 51626A).
b. Pengisian ulang terlalu banyak sehingga melampaui daya tampung Cartridge, dalam hal ini, tinta didalam Cartridge dapat disedot kembali dengan alat penyuntiknya.

19. Cara mengatasi Penyumbatan pada lubang penyemprotan Cartridge Tinta:
a. Ambillah selembar kertas ’tissue’ .
b. Basahkan kertas ’tissue’ dengan sedikit air hangat.
c. Tekan atau lap kertas ’tissue’ basah pada head (lubang penyemprotan tinta).
d. Apabila ada tanda tinta pada kertas ’tissue’, berarti masih ada lubang penyemprotan tinta yang (masih) dapat mengeluarkan tinta / tidak tersumbat atau (mungkin) tinta kering yang menyumbat telah mencair.
e. Bersihkanlah head (lubang penyemprotan tinta) dengan kertas ’tissue’ kering.
f. Pasanglah Cartridge pada Printernya dan cobalah mencetak.
g. Apabila hasil cetak memuaskan, kami mengucapkan selamat kepada Anda, karena Anda telah berhasil mengisi ulang Cartridge Tinta yang semula sudah dianggap tidak berguna lagi.
h. Apabila hasil cetak belum memuaskan, ulangilah cara diatas beberapa kali.
i. Apabila hasil cetak masih belum juga memuaskan setelah 5 – 6 kali melakukan pembersihan diatas, berarti Cartridge mengalami ‘Penyumbatan Berat’. (Lihatlah cara dibawah untuk mengatasi ‘Penyumbatan Berat’).

20. Cara mengatasi ‘Penyumbatan Berat’ pada lubang penyemprotan Cartridge Tinta:
a. Siapkanlah air hangat dengan suhu sekitar 60 – 70 derajat Celcius.
b. Tuangkan air hangat pada tatakan gelas atau bejana sejenis sampai kedalaman air kurang lebih 0.5 cm.
c. Letakkan Cartridge Tinta pada tatakan gelas diatas dengan lubang penyemprotan terendam dalam air.
d. Berikan waktu sekitar 10 – 15 menit agar tinta yang mengering dapat mencair kembali.
e. Setelah itu, angkat Cartridge Tinta dari air, lalu bersihkan lubang penyemrpotan dengan kertas ’tissue’ kering.
f. Pasanglah Cartridge pada Printernya dan cobalah mencetak.
g. Pencetakan mula-mula mungkin menunjukkan hasil yang agak kabur dikarenakan pada saat lubang penyemprotan direndam didalam air, ada sedikit air yang menyerap kedalam Cartridge melaui proses Osmose atau kapiler. Hal ini menyebabkan isi tinta yang berdekatan dengan lubang penyemprotan menjadi lebih encer dan memberikan hasil cetak yang agak pudar.
h. Setelah melakukan pencetakan beberapa lembar, apabila hasil pencetakan memuaskan, kami mengucapkan selamat kepada Anda, karena Anda telah berhasil mengisi ulang Cartridge Tinta yang oleh kebanykan orang sudah mungkin dibuang.
i. Apabila hasil cetak masih belum memuaskan juga, ulangilah cara diatas beberapa kali.
j. Apabila hasil cetak masih belum juga memuaskan setelah 5 – 6 kali mengulangi prosedur diatas. Cobalah tinggalkan Cartridge Tinta dalam keadaan terrendam seperti diatas selama beberapa jam atau semalaman.
k. Apabila hasil cetak masih tidak juga memuaskan, maka berarti Catridge Tinta boleh dikatakan sudah tidak dapat digunakan lagi. Dalam hal ini penyebabnya sangat sulit untuk ditentukan dan mungkin tidak banyak berarti untuk ditelusuri lebih lanjut. Tetapi, Cartridge Tinta jangan langsung dibuang, karena masih berisikan Tinta Suntik yang dapat digunakan untuk mengisi ulang dikemudian hari pada saat dibutuhkan. Sedotlah tinta dari Cartridge kedalam suntikan dan simpanlah ditempat yang dapat Anda ingat dengan mudah.

l. Pada printer-printer Inkjet tertentu seperti Epson Stylus, hasil cetak pada saat Catridge Tinta baru saja selesai di-isi ulang mungkin menunjukkan hasil cetakan yang ber-garis-garis putih – seperti pada saat isi tinta sudah menipis, hal ini disebabkan oleh terciptanya gelembung udara pada saluran tinta menuju ke-lubang penyemprotan tinta (head). Cara pengatasi ini adalah dengan melakukan prosedur ‘head cleaning’ yang dijelaskan pada buku petunjuk (manual) printer bersangkutan, karena proses ‘head cleaning’ ini selain membersihkan lubang penyemprotan tinta (head), juga menyedot tinta ber-ulang kali sehingga dapat mendorong gelembung udara sampai keluar melalui head.

Khusus untuk Printer Inkjet Epson Stylus, usahakan jangan terlalu sering menyalakan dan mematikannya, karena jenis printer ini mengkonsumsi tinta yang berlebihan pada setiap kali dinyalakan (Tanyakanlah hal ini pada produsen atau agen printernya).

devmgmt.msc = Device Manager
msinfo32 = System Information
cleanmgr = Disk Cleanup
ntbackup = Backup or Restore Wizard (Windows Backup Utility)
mmc = Microsoft Management Console
excel = Microsoft Excel (If Installed)
msaccess = Microsoft Access (If Installed)
powerpnt = Microsoft PowerPoint (If Installed)
winword = Microsoft Word (If Installed)
frontpg = Microsoft FrontPage (If Installed)
notepad = Notepad
wordpad = WordPad
calc = Calculator
msmsgs = Windows Messenger
mspaint = Microsoft Paint
wmplayer = Windows Media Player
rstrui = System Restore
netscp6 = Netscape 6.x
netscp = Netscape 7.x
netscape = Netscape 4.x
waol = America Online
control = Opens the Control Panel
control printers = Opens the Printers Dialog

internetbrowser

type in u’re adress “google”, then press [Right CTRL] and [Enter]
add www. and .com to word and go to it

For Windows XP:

Copy. CTRL+C
Cut. CTRL+X
Paste. CTRL+V
Undo. CTRL+Z
Delete. DELETE
Delete selected item permanently without placing the item in the Recycle Bin. SHIFT+DELETE
Copy selected item. CTRL while dragging an item
Create shortcut to selected item. CTRL+SHIFT while dragging an item
Rename selected item. F2
Move the insertion point to the beginning of the next word. CTRL+RIGHT ARROW
Move the insertion point to the beginning of the previous word. CTRL+LEFT ARROW
Move the insertion point to the beginning of the next paragraph. CTRL+DOWN ARROW
Move the insertion point to the beginning of the previous paragraph. CTRL+UP ARROW
Highlight a block of text. CTRL+SHIFT with any of the arrow keys
Select more than one item in a window or on the desktop, or select text within a document. SHIFT with any of the arrow keys
Select all. CTRL+A
Search for a file or folder. F3
View properties for the selected item. ALT+ENTER
Close the active item, or quit the active program. ALT+F4
Opens the shortcut menu for the active window. ALT+SPACEBAR
Close the active document in programs that allow you to have multiple documents open simultaneously. CTRL+F4
Switch between open items. ALT+TAB
Cycle through items in the order they were opened. ALT+ESC
Cycle through screen elements in a window or on the desktop. F6
Display the Address bar list in My Computer or Windows Explorer. F4
Display the shortcut menu for the selected item. SHIFT+F10
Display the System menu for the active window. ALT+SPACEBAR
Display the Start menu. CTRL+ESC
Display the corresponding menu. ALT+Underlined letter in a menu name
Carry out the corresponding command. Underlined letter in a command name on an open menu
Activate the menu bar in the active program. F10
Open the next menu to the right, or open a submenu. RIGHT ARROW
Open the next menu to the left, or close a submenu. LEFT ARROW
Refresh the active window. F5
View the folder one level up in My Computer or Windows Explorer. BACKSPACE
Cancel the current task. ESC
SHIFT when you insert a CD into the CD-ROM drive Prevent the CD from automatically playing.

Use these keyboard shortcuts for dialog boxes:

To Press
Move forward through tabs. CTRL+TAB
Move backward through tabs. CTRL+SHIFT+TAB
Move forward through options. TAB
Move backward through options. SHIFT+TAB
Carry out the corresponding command or select the corresponding option. ALT+Underlined letter
Carry out the command for the active option or button. ENTER
Select or clear the check box if the active option is a check box. SPACEBAR
Select a button if the active option is a group of option buttons. Arrow keys
Display Help. F1
Display the items in the active list. F4
Open a folder one level up if a folder is selected in the Save As or Open dialog box. BACKSPACE

If you have a Microsoft Natural Keyboard, or any other compatible keyboard that includes the Windows logo key and the Application key , you can use these keyboard shortcuts:

Display or hide the Start menu. WIN Key
Display the System Properties dialog box. WIN Key+BREAK
Show the desktop. WIN Key+D
Minimize all windows. WIN Key+M
Restores minimized windows. WIN Key+Shift+M
Open My Computer. WIN Key+E
Search for a file or folder. WIN Key+F
Search for computers. CTRL+WIN Key+F
Display Windows Help. WIN Key+F1
Lock your computer if you are connected to a network domain, or switch users if you are not connected to a network domain. WIN Key+ L
Open the Run dialog box. WIN Key+R
Open Utility Manager. WIN Key+U

accessibility keyboard shortcuts:

Switch FilterKeys on and off. Right SHIFT for eight seconds
Switch High Contrast on and off. Left ALT+left SHIFT+PRINT SCREEN
Switch MouseKeys on and off. Left ALT +left SHIFT +NUM LOCK
Switch StickyKeys on and off. SHIFT five times
Switch ToggleKeys on and off. NUM LOCK for five seconds
Open Utility Manager. WIN Key+U

shortcuts you can use with Windows Explorer:

Display the bottom of the active window. END
Display the top of the active window. HOME
Display all subfolders under the selected folder. NUM LOCK+ASTERISK on numeric keypad (*)
Display the contents of the selected folder. NUM LOCK+PLUS SIGN on numeric keypad (+)
Collapse the selected folder. NUM LOCK+MINUS SIGN on numeric keypad (-)
Collapse current selection if it’s expanded, or select parent folder. LEFT ARROW
Display current selection if it’s collapsed, or select first subfolder. RIGHT ARROW

taken from : 1000 HacingTutorials  The Best of 2008

cmd = Command Prompt
iexplore + “web address” = Internet Explorer
compmgmt.msc = Computer Management
dhcpmgmt.msc = DHCP Management
dnsmgmt.msc = DNS Management
services.msc = Services
eventvwr = Event Viewer
dsa.msc = Active Directory Users and Computers
dssite.msc = Active Directory Sites and Services
Windows key + E = Explorer
ALT + Tab = Switch between windows
ALT, Space, X = Maximize window
CTRL + Shift + Esc = Task Manager
Windows key + Break = System properties
Windows key + F = Search
Windows key + D = Hide/Display all windows
CTRL + C = copy
CTRL + X = cut
CTRL + V = paste

Also don’t forget about the “Right-click” key next to the right Windows key on your keyboard.

Using the arrows and that key can get just about anything done once you’ve opened up any program.

Keyboard Shortcuts [Alt] and [Esc] Switch between running applications [Alt] and letter Select menu item by underlined letter

[Ctrl] and [Esc] Open Program Menu
[Ctrl] and [F4] Close active document or group windows (does not work with some Applications)
[Alt] and [F4] Quit active application or close current window
[Alt] and [-] Open Control menu for active document
[Ctrl] Lft., Rt. arrow Move cursor forward or back one word
[Ctrl] Up, Down arrow Move cursor forward or back one paragraph
[F1] Open Help for active application Windows+M Minimize all open windows Shift+Windows+M Undo minimize all open windows Windows+F1 Open Windows Help Windows+Tab Cycle through the Taskbar buttons Windows+Break Open the System Properties dialog box

See you next time..

Tahapan-tahapan yang dilakukan adalah sebagai berikut :
1. Buka jendela baru di Microsoft excel
2. klik kanan pada sheet 1 > view code
3. akan tampil jendela visual basic editor lalu
4. insert > module dan masukan (copy) script di bawah ini :

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

‘Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 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 triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + “triliun “
End If
‘Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
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 satuan
If satu > 0 Then
baca = baca + ratus(satu, 1) + “rupiah “
Else
baca = baca + “rupiah “
End If
‘Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + “sen”
End If
End If
terbilang = 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)
‘Baca Bagian Ratus
If a100 = 1 Then
baca = “Seratus “
Else
If a100 > 0 Then
baca = angka(a100, 2) + “ratus “
End If
End If
‘Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)
Else
If a10 > 0 Then
baca = baca + angka(a10, 2) + “puluh “
End If
If a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If
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 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 = “Dua belas “
Case 13: angka = “Tiga belas “
Case 14: angka = “Empat belas “
Case 15: angka = “Lima belas “
Case 16: angka = “Enam belas “
Case 17: angka = “Tujuh belas “
Case 18: angka = “Delapan belas “
Case 19: angka = “Sembilan belas “
End Select
End Function

5. Sekarang kita coba modul kita, apakah sudah berfungsi atau belum.
• Ketikkan angka di cell A1, misal 1000
• Lalu di cell A2, ketikkan =terbilang(a1)
• Apabila sudah keluar tulisan seribu rupiah berarti fungsi terbilang sudah benar, namun apabila sebaliknya maka anda harus periksa kembali script module yang anda tuliskan. Biasanya kalo ada tulisan warna merah atau pesan error coba anda konsentrasi penyelesaian di situ.
6. Simpan modul anda dan ubah dalam bentuk Microsoft Office Excel Add in (*.xla)

Menginstal add in terbilang :
Tahapan yang harus dilakukan adalah,
1. Buka Microsoft excel (file anda)
2. tool > add in
3. Setelah tampil jendela add in tekan Browse > file add in yang anda buat
4. OK

download yang sudah siap pakai :

http://www.ziddu.com/download/3797382/fungsiterbilangping.zip.html

Selamat mencoba

Hasil kelulusan Ujian Nasional Tahun 2009 dapat diselesaikan dengan rumus excel.

Dari kreteria kelulusan ujian nasional 2009 bisa disederhanakan menjadi  logika if or and:
Peserta dinyatakan lulus ujian nasional jika:
1. semua nilai lebih besar sama dengan 4,25 dan rata-rata nilai lebih besar sama dengan 5,50, atau
2. maks 2 mapel bernilai lebih besar sama dengan 4,00 dan mapel lainnya bernilai lebih besar sama dengan 4,25 dan rata-rata nilaai lebih besar sama dengan 5,50
Untuk lebih jelasnya anda tinggal memasukkan rumus berikut ini (dengan sampel nilai puluhan).

=IF(OR(AND(d6>=40,e6>=40,f6>=40.25,g6>=42.5,h6>=42.5,i6>=42.5,k6>=55),AND(d6>=40,e6>=42.5,f6>=40,g6>=42.5,h6>=42.5,i6>=42.5,k6>=55),AND(d6>=40,e6>=42.5,f6>=42.5,g6>=40,h6>=42.5,i6>=42.5,k6>=55),AND(d6>=40,e6>=42.5,f6>=42.5,g6>=42.5,h6>=40,i6>=42.5,k6>=55),AND(d6>=40,e6>=42.5,f6>=42.5,g6>=42.5,h6>=42.5,i6>=40,k6>=55),AND(d6>=42.5,e6>=40,f6>=40,g6>=42.5,h6>=42.5,i6>=42.5,k6>=55),AND(d6>=42.5,e6>=40,f6>=42.5,g6>=40,h6>=42.5,i6>=42.5,k6>=55),AND(d6>=42.5,e6>=40,f6>=42.5,g6>=42.5,h6>=40,i6>=42.5,k6>=55),AND(d6>=42.5,e6>=40,f6>=42.5,g6>=42.5,h6>=42.5,i6>=40,k6>=55),AND(d6>=42.5,e6>=42.5,f6>=40,g6>=40,h6>=42.5,i6>=42.5,k6>=55),AND(d6>=42.5,e6>=42.5,f6>=40,g6>=42.5,h6>=40,i6>=42.5,k6>=55),AND(d6>=42.5,e6>=42.5,f6>=40,g6>=42.5,h6>=42.5,i6>=40,k6>=55),AND(d6>=42.5,e6>=42.5,f6>=42.5,g6>=40,h6>=40,i6>=42.5,k6>=55),AND(d6>=42.5,e6>=42.5,f6>=42.5,g6>=40,h6>=42.5,i6>=40,k6>=55),AND(d6>=42.5,e6>=42.5,f6>=42.5,g6>=42.5,h6>=40,i6>=40,k6>=55)),”Lulus”,”Belum Lulus”)

Let’s try it!!!