بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس اليوم مهم جدا غى الاكسل وسؤال للعديد من متابعى موقع عالم الاوفيس وقناه عماد غازى رحمة على اليوتيوب
كيفية عمل زر التراجع Undo Button In Excel فى اليوزرفورم
احيانا كثير جدا اثناء عملنا على اليوزرفورم ونقوم بادخال خاطئ ونود التراجع عنه يعتبر ذلك شبة مستحيل
ولكن اليوم من خلال كود جديد من مكتبة اكواد الاكسيل vba نستطيع عمل هذا الكود بطريقة جميلة جدا
كيفية تحويل ملف الاكسيل الى برنامج تنفيذى .EXE
فكرة الكود
فكرة الكود ببساطة اننا نعتمد على قيمة اخر صف بة بيانات Last Row من خلال تحديد هذا المتغير وايجاد قيمته وتحديد الصف الذى بة اخر بيانات من خلال المتغير Last Row ثم بعد ذلك نقوم بحذف اصف الذى يحتوى على البيانات
المثال
لنفرض ان لدينا فورم ادخال بة بعض البيانات مثل الاسم والسن والعنوان كما بالصورة التالية :
ومن خلال هذا الفورم نقوم بترحيل البيانات الى شيت الاكسيل من خلال زر ترحيل البيانات الى شيت الاكسل الموجود فى اليوزرفورم
فورم الموظفيين الكامل 100% مجانى ( اضافة موظف - حذف موظف - تعديل الموظفيين- طباعه بيانات الموظف )
من خلال الكود التالى
Private
Sub CommandButton1_Click()
Dim lr
As Integer
lr =
Cells(Rows.Count, 1).End(xlUp).Row
Range("a"
& lr + 1).Value = Me.TextBox1.Value
Range("b"
& lr + 1).Value = Me.TextBox2.Value
Range("c"
& lr + 1).Value = Me.TextBox3.Value
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
End Sub
ومن خلال الكود السابق تعرفنا على الية ترحيا البيانات الى شيت الاكسيل من خلال كود ماكرو بسيط للتوضيح
ناتى الى الكود المهم فى هذا الدرس
اهم 10 دوال فى الاكسيل تتعلمهم تكون محترف فى الاكسل
كود التراجع عن ادخال خاطئ
Private
Sub CommandButton2_Click()
Dim
LastRow As Long
LastRow
= Range("A" & Rows.Count).End(xlUp).Row
If
LastRow = 1 Then
Exit Sub
Else
ActiveSheet.Range("A" &
LastRow).EntireRow.Delete
End If
End Sub
ومن خلال هذا الكود كانك ضغطت على الاختصال Ctrl +Z لعمل الترجع عن عمل معين
اذا اعجبك الدرس لاتنسى مشاركتة على وسائل التواصل الاجتماعى فيس بوك - تويتر - لينكد ان - تيك توك