WorksheetFunction

[riyaziye]

Merhaba Sayın Grup Üyeleri;

Sub Makro1()

Dim a As Range

Set a = Cells(1, 1)
a.Value = Cos(WorksheetFunction.Radians(30))

End Sub

şeklinde örnek kodda Radians fonksiyonunu kullanmak istiyorum ama WorksheetFunction nesnesinin ismini fonksiyonu temsilen sadece f ile değiştirebilir miyim?

a.Value = Cos(f.Radians(30))

şekline getirmek için ne yapmam gerekiyor?

Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

Sub Makro1()
Dim a As Range
Set a = Cells(1, 1)
Set f = WorksheetFunction
a.Value = Cos(f.Radians(30))
End Sub

 

[Orion1]

Sub Makro1()

Dim a As Range, [B][COLOR="Red"]f As WorksheetFunction[/COLOR][/B]
Set a = Cells(1, 1)
[B][COLOR="Red"]Set f = WorksheetFunction[/COLOR][/B]
a.Value = Cos([B][COLOR="Red"]f[/COLOR][/B].Radians(30))
[B][COLOR="red"]Set a = Nothing
Set f = Nothing[/COLOR][/B]
End Sub

 

[riyaziye]

Teşekkürler Levent ve Evren Bey;