KTF'lerde hücre değerini değişken olarak kullanma

[tufan03]

Kullanıcı tanımlı fonksiyonlarda tanımlanmış hücre değerlerini değişken olarak kullanmak mümkünmü? Örneğin A4 hücresini yevmiye olarak adlandırıp,fonksiyon içindeki 30 yerine yevmiye yazmak gibi.)denedim fakat çalışmadı.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Function SEC(Hücre [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]deg[/COLOR] = Hücre
If [COLOR=blue]deg[/COLOR] = 1 Then
SEC = "Bir"
Else
SEC = "İki"
End If
End Function

 

[tufan03]

Galiba anlatamadım; fonksiyonda 20 ile 30'u çarpmak istiyorum, bu rakamların bazen 40 ve 50 olması gerekiyor.Fonksiyonda değişiklik yapmaktansa A1 ve A2 hücrelerine değişkenleri yazıp A1'e 30 A2'ye 40 yazarak fonksiyonda A1 ile A2'yi çarpmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;

Option Explicit
 
Function CARP(HUCRE1 As Range, HUCRE2 As Range)
    Application.Volatile
    CARP = HUCRE1 * HUCRE2
End Function

Hücrede kullanım şekli;

[B][COLOR=blue]=CARP(A1;B1)[/COLOR][/B]

 

[tufan03]

Teşekkür ederim Korhan Ayhan acaba;
Option Explicit

Function CARP(HUCRE1 As Range, HUCRE2 As Range)
Application.Volatile
CARP = Yevmiye * Gün
End Function
Şeklinde düzenlenemezmi?

 

[hsayar]

Option Explicit
 
Function CARP(Yevmiye As Range, GünAs Range)
    Application.Volatile
    CARP = Yevmiye * Gün
End Function

 

[tufan03]

PER sayfsındaki A1 hücresini ad tanımlama yöntemi ile yevmiye olarak tanımladım, fonksiyonda bana sadece günü soracak ve ben günü girdiğimde gün sayısını tanımlanmış olan A1 hücresi ile çarpacak.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki fonksiyonu denermisiniz.

Option Explicit
 
Function HESAPLA(GÜN As Integer)
    Application.Volatile
    HESAPLA = GÜN * Range("YEVMİYE")
End Function

Hücrede kullanım şekli;

[B][COLOR=blue]=HESAPLA(Gün_Sayısı)[/COLOR][/B]