ابو تميم

شكرا جزيلا أستاذ ابو نصار أنا شاهدت الملف وسأعمل على تطبيقه بإذن الله تعالى وإن شاء الله يمشي معي نراكم بالنتائج إن شاء الله وفي حال لم يمشي الحال سنتابع بطريقتكم لأنها أعجبتني من النظرة الأولى

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

شكرا أستاذنا القدير ابو نصار هنا تظهر أسماء الأعمدة ولكن عندما تكون البيانات المعروضة كبيرة ونسحب البيانات إلى الأعلى أو الاسفل فإن رءوس الأعمدة هنا تتحرك مع تحرك البيانات وعندما نستعرض البيانات السفلية فإن رؤوس الأعمدة هنا تبقى في أول الجدول ولا تظهر لأنها كما أسلفنا تتحرك مع تحرك البيانات هل يمكننا أن نبقي رؤوس الأعمدة ظاهرة بحيث إذا حركنا البيانات إلى الأعلى أو الأسفل لا تتحرك معها باعتبارها رئس جدول أو قائمة جزاكم الله خيرا

السلام عليكم أنا أعمل على أوفيس 2010 والفورمات تعمل بشكل ممتاز جدا فقط قم بتفعيل الماكرو عندما تفتح الملف يظهر لديك مباشرة بلون برتقالي شريط يطلب منك تفعيل الماكرو وستعمل بشكل ممتاز

هذا هو رابط الموضوع المقصود http://www.officena.net/ib/index.php?showtopic=42107&st=0

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

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

ما شاء الله أعمال في قمة الروعة والإبداع والاتقان اللهم احفظ جميع أساتذتنا في هذا الموقع وأتم عليهم الصحة والعافية دمتم في حفظ الله تعالى ورعايته

شكرا أخي ابراهيم ولكن هذه الطريقة تحدد مصدر بيانات الليست بوكس وليس أسماء رؤوس الأعمدة شكرا على جهودك وجزاك الله خيرا

تحية طيبة في المرفق فورم فيه ولست بوكس المطلوب هو تسمية الأعمدة في اللست بوكس وتحيدها بالصف الأول في الصفحة من A1:E1 بحيث أنه عندما أفتح الفورم تظهر عندي أسماء الأعمدة محددة كما تم ضبطها بالبيانات الموجودة في الخلايا المحددة A1:E1 ولكم جزيل الشكر والاحترام اسماء رؤوس الاعمدة في Listbox.rar

والله لا أعلم ما أقول لوصف إعجابي وتقديري بأعمالك أستاذنا القدير عبد الله باقشير عمل ولا أروع من ذلك وبعد إذنكم أستاذنا القدير لدي استفسار بسيط هل يمكننا التعديل بحيث أنه عندما تمر الماوس على الليبلات ( القوائم ) يتم الانتقال من الليبل الأول إلى الثاتي أو العكس بحيث يتم الانتقال بين الليبلات بمرور الماوس فوقها عندما تكون القائمة الخاصة بالليبل مفعلة أي أنه عندما يتم الضغط مثلا على ( ملف ) تظهر القائمة الخاصة بها وعندما أنتقل بالماوس إلى ( تحرير) بدون الضغط بالماوس على كلمة ( تحرير) لتختفي قائمة ( ملف ) وتظهر قائمة تحرير ثانيا : كيف يمكن التعديل بحيث تظهر القائمة تحت الكلمات الرئيسية ( ملف ، تحرير .... الخ ) حيث أنها حاليا تظهر فوق الكلمات وعندما تريد الانتقال إلى قائمة أخرى لا تظهر الطلمات واضحة لأنها يظهر نصفها فقط والنصف الآخر يكون تحت القائمة الظاهرة جزاكم الله خيرا وبارك فيكم

أساتذتنا ابو نصار و ابو حنين جزاكم الله خيرا فعلا أكواد رائعة جدا كأصحابها سلمت أياديكم

شكرا على الإفادة أساتذتنا الكرام وجزاكم الله خيرا أنا نفذت الكود بهذه الطريقة قبل طرح السؤال ولكن النتيجة التي أريدها هي بقاء الاسم نفسه وبعد استخدامي لهذا الكود توضح لي بأن الكود الأصلي في المشاركة 1 يعمل منه فقط الجزء الذي قمنا بحذفه وذلك لأن المطلوب من الكود هو نقل نسخة من الورقة الحالية إلى ملف جديد وتحفظ على سطح المكتب بنفس الاسم مع إغلاق الملف النسخة والإبقاء على الملف الاصلي مفتوح ومع عدم نقل الاكواد إلى الملف النسخة وبعد حذف الاسطر المشار إليها في المشاركات أعلاه أصبح الكود يعمل على نقل نسخة كاملة من الملف كاملا مع الأكواد التي بداخله وهو ليس المطلوب لذك أنا قمت بالتعديل التالي حتى يقوم الكود بعمل المطلوب وذلك إذا تساوى اسم الملف مع اسم الورقة يتم نسخ المطلوب مع إضافة حرف إلى جانب الاسم الموجود بحيث يتغير اسم الملف الناتج ويتم الحفظ وفعلا نجحت الطريقة وأدت الغرض المطلوب شكرا جزيلا لكم وجزاكم الله خيرا

شكرا جزيلا أخي ابو احمد جربتها سابقا ولم تنجح لأنه يعطيني خطأ كما في الصورة جزاكم الله خيرا

up

تحية طيبة في الملف المرفق كود نقل الورقة النشطة إلى سطح المكتب ولكن لاحظت فيها مشكلة بسيطة وهي أنه عندما يكون اسم الملف يساوي اسم الورقة يتم نسخ الورقة في داخل الملف ولا يتم نقلها إلى سطح المكتب وإذا اختلف اسم الملف عن اسم الورقة عندها فقط يتم نقل الملف إلى سطح المكتب هل يمكن تعديل الكود بحيث يتم نسخ الورقة عندما يتساوى اسم الملف مع اسم الورقة النشطة المراد نقلها إلى سطح المكتب مثال في الملف المرفق اسم الملف FF واسم الورقة النشطة المراد نقلها إلى سطح المكتب أيضا FF عندما نضغط زر نقل الملف إلى سطح المكتب يتم تكرار الورقة داخل نفس الملف بالاسم FF(2) ثم إذا ضغطنا على الزر مرة أخرى يتم نقل الورقة FF(2) إلى سطح المكتب أرجو أن يكون السؤال واضحا شكرا جزيلا لكم وجزاكم الله خيرا FF.rar

جزاكم الله خيرا

أستاذي ابو نصار جزاك الله خيرا فعلا الكود الآن يعمل معي بشكل ممتاز جزاك الله خيرا

أستاذي أبو نصار بعد تجربتي للكود الذي أرفقته في المشاركة رقم 3 فإنها تعطيني خطأ كما في الصور

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

شكرا جزيلا أساتذتنا الكرام ولكن أرجو ان تعذرو قلة خبرتي أنا كيف سأضيف مكتبة معينة

تحية طيبة هل يمكن إدراج مكتبة من Reference بواسطة كود وما هي الطريقة لإضافة المكتبات التي نرغب بإضافتها إلى الكود بحيث أنه عندما نضغط على زر معين في الملف يتم إضافة المكتبة جزاكم الله خيرا

اين الملف يا دكتور جزاك الله خيرا

شكرا جزيلا أستاذي الكبير ابو نصار أنا تيقنت مسبقا بأنك لم تجرب الكود لأنه ليس لديك سكنر ولكن يكفي بان يكون الكود بهذا الاتقان وليس لديك سكنر فكيف لو كان عندك سكنر .... ولهذا السبب كنت عندما أفحص الكود وأجربه لا أكثر من الأسئلة التي تحتاج إلى وجود سكنر بشكل إجباري حتى يعمل عليها الكود جزاكم الله خيرا وأكثر من أمثالكم أرجو المعذرة على الإزعاج ولكن بالتأكيد سيكون لدي الكثير من الأسئلة التي تجعلني أختلط بالعمالقة والعلماء أمثالكم أستاذي ابو نصار ولي الشرف بالتعرف إليكم لأتعلم منكم وأكتسب مهارة جديدة ولو كانت نقطة في بحركم فهذا شرف عظيم لي بأن تكون هذه النقطة منكم جزاكم الله خيرا وأسأل الله العظيم في هذا اليوم المبارك بأن يحشرنا الله معا في الجنة لان المرء يوم القيامة يحشر مع من يحب وأنا والله إني أحببتكم في الله واتمنى ان احشر يوم القيامة معكم في الجنة ...

شكرا جزيلا أستاذي القدير ابو نصار التعديل لم يفلح في إصلاح المشكلة ولكني قمت بتعديل الأسطر التالية من الكود وهي التي كانت سبب مشكلة الترقيم عند اول صورة وهو الآن يعمل بشكل ممتاز جدا وابتداء من أول صورة الأسطر بعد التعديل تصبح كما يلي : If Ar_Max = 0 Then A_M = Ar_Max + 1 Else Ar_Max = 1 A_M = Ar_Max + 1 End If وساتابع تجربة الكود وتفقده بأكثر من حالة وفي حال كان هناك مشكلة أخرى سنتابع جزاكم الله خيرا أستاذنا القدير ابو نصار وكفاكم شر أبناء السوء ورزقكم ما تتمنون بالحلال والخير غفر الله لنا ولكم .... جمعة مباركة إن شاء الله نراكم قريبا إن شاء الله تقبل احترامي وشكري