Re: ]] XL-mania [[ Membuat format lebih besar cell kolom disebelahnya

 

jangan mengharuskan pakai formula ya, soalnya aku ndak bisa...

pakai beginian saja

Dim OldCell As Range, OldSize

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   ' siti Vi / 28 April 2011

   If Target.Count = 1 Then

      If Len(Target) > 0 Then

         If Len(Target(1, 4)) > 0 Then

            If OldCell Is Nothing Then

               Set OldCell = Target

               OldSize = Target.Font.Size

            End If

            OldSize = Target.Font.Size

            Target(1, 4).Font.Size = OldSize + 9

            OldCell.Font.Size = OldSize

            Set OldCell = Target(1, 4)

         End If

      End If

   End If

End Sub

intinya, jika kita memindahkan cell pointer

maka cell arah kanan 3 langkah akan di ganti FONT_SIZE nya yaitu dengan

menambahkan 9  (misal dulu 11 >> menjadi 20)

jika ditinggalkan, FONT  dikembalikan ke ukuran semula

dan.... sub rutin itu akan jalan otomatis jika ada cell ointer dipindah ke cell lain

(selecton change)

2011/4/27 irwan hermansyah <irwan1913@gmail.com>

Dear Para pakar Excel,
mau tanya,
gimana caranya  klo  kita pilih satu cell, maka format cell  disebelahnya jadi berubah, misalnya Font size jadi lebih besar,..
contoh kasusnya saya lampirkan,....

mohon maaf klo pertanyaannya kurang jelas,
sebelumnya saya ucapkan terima kasih

salam
irwan

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 76

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| wooHoooOoooo!!! "mengapa boss benci chart anda" mau dicetak lagi! |
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci   |
| chart anda cuma segituhh? pokoknya� yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___