Sayın arkadaşlar visual basicde toplama,çıkarma,çarpma ve bölmeyle ilgili formülleri yapıyorum. ÖR: Private Sub CommandButton11_Click()
TextBox20.Value = Val(TextBox7.Value) + Val(TextBox11.Value) + Val(TextBox12.Value)
TextBox21.Value = Val(TextBox15.Value) + (Val(TextBox6.Value) / 2)
TextBox22.Value = Val(TextBox7.Value) * Val(TextBox21.Value) * Val(TextBox19.Value)
TextBox23.Value = (Val(TextBox21.Value) + 4) * Val(TextBox11.Value) * Val(TextBox19.Value)
TextBox24.Value = Val(TextBox21.Value) * Val(TextBox12.Value) + Val(TextBox21.Value) * Val(TextBox12.Value) * 0.5 * Val(TextBox19.Value)
TextBox25.Value = Val(TextBox22.Value) + Val(TextBox23.Value) + Val(TextBox24.Value)
TextBox26.Value = Val(TextBox5.Value) * Val(TextBox18.Value)
TextBox27.Value = Val(TextBox26.Value) + Val(TextBox25.Value)
TextBox28.Value = Val(TextBox25.Value) / Val(TextBox20.Value)
End Sub
-------
Fakat =MAK((C2:C15000=F75)*(B2:B15000))
=MİN(EĞER(((C2:C15000=F74)*(B2:B15000))>0;B2:B15000))
=EĞERSAY(C:C;"19.01.2007")
=ETOPLA(C:C;"14.01.2007";D)
bu tarz formülleri visual basice nasıl aktaracağım.Çünkü programın MB. tı çok eğer bu formülleri vba ya aktarabilirsem neredeyse KB. durumuna düşecek.
Lütfen Yardım........
TextBox20.Value = Val(TextBox7.Value) + Val(TextBox11.Value) + Val(TextBox12.Value)
TextBox21.Value = Val(TextBox15.Value) + (Val(TextBox6.Value) / 2)
TextBox22.Value = Val(TextBox7.Value) * Val(TextBox21.Value) * Val(TextBox19.Value)
TextBox23.Value = (Val(TextBox21.Value) + 4) * Val(TextBox11.Value) * Val(TextBox19.Value)
TextBox24.Value = Val(TextBox21.Value) * Val(TextBox12.Value) + Val(TextBox21.Value) * Val(TextBox12.Value) * 0.5 * Val(TextBox19.Value)
TextBox25.Value = Val(TextBox22.Value) + Val(TextBox23.Value) + Val(TextBox24.Value)
TextBox26.Value = Val(TextBox5.Value) * Val(TextBox18.Value)
TextBox27.Value = Val(TextBox26.Value) + Val(TextBox25.Value)
TextBox28.Value = Val(TextBox25.Value) / Val(TextBox20.Value)
End Sub
-------
Fakat =MAK((C2:C15000=F75)*(B2:B15000))
=MİN(EĞER(((C2:C15000=F74)*(B2:B15000))>0;B2:B15000))
=EĞERSAY(C:C;"19.01.2007")
=ETOPLA(C:C;"14.01.2007";D)
bu tarz formülleri visual basice nasıl aktaracağım.Çünkü programın MB. tı çok eğer bu formülleri vba ya aktarabilirsem neredeyse KB. durumuna düşecek.
Lütfen Yardım........