Assalamualaikum Suhu Jan
makasih untuk pencerahannya
tujuan saya pake sub worksheet calculate sebenarnya karena sub worksheet change
ga bisa ke triger apabila pada range tidak dilakukan perubahan (meskipun dengan
data validation) kecuali jika dilakukan manual (bahkan hanya dobel klik)
semua data di range "B" berubah-ubah otomatis mengikuti list data validation
(anggap saja di cell A1)
event prosedurnya baru bisa jalan kalau sub worksheetnya calculate (ketika
excel mengkalkulasi atau mengkalkulasi ulang value di cell manapun)
saya coba dengan code ini
Private Sub Worksheet_Calculate()
Dim Target As Range
Set Target = Range("B:B")
For Each isi In Target.Cells
If Not Intersect(Target, Range("B:B")) Is Nothing Then
MsgBox ("test")
End If
Next isi
End Sub
muncul tu msgbox test-nya, tapi begitu code msgbox itu saya ganti dengan coding
autofit (Range("B3:B10").EntireRow.AutoFit) macro ga bisa menjalankan,
entirerow.autofit nya
mungkin suhu bisa membantu saya??? pliiizzzzz (ntar saya kasih kado deeehh...)
wasalamualaikum
--- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@...> wrote:
>
>
> æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> 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 <abduldedysubhansyah@...> 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
> >
> >
>
