Senin, 16 Januari 2012

Sulap Excel : Bermain-main dengan Worksheet_Events

SULAP? Ya... mengapa tidak.


Performance
1. Insert sebuah atau beberapa gambar ke dalam Sheet.
2. Tuliskan kata "Hilang" di sel mana saja, lalu tekan Enter. maka Simsalabim.... Gambarnya akan hilang.
3. Tuliskan kata "Muncul" di sel mana saja, lalu tekan Enter. Maka Simsalabim.... Gambarnya muncul lagi.


The Secret:
1. Klik kanan nama Sheet, pilih View Code
2. Tuliskan Kode berikut:




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Gambar As Object


On Error Resume Next
If Target.Count = 1 Then
    If Target.Offset(-1, 0).Value = "Hilang" Or Target.Value = "Hilang" Then
        For Each Gambar In ActiveSheet.Pictures
            Gambar.Visible = False
        Next Gambar
    End If
    If Target.Offset(-1, 0).Value = "Muncul" Or Target.Value = "Muncul" Then
        For Each Gambar In ActiveSheet.Pictures
            Gambar.Visible = True
        Next Gambar
   
    End If
End If
End Sub


3. Simpan dalam format .xlsm atau .xls
4. Workbook siap digunakan
5. Jangan lupa untuk meng-Enable-kan Macro, pada saat membuka file ini.

File contoh bisa didownload di sini atau di Boxnet pada sidebar


Penutup:
Dengan VBA, kita bisa melakukan sesuatu yang tidak mungkin dilakukan. Seperti contoh di atas, kita memanfaatkan VBA dengan salah satu fiturnya yakni Worksheet_Events, tepatnya Worksheet_SelectionChange.
So...
Ayu Tingting Lagi Kesel ama Tetangganya
Yang penting suka Excel termasuk VBA-nya.


Salam Excel....!





Artikel Terkait:

3 komentar:

Anonim mengatakan...

Super!!!!!!!!!!!!!

Udin Haeruddin mengatakan...

Excel memang SUper....!!!!

Anonim mengatakan...

AYU TING_TING MAKE SENDAL BARU
MAKIN NGETOP AJA POSTING KANG HERU :)