تعديل في صيغة كود

[أبو عبدالإله]

هذه الأكواد فيها تحديد لرقم شيت معين

 

هل يمكن أن يتم تغيير التحديد إلى الصفحة الحالية

 

بمعنى الاستغناء عن اسم الشيت ويكون بدلا منه ( الصفحة الحالية )

 

الأول : 

 

 

Sub CommandButton3_Click()

    ThisWorkbook.Sheets(Array("1")).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _

         IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

 

 

 

الثاني

 

 

Sub CommandButton2_Click()

Dim ws As Worksheet

Dim lr As Long

 

Set ws = ThisWorkbook.Sheets("1")

lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row

ws.Range("AZ" & lr).Offset(-1, 0).EntireRow.Delete

 

End Sub

 

 

 

 

 

الثالث

 

 

Sub CommandButton1_Click()

Dim ws As Worksheet

Dim lr As Long

 

Set ws = ThisWorkbook.Sheets("1")

lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row

ws.Range("AZ" & lr).EntireRow.Insert

End Sub

 

 

ولكم أرق وأجمل تحية أحبتي 

 

[ياسر خليل أبو البراء]

نعم أخي الحبيب يمكن الاستغناء عن اسم الشيت بهذا الشكل

ActiveSheet.

حيث كلمة ActiveSheet تعني ورقة العمل الحالية ..

فيمكنك مثلاً تحديد الخلية A1 بهذا الشكل مع ورقة العمل النشطة

ActiveSheet.Range("A1").Select

ولكن إذا كان هناك تعامل في الكود مع أكثر من ورقة عمل أو أنك سوف تتعامل مع أكثر من مصنف فأحبذ أن تكون تقليدي كما في الأكواد المرفقة في مشاركتك

ThisWorkbook.Sheets("Sheet1").Range("A1").Select

[أبو عبدالإله]

 

نعم أخي الحبيب يمكن الاستغناء عن اسم الشيت بهذا الشكل

ActiveSheet.

حيث كلمة ActiveSheet تعني ورقة العمل الحالية ..

فيمكنك مثلاً تحديد الخلية A1 بهذا الشكل مع ورقة العمل النشطة

ActiveSheet.Range("A1").Select

ولكن إذا كان هناك تعامل في الكود مع أكثر من ورقة عمل أو أنك سوف تتعامل مع أكثر من مصنف فأحبذ أن تكون تقليدي كما في الأكواد المرفقة في مشاركتك

ThisWorkbook.Sheets("Sheet1").Range("A1").Select

 

 

طبتم وطابت جمعتكم و أسعد الله وقتك بكل خير أستاذي الفاضل ياسر

 

حاولت أن أغير في صيغة الكود في ملفي لكني فشلت لجهلي في الصياغة

 

أرفق نموذج من ملفي وأتمنى أن يتسع وقتك للاطلاع وسأكون لك من الشاكرين إن تفضلت بإعادة صياغة الكود ليتناسب مع الصفحة الحالية 

 

أنا أرغب في ذلك لأن هذه الأزرار سأستخدمها مع صفحات كثيرة في الملف لذا أريد الأمر أن يكون للصفحة الحالية حتى يتانسب مباشرة مع جميع الصفحات .

 

 

جمعة مباركة 

 

 

 

تغيير الكود للصفحة الحالية.rar

[ياسر خليل أبو البراء]

تفضل أخي الفاضل

تغيير الكود للصفحة الحالية.rar

[أبو عبدالإله]

تفضل أخي الفاضل

 

 

 

أسأل الله العلي العظيم في هذه الساعة المباركة في اليوم المبارك أن يوسع في رزقك ويمد في عمرك ويحقق لك كل آمانيك

 

 

شكرا لك أيها الشهم النبيل هذا ما كنت أريده بالضبط 

 

حقيقة لن أنسَ مساعدتكم لي في عملي ما حييت

 

وسيكون لكم دائما من الدعاء نصيب 

 

حبي وتقديري 

[ياسر خليل أبو البراء]

 

وسيكون لكم دائما من الدعاء نصيب

وعد الحر دين عليه .. لقد ألزمت نفسك ..فلا تنسى وعدك

[أبو عبدالإله]

 

 

وسيكون لكم دائما من الدعاء نصيب

وعد الحر دين عليه .. لقد ألزمت نفسك ..فلا تنسى وعدك

 

 

بإذن الله لن أنسى . 

 

الآن عندما أفتح الاكسيل أو برنامجي تسبقها دعوات لكم على تقدمونه خدمة لإخوانكم دون مقابل .

[محمد لطفى]

رائع