Kalau mau direkalkulasi ulang secara otomatis setiap ada perubahan boleh
ditambahkan Application.Volatile pada bagian awal code. Namun harus
berhati-hati agar tidak tejadi "calculation lag", seperti catatan di bawah ini:
This example marks the user-defined function "My_Func" as volatile. The
function will be recalculated when any cell in any workbook in the application
window changes value. Recalculation of the function is not restricted to
changes or calculation cycles in the worksheet for which this function applies.
Therefore, use it moderately to avoid calculation lag.
Function My_Func()
Application.Volatile
'
' Remainder of the function
'
End FunctionSalam,HK
On Monday, July 31, 2017, 9:47:46 AM GMT+7, hendrik karnadi
<hendrikkarn...@yahoo.com> wrote:
Jangan lupa aktifkan Macronya.....
----- Forwarded Message -----From: hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>To: Zerlinda Seismica
seism...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>Sent: Monday,
July 31, 2017, 9:46:51 AM GMT+7Subject: Re: [belajar-excel] Look Up Nilai Yang
Tidak Unik
Sambil menunggu jawaban Mr. Kid, sila coba UDF nya pak Anton (salah satu bang
Momod juga).
Copas UDF di bawah ini pada module di VBE Sheet,
Function vlookupgab(x As Range, y As Range, z As String) As String
'anton suryadi 1/Des/2010
For Each a In x
If a.Text = y.Text Then
b = b & a.Offset(, 1).Text & z
End If
Next
vlookupgab = Left(b, Len(b) - 1) End Function
dan ketik UDF di bawah ini,
=vlookupgab($A$3:$A$9,D3,",") pada Range E3, kemudian copy ke bawah.
Salam,HK
On Sunday, July 30, 2017, 9:38:56 PM GMT+7, Zerlinda Seismica
seism...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Assalamualaikum wrwb
Bapak dan ibu wabil khusus Mr Kid hehe...menurut asumsi saya fungsi look hanya
untuk cari data yang unik.Sementara cari data yang ga unik apa ada sintaknya
ya...Seperti biasa akan lebih jelas kalau bapak ibu bisa cek dulu lampiran
saya...
Salam hormat buat bapak ibu
Wassalam
Seismica
