وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Mungkin seperti ini:
Private Sub Worksheet_Calculate() >> baris ini diganti menjadi
Private Sub Worksheet_Change()
Dim target As Range >> baris ini dihapus
Set target = Range("B:B")
If Not Intersect(target, Range("B:B")) Is Nothing Then
Range("B3:B10").EntireRow.AutoFit >>> yang ini Jan bingung nih.. (nyambung
ke bawah ya..)
End If
End Sub
kalo mau bikin otomatis lebar kolomnya maka pakai script berikut:
range("b:b").columns.autofit
tapi kalo yang mau diubah otomatis adalah tinggi barisnya maka pakai script
yang ini
with range("b3:b10")
.wraptext = true
.entirerow.autofit
end with
وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمِين يَا رَبَّ الْعَالَمِيْن
Pada 18 Juli 2013 12.44, abdul <abduldedysubhans...@yahoo.co.id> menulis:
> **
>
>
> Assalamualaikum Wahai Suhu Excel
>
> mohon pencerahan
> saya coba input code ini di macro excel saya
>
>
> Private Sub Worksheet_Calculate()
> Dim target As Range
> Set target = Range("B:B")
> If Not Intersect(target, Range("B:B")) Is Nothing Then
> Range("B3:B10").EntireRow.AutoFit
> End If
> End Sub
>
> tapi ga berjalan sebagaimana mestinya (row yang menglami perubahan value,
> tidak autofit sendiri)
>
> untuk informasi, data di range "B" terupdate lewat lookup yang di triger
> oleh data validation
>
>
