Nasıl bir VBA Fonksiyon bir sonuç geri Dönmek için

SORU

6 Mayıs 2010, PERŞEMBE

Nasıl bir VBA Fonksiyon bir sonuç geri Dönmek için

Nasıl bir fonksiyon bir sonuç geri dönebilirim?

Örneğin:

Public Function test() As Integer
    return 1
End Function

Bu bir derleme hatası verir.

Nasıl bu fonksiyon bir tamsayı dönüş yapabilirim?

CEVAP

6 Mayıs 2010, PERŞEMBE

Olmayan bir nesne dönüş türleri için, bu gibi fonksiyon adı: değer atamak zorunda

Public Function test() As Integer
    test = 1
End Function

Örnek kullanım:

Dim i As Integer
i = test()

Eğer işlevi Nesne türü dönerse, o zaman bu gibi Set anahtar kelime kullanmanız gerekir:

Public Function testRange() As Range
    Set testRange = Range("A1")
End Function

Örnek kullanım:

Dim r As Range
Set r = testRange()

İşlev adı için bir dönüş değeri atama, işlevinin bitirilmesini unutmayın. Eğer fonksiyonundan çıkmak istiyorsanız, o zaman açıkça Exit Function demen gerekir. Örneğin:

Function test(ByVal justReturnOne As Boolean) As Integer
    If justReturnOne Then
        test = 1
        Exit Function
    End If
    'more code...
    test = 2
End Function

Belgeler: http://msdn.microsoft.com/en-us/library/office/gg264233(v=office.14).aspx

Bunu Paylaş: