halwim قام بنشر أكتوبر 31, 2006 قام بنشر أكتوبر 31, 2006 (معدل) بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته في المرفق أعددت جدول قمت بتعبأة صفوفه إلى الصف رقم 99 ثم عدت إلى (أول الصفحة) ثم عملت حفظ للمستند وخرجت منه . المطلوب / عند فتح الملف يتم التركيز على أول صف فارغ وهو A99 لكي نتمكن من تعبأة الباقي بيسر وسهولة . وهكذا في كل مرة يتم الفتح على أول صف فارغ . وأريد إرشادي إلى مفتاح الإختزال أو الإختصار من لوحة المفاتيح لهذه المهمة ، ولكن رغبتي الأساسية هي إيجاد حل إما بكود أو بطريقة غير مفاتيح الكي برد. تحياتي - halwim _____________________.rar تم تعديل أكتوبر 31, 2006 بواسطه halwim
علي السحيب قام بنشر أكتوبر 31, 2006 قام بنشر أكتوبر 31, 2006 الكود التالي ينفذ لك ما تريد، Private Sub Workbook_Open() Sheet1.[A1].End(xlDown).Offset(1, 0).Select End Sub ولتنفيذ هذه المهمة عن طريق لوحة المفاتيح نستخدم زر Ctrl + سهم الأسفل للوصول لآخر خلية غير فارغة .. ثم نضغط مفتاح سهم الأسفل للوصول لأول خلية فارغة. شاهد المرفق، _____________________.rar
halwim قام بنشر أكتوبر 31, 2006 الكاتب قام بنشر أكتوبر 31, 2006 السلام عليكم ورحمة الله أستاذي الفاضل أباحسين ،، دعني أولا أشكرك ، ثانيا : ألا يمكن جعل الكود يفتح على ( آخر صف فارغ ) ، وليس ( أول صف فارغ ) وشتان مابين الطريقتين ، ويكمن الفرق في ما لوقمنا بتعبأة 500 صف مثلا ثم قمنا بإدراج صف فارغ بين صف رقم 6 وصف رقم 7 فإنه من المفترض عندما نفتح الملف يتم التركيز على صف 501 ولكنه للأسف في هذه الحالة سوف يكون التركيز على صف 7 لذل أود جعل الكود يقف عند آخر صف فارغ ، وليس أول صف لتفادي هذه المشكلة . ثالثا : لاحظت وجود زر أبيض على الصف 11 لماذا ؟ ربما يبدو أنه ماكرو ولكن لايعمل ! تحياتي
علي السحيب قام بنشر أكتوبر 31, 2006 قام بنشر أكتوبر 31, 2006 في هذه الحالة يتم تغيير الكود إلى التالي: Private Sub Workbook_Open() Sheet1.[A65536].End(xlUp).Offset(1, 0).Select End Sub شاهد المرفق، ______________________2.rar
halwim قام بنشر أكتوبر 31, 2006 الكاتب قام بنشر أكتوبر 31, 2006 السلام عليكم ورحمة الله شكرا لك يا أستاذ علي ، أطال الله في عمرك ومدك في رزقك . تحياتي
الردود الموصى بها