JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

اكسل | طريقتان لاظهر اخر قيمتين فى الجدول على اليوزرفورم Excel VBA Trick

بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس


درس جديد وفيديو جديد من مكتبة اكواد اكسل Excel VBA Trick

وسؤال احد الاصدقاء 

وكان السؤال كالاتى 

لدى جدول به 5 اعمدة واريد ان اخر قيمة يتم ترحلية الى الجدول تظهر تلقائيا فى اليوزرفورم


نريد فى هذا المثال ان تظهر اخر قيمة فى العمود رقم 1 والعمود رقم 2 فى اليوزرفورم بعد الترحيل مباشرة

هنعمل الكلام دة ازاى او حاجة هنعرف متغير وليكن lr 

ونضع زر ترحيل على اليوزرفورم ونضع فية هذا الكود 
Dim lr As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lr, 1) = TextBox1.Value
Cells(lr, 2) = TextBox2.Value
Cells(lr, 3) = TextBox3.Value
Cells(lr, 4) = TextBox4.Value
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5.Value = Cells(lr, 1).Value
TextBox6.Value = Cells(lr, 2).Value


من خلال هذا الكود يقوم بترحيل البيانات وايضا ظهار اخر قيمة فى العمود الاول والثانى على اليوزرفورم

لتحميل ملف العمل 


الاسمبريد إلكترونيرسالة