Textbox içine formül ekleme işlemi

[Ahmet ÖZGÜR]

Merhaba,

1 TEXTBOX İÇİN ÖRNEK OLSA DİĞERLERİNİ UYARLAYABİLİRİM.

Excel hücreleri içine formül uygulamayı sayenizde öğrendim az çok.
Şimdi ise bir UserForm oluşturup verileri üzerinde göstermek istiyorum ama sanırım Visual Basik kısmında formüller hücredeki gibi çalışmıyor.

Yapmak istediğim : Eklediğim dosyada bir sayfasında Rapor yazan sayfayı silmek istiyorum Rapor sayfası içerisinde kullandım Topla.çarpım formülünü sanırım Textbox da kullanabilirsem olacak gibime geliyor. Yardımınızla bunun üzerinde de çalışmak istiyorum

 

[Ahmet ÖZGÜR]

Hücre içindeki formülleri userform uzerindeki textbox a nasıl yazabilirim.

 

[theglacier]

'aşağıdaki kodlar, textbox1+textbox2 toplamını textbox3 e yazdırır
textboxta değer olduğunu varsayıyorum.

Private Sub toplamSum()
Dim a As Integer
Dim b As Double
Dim TbRay As Variant
TbRay = Array(1,2) 'textbox1 ve 2 yi ifade eder, sizde farklı numaralar olacak, onları yazarsınız
For a = 0 To UBound(TbRay)
b = b + Val(UserForm1.Controls("TextBox" & TbRay(a)).Object.Value)
Next a
UserForm1.TextBox3.Value = b

End Sub

'ilgili her textboxa call toplamsum yazılır
Private Sub TextBox1_Change()
call toplamSum
end sub

Private Sub TextBox1_Change()
call toplamSum
end sub

Private Sub TextBox1_Change()
call toplamSum
end sub

'çarpma işlemi içinse

Private Sub toplamSum()
Dim a As Integer
Dim b As Double
Dim TbRay As Variant
TbRay = Array(1) 'textbox1
For a = 0 To UBound(TbRay)
b = b + (Val(UserForm1.Controls("TextBox" & TbRay(a)).Object.Value) * Val(TextBox2))
Next a
UserForm1.TextBox3.Value = b

End Sub

'call toplaSum textbox1,2,3 e yazılır.

 

[Ahmet ÖZGÜR]

Merhaba, Benim yapmak istediğim Rapor sayfasındaki hücre içindeki formülleri Texbox içine nasıl yazarım nasıl uyarlarım. Onun hakkında yardım istiyorum. Yazdıklarınızdan fazla birşey anlayamadım.

 

[PLİNT]

Merhaba, Benim yapmak istediğim Rapor sayfasındaki hücre içindeki formülleri Texbox içine nasıl yazarım nasıl uyarlarım. Onun hakkında yardım istiyorum.

Merhaba
Textboxlara veri getiren kodlarınızın "value" yerine:

TextBox1.Value = Sheets("Rapor").Range("A1").[COLOR="Red"]FormulaR1C1Local  [/COLOR]

hücredeki formül "Textbox" a alınır

 

[Ahmet ÖZGÜR]

Merhab PLİNT,

denedim lakin hücredeki formül textbox a veri getirmedi.

 

[PLİNT]

"Rapor_Initialize" olmazki

Private Sub [COLOR="Red"]UserForm[/COLOR]_Initialize()
TextBox8 = Sheets("Rapor").Range("b3").FormulaR1C1Local
TextBox1.Value = Sheets("Rapor").Range("A1").FormulaR1C1Local
End Sub

Asıl isteğiniz formülle formdaki textboxa veri getirmekmi?

Merhab PLİNT,

denedim lakin hücredeki formül textbox a veri getirmedi.

http://www.dosya.tc/server6/w9hc2s/deneme.xls.html

 

[Ahmet ÖZGÜR]

Evet texboxa veri getirmek. Rapor sayfasını silmek istiyorum açıkçası.

"Rapor_Initialize" olmazki bilmemek kötü birşey ama öğrenmekte güzel.


Şimdi İse formülleri yazdı o texbox ların içine degerleri yazmaz mı?