userformda textboxlarda matematiksel ifadeleri kullanm

[Sa.NaL]

Merhaba benim excel uzmanı arkadaşlardan ricam : Userformda textbox1 e hücrede yaptığım matematiksel formülü yapamıyorum.
R2 hücremde şu formül var =((Tasarım!A5*1000000*Pİ()*KUVVET((G2/100);2)*I2*Tasarım!G3*Hesap!A14)/480)/1000 kısacası demek istediğim pi,kuvvet,karekök gibi matematiksel ifadeler userformda textlerde yapılabilirmi?

 

[omerceri]

Macro kaydet'e tıklayıp bir hücreye istediğiniz excel fonksiyonunu girin macro sayfasından ingilizce olarak kaydedilen fonksiyon adını aşağıdaki gibi formda da kullanabilirsiniz.
Pİ = Pi
Kullanılışı
TextBox2.Value = Application.Pi
KUVVET = Power
Kullanılışı
TextBox2.Value = Application.Power(TextBox1, 2)

 

[Sa.NaL]

TextBox1.Value = ((Tasarım![A5] * 1000000 * Application.Pi * Application.Power((Hesap![G2] / 100), 2) * Hesap![I2] * Tasarım![G3] * Hesap![A14]) / 480) / 1000 neden hata veriyor hocam?

 

[omerceri]

Sayfa ve Hücre Referanslarını Tasarım![G3] yerine Sheets("Tasarım").Range("A5") şeklinde verin.
Not:Yazdığınız kodları bölüm bölüm deneyerek girin

 

[Sa.NaL]

oldu ama virgülden sonra 15 basamak oluyor textbox1 e eşitlenince örneğin textbox1.value de şu çıkıyor eşitlemeden sonra 45.0247905692006 15.basamaktan sonra 0 a yuvarlıyor ben 30 basamak gitsin istiyorum o nasıl yapılacak

 

[Sa.NaL]

Dim a As Double

a = ((Sheets("Tasarım").Range("A5") * 1000000 * Application.Pi * Application.Power((Sheets("Hesap").Range("G2") / 100), 2) * Sheets("Hesap").Range("I2") * Sheets("Tasarım").Range("G3") * Sheets("Hesap").Range("A14")) / 480) / 1000
TextBox1.Value = a
ben bu şekilde tanıttım yine virgülden sonra 15 basamak çıkıyor daha fazla basamak çııkması için a harfini ne ile tanımlamam gerekir?