-->

الاكسيل | كيفة عمل زر التراجع ( Ctrl +Z ) فى اليوزرفورم Undo Button In Excel UserForm

 بسم الله الرحمن الرحيم 

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

 درس اليوم مهم جدا غى الاكسل وسؤال للعديد من متابعى موقع عالم الاوفيس وقناه عماد غازى رحمة على اليوتيوب

 كيفية عمل زر التراجع 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 لعمل الترجع عن عمل معين 

اذا اعجبك الدرس لاتنسى مشاركتة على وسائل التواصل الاجتماعى فيس بوك - تويتر - لينكد ان - تيك توك

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

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق