حاصل جمع

[mina62]

سلام حاصل جمع دو عدد تکس باکس و قرار گرفتن در خانه های اکسل

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[generalsamad]

با سلام
نیاز به ایجاد پست جدید نبوده میتونستید
فایلتون رو توی همون پست قرار دهید

Private Sub CommandButton1_Click()
EmptyRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
k = EmptyRow
Range("B" & k).Value = Val(TextBox1.Text) + Val(TextBox2.Text)
TextBox1.Text = ""
TextBox2.Text = ""
End Sub 

فایل ضمیمه گردید
در صورت حل موضوع لطفا در پست اول تیک سبز حل شد را بزنید