Hesaplama butonuna Macro

[1Al2Ver]

Merhabalar, küçük bir hesaplama macrosuna ihtiyacım var, Ek'li dosyada "Form" butonu ile açılan "Userform" da 3 adet textbox mevcut. A ve B ye rakam girilecek hesapla butonu, A bölü B kare hesaplayacak, burada önemli olan B girilecek rakam virgülsüzken bu rakam hesaplanırken virgüllü olacak ( Örn; 170 yazılacak ama 1,70 olarak hesaplanacak ) teşekkür ederim.

 

[Mahmut Kök]

Merhabalar, küçük bir hesaplama macrosuna ihtiyacım var, Ek'li dosyada "Form" butonu ile açılan "Userform" da 3 adet textbox mevcut. A ve B ye rakam girilecek hesapla butonu, A bölü B kare hesaplayacak, burada önemli olan B girilecek rakam virgülsüzken bu rakam hesaplanırken virgüllü olacak ( Örn; 170 yazılacak ama 1,70 olarak hesaplanacak ) teşekkür ederim.

Aşağıdaki kod, A / (B2). Yani A'yı B'nin karesine böler.

If Len(TextBox2) > 1 Then
TextBox2 = (Left(TextBox2, 1) & "," & Right(TextBox2, Len(TextBox2) - 1)) * 1
End If
a = TextBox1 * 1
b = (TextBox2 * 1) * (TextBox2 * 1)
c = a / b
TextBox3 = c

Aşağıdaki kod, A'yı B'ye böler ve sonucun karesini alır.

If Len(TextBox2) > 1 Then
TextBox2 = (Left(TextBox2, 1) & "," & Right(TextBox2, Len(TextBox2) - 1)) * 1
End If
a = TextBox1 * 1
b = (TextBox2 * 1)
c = a / b
TextBox3 = c * c

Açıklama: Üzülerek ve utanarak söylüyorum ki Matematiğim pek iyi değildir. Hatam varsa kusura bakmayınız.

 

[1Al2Ver]

sayın mesleki, gecenin bu saatindeki duyarlığınız için teşekkür ederim, sağolun, denerim, olmazsa da önemli değil, formülden ziyade kısa zamanda gösterdiğiniz nezaket ve duyarlığınız benim için çok daha önemli, saygılar sunuyorum

 

[1Al2Ver]

sayın mesleki, denedim, "hesapla" butonuna yazdım çalışıyor, çıkan sonucu virgülden sonra iki digit ( 3,89 gibi ) yapma şansımız var mı ? Olabilirse memnun olurum, tekrar teşekkür ederim.

 

[1Al2Ver]

sayın mesleki, denedim, "hesapla" butonuna yazdım çalışıyor, çıkan sonucu virgülden sonra iki digit ( 3,89 gibi ) yapma şansımız var mı ? Olabilirse memnun olurum, tekrar teşekkür ederim.

sayın mesleki, tekrar merhaba, yukardaki isteğe bir ilave,( hata düzeltmesi )
userform'da "boyunuz" hanesine sonu sıfır ilke biten ( 1.80, 1,90 gibi ) rakamlar girildiğinde sistem bunu 1,8 ve 1,9 olarak algılıyor ve BMR textbox hesaplaması yanlış oluyor, görüşmek umuduyla, saygılar.

 

[Mahmut Kök]

İlgili satırı aşağıdaki gibi düzenleyebilirsiniz.

TextBox2 = [COLOR=red]Format([/COLOR](Left(TextBox2, 1) & "," & Right(TextBox2, Len(TextBox2) - 1)) * 1[COLOR=red], "0.00")[/COLOR]

 

[1Al2Ver]

İlgili satırı aşağıdaki gibi düzenleyebilirsiniz.

TextBox2 = [COLOR=red]Format([/COLOR](Left(TextBox2, 1) & "," & Right(TextBox2, Len(TextBox2) - 1)) * 1[COLOR=red], "0.00")[/COLOR]

sayın mesleki, ilginize teşekkür, kodu uyguladım ancak virgülden sonraki 2 digit ("0.00") ne yazıkki işlem yapmıyor, umarım sizi yormuyorum, saygılar

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox2 = [COLOR=black]Format(replace(TextBox2,".",","), "0.00")[/COLOR]

 

[1Al2Ver]

Aşağıdaki gibi deneyin.

TextBox2 = [COLOR=black]Format(replace(TextBox2,".",","), "0.00")[/COLOR]

sayın leventm, ilginize teşekkür, 2 digit çözülmedi ve "boyunuz" bölümündeki rakam 1,70 yazıldığında 170,00 şeklini aldı, sonuçta hesaplama doğru çıkıyor, ancak 2 digit gerçekleşmedi, teşekkür ederim, saygılarımla

 

[Levent Menteşoğlu]

Hesapla butonuna aşağıdaki kodu yazın.

Private Sub CommandButton1_Click()
TextBox3 = Replace(Round(TextBox1 / ((TextBox2 / 100) ^ 2), 2), ".", ",")
End Sub

 

[1Al2Ver]

Hesapla butonuna aşağıdaki kodu yazın.

Private Sub CommandButton1_Click()
TextBox3 = Replace(Round(TextBox1 / ((TextBox2 / 100) ^ 2), 2), ".", ",")
End Sub

Sayın leventm, teşekkür ederim, sorun çözüldü, saygılarımla.