WorksheetFunction dizi formülü

[merakli_72]

Selam arkadaşlar
WorksheetFunction ile dizi formülü nasıl yazılır
Teşekkürler

 

[mancubus]

Range("A1").FormulaArray = ....

şeklinde deneyin.

.... yerine dizi formülünüz olacak.

 

[merakli_72]

selam;
soruyu sanırım yanlış sordum
hücreye dizi formül yazmak istemiyorum
dizi formülün sonucunu bir değişkene almak istiyorum

"=LOOKUP(9.99E+307,IF(Hazirlik!R[-9]C[2]:R[-2]C[2]<TODAY(),Hazirlik!R[-9]C[2]:R[-2]C[2],""""))"

bu formülü
al=WorksheetFunction.Lookup(...
şeklinde dizi formül olarak nasıl yazarım

 

[İhsan Tank]

selam;
soruyu sanırım yanlış sordum
hücreye dizi formül yazmak istemiyorum
dizi formülün sonucunu bir değişkene almak istiyorum

"=LOOKUP(9.99E+307,IF(Hazirlik!R[-9]C[2]:R[-2]C[2]<TODAY(),Hazirlik!R[-9]C[2]:R[-2]C[2],""""))"

bu formülü
al=WorksheetFunction.Lookup(...
şeklinde dizi formül olarak nasıl yazarım

merhaba
range("A1").formulaarray=evaluate("=........") şeklinde deneyin.
yada örnek dosya ekleyin

 

[merakli_72]

ihsan bey cevap için teşekkürler ama sizin yazdığınızdada sonuc A1 hücresine yazılır
ben sonucu bir değişkene alamazmıyım

mesela
a=WorksheetFunction.Max(Range(d:d))
yazıp sonucu a değişkenine alabiliyoruz

yukarıdaki gibi dizi formül buraya nasıl yazılır

 

[İhsan Tank]

ihsan bey cevap için teşekkürler ama sizin yazdığınızdada sonuc A1 hücresine yazılır
ben sonucu bir değişkene alamazmıyım

mesela
a=WorksheetFunction.Max(Range(d:d))
yazıp sonucu a değişkenine alabiliyoruz

yukarıdaki gibi dizi formül buraya nasıl yazılır

merhaba
siz dosya eklemiyorsunuz ama şöyle olsun böyle olsun diyorsunuz çok güzel

Sub değişken
dim ts,kaplan
kaplan=msgbox("Değişken Olarak Hesaplıyorum",vbyesno,"Onay")
If kaplan=vbno then exit sub
for ts=1 to cells(65536,"A").end(xlup).row
cells(ts,"B").formulaarray=evaluate("=...............................")
next
msgbox"Değişken Olarak Hesapladım",vbInformation,"Bitiş"
End Sub

Not : deneme yapılmamıştır.

 

[merakli_72]

Selam ekteki örnekte Düğmeye tıklandığında D sutunundaki tarihlerden bugünden küçük en büyük tarihi msgbox ile ekrana yazdırmak istiyorum.

[A1].formulaarray="=LOOKUP(9.99E+307,IF(Sayfa1!R[-9]C[2]:R[-2]C[2]<TODAY(),Sayfa1!R[-9]C[2]:R[-2]C[2],""""))"

ile istediğim sonucu elde edebiliyorum
bu formülü Application.workshetfunction ile yazamadım

yardımcı olabileceklere teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

WorksheetFunction özelliğinde dizi formülleri kullanamazsınız. Bunun yerine İhsan beyin önerdiği EVALUATE komutunu kullanmanız gerekir.

Aşağıdaki kodu deneyiniz.

Option Explicit
 
Sub Düğme1_Tıklat()
    Dim myrange, tarih
    myrange = Sheets("sayfa1").Range("D2:D" & Sheets("sayfa1").[D1].End(xlDown).Row).Address
    tarih = Evaluate("=LOOKUP(9.99E+307,IF(" & myrange & "<TODAY()," & myrange & ",""""))")
    MsgBox Format(tarih, "dd.mm.yyyy")
End Sub

 

[İhsan Tank]

Selam ekteki örnekte Düğmeye tıklandığında D sutunundaki tarihlerden bugünden küçük en büyük tarihi msgbox ile ekrana yazdırmak istiyorum.

[A1].formulaarray="=LOOKUP(9.99E+307,IF(Sayfa1!R[-9]C[2]:R[-2]C[2]<TODAY(),Sayfa1!R[-9]C[2]:R[-2]C[2],""""))"

ile istediğim sonucu elde edebiliyorum
bu formülü Application.workshetfunction ile yazamadım

yardımcı olabileceklere teşekkür ederim

formül sonucu sıfır çıkıyor

 

[Korhan Ayhan]

Merhaba,

Bir önceki mesajıma EVALUATE ile uygulanmış örnek kod ekledim. İncelermisiniz.

 

[merakli_72]

Korhan bey çok teşekkür ederim, istediğim buydu
peki bu yazımda formülün dizi formül olacağını nasıl anladı, bunu belirten bir şey göremedimde

Sizde çok teşekkür edeim ihsan bey sizinde kastettiğiniz muhtemelen buydu fakat ben anlayamadım

 

[Korhan Ayhan]

Merhaba,

EVALUATE özelliği formülün dizi olduğunu otomatik olarak algılamaktadır.