WorksheetFunction set atması

[tamer42]

Merhaba,

MyLookup = Application.WorksheetFunction.VLookup(var1, range1, var2, False)

Bu kodda;
"Application.WorksheetFunction.VLookup"

kısmını kısaltmak adına Set ataması yapabilmenin bir yöntemi var mıdır?

dim VL as .....................
Set VL = Application.WorksheetFunction.VLookup
MyLookup = VL (var1, range1, var2, False)

gibi....

teşekkürler, iyi Pazarlar.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

Sub test()
    Dim vl As WorksheetFunction

End Sub

Set yapmanıza gerek yok çünkü fonksiyonlar nesne değildir.

 

[Korhan Ayhan]

Aşağıdaki gibi olabilir.

Option Explicit

Sub Test()
    Dim WF As WorksheetFunction, MyLookup As Variant
    
    Set WF = Application.WorksheetFunction
    
    MyLookup = WF.VLookup(var1, range1, var2, False)
End Sub

 

[tamer42]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

Sub test()
    Dim vl As WorksheetFunction

End Sub

Set yapmanıza gerek yok çünkü fonksiyonlar nesne değildir.

teşekkürler,
yalnız bir çok fonksiyon var, bunun VLookup olduğunu nasıl ayırt edecek?
Application.WorksheetFunction.CountIf olunca nasıl olacak?

sizden kodu ricam komple yazabilir misiniz

iyi pazarlar.

 

[Muzaffer Ali]

Aşağıdaki gibi olacak.

Sub test()
    Dim fn As WorksheetFunction
    Dim MyLookup As Variant
    
    MyLookup = fn.VLookup(var1, range1, var2, False)

End Sub

 

[tamer42]

Option Explicit Sub Test() Dim WF As WorksheetFunction, MyLookup As Variant Set WF = Application.WorksheetFunction MyLookup = WF.VLookup(var1, range1, var2, False) End Sub

Teşekkürler Korhan Hocam
iyi pazarlar.

 

[Muzaffer Ali]

Eğer bir prosedur altında birden fazla kullandığınız için kısaltmak istiyorsanız aşağıdaki gibi de kısaltılabilir.

Sub test()
    Dim MyLookup1 As Variant
    Dim MyLookup2 As Variant

    With WorksheetFunction
        MyLookup1 = .VLookup(var1, range1, var2, False)
        MyLookup2 = .VLookup(var1, range1, var2, False)
    End With
    
End Sub