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 <[email protected]>
>
> 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
>
>
ctv_format cell tetangga arah kanan tiga petak.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
