أبو عبدالإله قام بنشر يناير 23, 2015 مشاركة قام بنشر يناير 23, 2015 هذه الأكواد فيها تحديد لرقم شيت معين هل يمكن أن يتم تغيير التحديد إلى الصفحة الحالية بمعنى الاستغناء عن اسم الشيت ويكون بدلا منه ( الصفحة الحالية ) الأول : 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 ولكم أرق وأجمل تحية أحبتي رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يناير 23, 2015 أفضل إجابة مشاركة قام بنشر يناير 23, 2015 نعم أخي الحبيب يمكن الاستغناء عن اسم الشيت بهذا الشكل ActiveSheet. حيث كلمة ActiveSheet تعني ورقة العمل الحالية .. فيمكنك مثلاً تحديد الخلية A1 بهذا الشكل مع ورقة العمل النشطة ActiveSheet.Range("A1").Select ولكن إذا كان هناك تعامل في الكود مع أكثر من ورقة عمل أو أنك سوف تتعامل مع أكثر من مصنف فأحبذ أن تكون تقليدي كما في الأكواد المرفقة في مشاركتك ThisWorkbook.Sheets("Sheet1").Range("A1").Select 1 رابط هذا التعليق شارك More sharing options...
أبو عبدالإله قام بنشر يناير 23, 2015 الكاتب مشاركة قام بنشر يناير 23, 2015 نعم أخي الحبيب يمكن الاستغناء عن اسم الشيت بهذا الشكل ActiveSheet. حيث كلمة ActiveSheet تعني ورقة العمل الحالية .. فيمكنك مثلاً تحديد الخلية A1 بهذا الشكل مع ورقة العمل النشطة ActiveSheet.Range("A1").Select ولكن إذا كان هناك تعامل في الكود مع أكثر من ورقة عمل أو أنك سوف تتعامل مع أكثر من مصنف فأحبذ أن تكون تقليدي كما في الأكواد المرفقة في مشاركتك ThisWorkbook.Sheets("Sheet1").Range("A1").Select طبتم وطابت جمعتكم و أسعد الله وقتك بكل خير أستاذي الفاضل ياسر حاولت أن أغير في صيغة الكود في ملفي لكني فشلت لجهلي في الصياغة أرفق نموذج من ملفي وأتمنى أن يتسع وقتك للاطلاع وسأكون لك من الشاكرين إن تفضلت بإعادة صياغة الكود ليتناسب مع الصفحة الحالية أنا أرغب في ذلك لأن هذه الأزرار سأستخدمها مع صفحات كثيرة في الملف لذا أريد الأمر أن يكون للصفحة الحالية حتى يتانسب مباشرة مع جميع الصفحات . جمعة مباركة تغيير الكود للصفحة الحالية.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 23, 2015 مشاركة قام بنشر يناير 23, 2015 تفضل أخي الفاضل تغيير الكود للصفحة الحالية.rar 2 رابط هذا التعليق شارك More sharing options...
أبو عبدالإله قام بنشر يناير 23, 2015 الكاتب مشاركة قام بنشر يناير 23, 2015 تفضل أخي الفاضل أسأل الله العلي العظيم في هذه الساعة المباركة في اليوم المبارك أن يوسع في رزقك ويمد في عمرك ويحقق لك كل آمانيك شكرا لك أيها الشهم النبيل هذا ما كنت أريده بالضبط حقيقة لن أنسَ مساعدتكم لي في عملي ما حييت وسيكون لكم دائما من الدعاء نصيب حبي وتقديري 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 23, 2015 مشاركة قام بنشر يناير 23, 2015 وسيكون لكم دائما من الدعاء نصيب وعد الحر دين عليه .. لقد ألزمت نفسك ..فلا تنسى وعدك 1 رابط هذا التعليق شارك More sharing options...
أبو عبدالإله قام بنشر يناير 23, 2015 الكاتب مشاركة قام بنشر يناير 23, 2015 وسيكون لكم دائما من الدعاء نصيب وعد الحر دين عليه .. لقد ألزمت نفسك ..فلا تنسى وعدك بإذن الله لن أنسى . الآن عندما أفتح الاكسيل أو برنامجي تسبقها دعوات لكم على تقدمونه خدمة لإخوانكم دون مقابل . رابط هذا التعليق شارك More sharing options...
محمد لطفى قام بنشر فبراير 2, 2015 مشاركة قام بنشر فبراير 2, 2015 رائع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.