Private Sub CommandButton1_Click()
Dim vArg1 As Variant
Dim rArg2 As Range
Dim nArg3 As Long
Dim bArg4 As Boolean
vArg1 = Sheets("Pencarian").Range("A3").Value
Set rArg2 = Sheets("Data").Range("A$1:D$9")
nArg3 = 2
bArg4 = False
Sheets("Pencarian").Range("B3") = WorksheetFunction.VLookup(vArg1, rArg2,
2, False)
Sheets("Pencarian").Range("C3") = WorksheetFunction.VLookup(vArg1, rArg2,
3, False)
Sheets("Pencarian").Range("D3") = WorksheetFunction.VLookup(vArg1, rArg2,
4, False)
End Sub
To: [email protected]
From: [email protected]
Date: Wed, 7 Mar 2012 10:38:04 +0800
Subject: [belajar-excel] Belajar Pencarian
B-excel,
Aku kepingin belajar macro dikit-demi dikit, mencomot bahasa macronya dari
salah satu web lain, kasih pencerahannya dong untuk aplikasinya....
Maaf, banyak bertanya-tanya...
Best Regards,
Mr Pecut
