اريد كود يضاف لتكست فورم ليعرض ناتج طرح العمود c من العمود b

[omhamzh]

السلام عليكم ورحمة الله

اريد كود يضاف لتكست فورم ليعرض ناتج طرح العمود c من العمود b

قمت بعمل معادلة بالشيت والناتج يعرض بالتكست بس الناتج لو كان 0 كان بيعرض -100000000000000000000000

فما احتاجه هو ان ينفذ المعادلة بالكود لمنع التقريب واظهار الناتج بالتكست بمجرد ما افتح الفورم  الناتج الفورمات بتاعه0.00

بارك الله فيكم

معادلة للفورم.xlsm

[سليم حاصبيا]

code

Private Sub UserForm_Initialize()
Dim lrc, lrb, My_Formula
lrc = Sheets("Sheet1").Cells(Rows.Count, 3).End(3).Row
lrb = Sheets("Sheet1").Cells(Rows.Count, 2).End(3).Row

My_Formula = "=SUM(C2:C" & lrc & ")-SUM(B2:B" & lrb & ")"
My_Formula = Evaluate(My_Formula)
Me.TextBox1 = My_Formula
End Sub

 

[omhamzh]

حضرتك مش ممكن رائع بارك الله فيك استاذ سليم حضرتك فعلا رجل عظيم

اشكرك