Maaf, ada yang kurang.
Jika ingin tidak menggunakan .parent.calculate beserta proses
mem-values-ken setelah baris .parent.calculate, maka ganti baris-baris :
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row & ",master!$b$4:$d$26,column(b1),FALSE)"
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0, 1).Resize(1, 2).Value
dengan :
.Offset(0, 1).Resize(1, 2).Formula = _
*Evaluate(*"=VLOOKUP($b" & .Row & ",master!$b$4:$d$26,column(b1
*:c1*),FALSE)"*)*
pengubahan baris tersebut ditandai dengan warna *merah*.
Wassalam,
Kid.
2012/7/22 Kid Mr. <[email protected]>
> Betul Pak Hendrik,
> Pada setting kalkulasi yang telah automatic, baris tersebut malah menambah
> beban.
> Pada sebuah runtime yang cukup panjang, apalagi dalam suatu aplikasi yang
> padat formula (baik dalam dynamic named range atau beberapa cell worksheet
> berformula tetap, terutama yang padat berisi fungsi-fungsi yang bersifat
> volatile), seringkali proses sebuah runtime didahului dengan set kalkulasi
> ke manual lebih dulu. Setting kalkulasi akan dikembalikan kepada setting
> menurut user kembali ketika runtime telah selesai.
>
> Jadi, pada kasus ini, baris tersebut hanyalah sebuah kebiasaan saja.
>
> Wassalam,
> Kid.
>
>
> 2012/7/22 hendrik karnadi <[email protected]>
>
>> **
>>
>>
>> Jawaban Mr. Kid sangat tepat sasaran.
>> Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculatedihilangkan ?
>> Bukankah Vlookup akan mengcalculate secara otomatis jika
>> tidak diset manual ?
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------------------------
>> *From:* Kid Mr. <[email protected]>
>> *To:* [email protected]
>> *Sent:* Saturday, 21 July 2012, 20:26
>> *Subject:* Re: [belajar-excel] Re: vba paste spesial - value
>>
>>
>> Coba manfaatkan event worksheet change. Kira-kira susunan blok
>> prosedurnya seperti berikut :
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Application.EnableEvents = False
>> With Target
>> If .Count = 1 Then
>> If .Row > 3 Then
>> If .Column = 2 Then
>> .Offset(0, 1).Resize(1, 2).Formula = _
>> "=VLOOKUP($b" & .Row &
>> ",master!$b$4:$d$26,column(b1),FALSE)"
>> .Parent.Calculate
>> .Offset(0, 1).Resize(1, 2).Value = .Offset(0,
>> 1).Resize(1, 2).Value
>> End If
>> End If
>> End If
>> End With
>> Application.EnableEvents = True
>> End Sub
>>
>> Asumsi :
>> area input key lookup di kolom B mulai baris ke-4 Excel.
>> yang diisi adalah 2 kolom, yaitu kolom C dan D
>> lookup ke sheet master range tertentu
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/7/21 Adi Susanto <[email protected]>
>>
>> **
>>
>> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range
>> lain gimana caranya?
>> Trims..
>>
>>
>>
>>
>>
>>
>
>
