Soru Sayılara ve işaretlere göre hesaplama

[k0081]

Merhaba arkadaşlar;

B34 hücresinde bu şekilde bir verim var : İstinat Temel = en x boy x h = (15.00 x 5.30 x 0.70)=

yapmak istediğim ;

Bir fonksiyon-metod hazırlamak;

örnek :

C7 hücresine ; =hesapla(B34) dediğimde =15*5,30*0,70 işlemini yaptırmak-yazdırmak. Parantezteri dikkate alarak.

yardımcı arkadaşa şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Arşiv konularını inceleyebilirsiniz.

Sorgu için arama sonuçları: değerbiç

www.excel.web.tr

 

[k0081]

Korhan bey ;

Metin olarak girilmiş verilerin aritmetik sonucunu hesaplatmak

Merhabalar, farklı programdan excele çektiğim binlerce satırdan oluşan veriler var. Bu veriler hücrelerde metin olarak bulunuyor. Örneğin birinci satırda; A1 hücresinde 3+2*2,25 B1 hücresinde 1/20*4 C1 hücresinde 3,00 D1 hücresinde 2*(12+8,20)/5 şeklinde görünüyorlar. Bu hücrelere müdahale etmek...

www.excel.web.tr

ktf yi gönderbilirmisiniz. Altın üye olmadığım için indiremiyorum

 

[alicimri]

Yanlış anladımsa

Function Hesapla(huc)
çarp = 1
Ayir = Split(Replace(Split(Split(huc, "(")(1), ")")(0), ".", ","), "x")
For i = 0 To UBound(Ayir)
çarp = Ayir(i) * çarp
Next
Hesapla = çarp
End Function

 

[Korhan Ayhan]

Oradaki durum sizinkinden biraz farklıdır. Ama incelemeniz için dosya ektedir.

Harici Link (Silinebilir); https://s6.dosya.tc/server17/8ob5da/Calculate_Example.xlsm.html

 

[k0081]

@alicimri; Çok teşekkür ediyorum.

Evet bu şekilde. işlem doğru. sadece seçtiğim hücreye sayılarıda yazsa çok daha güzel olacak.

yani =Hesapla(B34) dediğimizde sonucu verecek, ama sayılarıda yazacak. =15*5,30*0,70 şeklinde.

Aksi taktirde bu dosya başka bir bilgisayarda, fonksiyon olmadığı için hata verecektir...

 

[k0081]

@Korhan Ayhan

Hocam bunuda inceliyorum.

Bir proje var. tasarım aşamasındayım. Bu kodlar yardımcı olabilir... projemin genel yapısı bir önceki @alicimri arkadaşımıza yadığım mesajdadır.

Teşekkürler.

 

[k0081]

@alicimri
@Korhan Ayhan

Benim şöyle bir önerim var ;

İstinat Temel : en x boy x h = (15.00 x 5.30 x 0.70)=

İstinat : Ortalan x genişlik = ((0.70+3.30)/2) x 5.00 x 15 =

bu ifadeden = ile başlayıp, = ile biten kısmı alıp , noktayı virgül - çarpıları yıldız yaparak ve En başa = ekleyerek hücreye yazdırmak.

 

[alicimri]

Evet bu şekilde. işlem doğru. sadece seçtiğim hücreye sayılarıda yazsa çok daha güzel olacak.
yani =Hesapla(B34) dediğimizde sonucu verecek, ama sayılarıda yazacak. =15*5,30*0,70 şeklinde.
Aksi taktirde bu dosya başka bir bilgisayarda, fonksiyon olmadığı için hata verecektir...

Başka PCde KTF olmadığı için ne sonuç verdiğinin ne önemi var.

 

[k0081]

Başka PCde KTF olmadığı için ne sonuç verdiğinin ne önemi var.

Sonuç vermiyecek işte. Hata verecek. işlem yapmayacak yani

 

[alicimri]

Buyrun

Function Hesapla(huc)
çarp = 1
sayi = Replace(Split(Split(huc, "(")(1), ")")(0), ".", ",")
Ayir = Split(sayi, "x")
For i = 0 To UBound(Ayir)
çarp = Ayir(i) * çarp
Next
Hesapla = Replace(sayi, "x", "*") & " = " & çarp
End Function

 

[Korhan Ayhan]

Alternatif;

Harici Link (Silinebilir) ; https://dosya.co/ui8vpr17id22/Evaluate_Example.xlsm.html

 

[alicimri]

Harici Link (Silinebilir) ;

Sn Korhan Ayhan Formüllerin adlandırma konusuna yabancıyım. Örnek dosyanızdaki Hesapla'yı anladım. Ancak, DEĞERBİÇ nedir çözemedim.

 

[k0081]

Günaydın arkadaşlar.

sanırım ben yanlış yada eksik anlattım. altta vermiş olduğum resim deki gibi bir şey yapmak istiyorum.

 

[alicimri]

Siz tek formülde aşamalı iki sonuç üretmesini istiyorsunuz, böyle bir şey olmaz.
F2 ile formülü görürsünüz.

 

[k0081]

Tamam. Teşekkürler.

 

[Korhan Ayhan]

@alicimri,

DEĞERBİÇ (EVALUATE) bir ExecuteExcel4Macro uygulamasıdır.

Sn Korhan Ayhan Formüllerin adlandırma konusuna yabancıyım. Örnek dosyanızdaki Hesapla'yı anladım. Ancak, DEĞERBİÇ nedir çözemedim.

 

[k0081]

Aşağıda vermiş olduğum excel dısyasında, Bir çalışma yaptım. Ancak eksik kısımlar var.

veri alınacak aralık : H29;H35. ( bu veri şu şekilde alınmalı : M29 a 1 yazdığımda H29 daki veriyi al düzenle.- ekle)

M30 a 1 yazdığımda H30 dan veriyi al düzenle. - ekle
M31 e 1 yazdığımda H31 den veriyi al düzenle. - ekle

tetikleme : Worksheet_Change

örnek dosya