نجوم المشاركات

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

هدية العام الهجري الجديد ******************************************* كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت **************************************************************************** السلام عليكم هذا الموضوع مقدم هدية لاساتذة وقادة هذا الصرح العملاق وهو هدية خاصة ( بسيطة جدا جدا ) بمناسبة العام الهجري الجديد للاستاذ القدير العلامة الخبير عبد الله باقشير لأقدم له عرفانا بالجميل لبعض ما تعلمناه منه ونتعلمه دائما بارك الله فيه ... وجزاه الله عنا خيرا وارجو ان ينال الملف اعجابكم تقبلوا خالص تحياتي وكل عام وانتم بخير وسلام وعلي طاعة الله دائما اضافة ازرار باسماء الشيتات وزر للرئيسية في كل شيت.rar

لا تنشرها جزاك الله خير ... ادخل وحمل وستعرف !! جمعة مباركة اخواني الكرام اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين جمعة مباركة.rar

لا تنشرها جزاك الله خير ... ادخل وحمل وستعرف !! جمعة مباركة اخواني الكرام اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين جمعة مباركة.rar

العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك اقدم لكم حركة خفيفة ولطيفة بعض الشئ باستخدام الفورم ويمكن تطويعها لألعاب اخري .. كما تشاؤون او افكار جماليه في ملفاتكم مثل استخدامها هنا لألعاب قوة الملاحظة ... كل ما عليك هو العثور علي الكرة المختلفة بين الثلاثة للانتقال للمرحلة الثانية ... ثم اختيار الكرة المختلفة للدخول لملف الاكسيل ارجو ان تنال الفكرة اعجابكم مع تحياتي ( ابوسمـــا ) جزاكم الله خيرا حركة لطيفة وخفيفة- لعبة قوة الملاحظة.rar

أخى علاء أليك دعوه منى لتغيير اسمك الى العربيه فلغتنا هى هويتنا العربيه تقبل فائق احترامى وحبى

السلام عليكم الاخ الكريم / أ/حكيم بارك الله فيك تفضل اخي الكود التالي لتنفيذ ما تريد Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("MYRANG1")) Is Nothing Then MsgBox "السلام عليكم .. اهلا بكم في منتدي اوفيسنا .. مع تحياتي ابو سما" Cancel = True End If End Sub واليك الملف المرفق ... كمثال تقبل خالص تحياتي SAMA-رسالة.rar

بعد إذن اللأخ والصديق محمود السيوطي والأخ ossimi هاهو المطلوب حسب ماتريد والله أعلم وعلمه أكمل وأتم ata.rar

بالنسبة للضغط على الرقم ليتم عرض بياناته في حدث Click للقائمة ضع هذا الكود Private Sub قائمة788_Click() DoCmd.GoToControl ("NA") DoCmd.FindRecord Me.قائمة788.Value, acAnywhere End Sub

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

الاخ الكريم شاهد هذا الملف ... به كود راائع من اعمال الاستاذ القدير / عباد ... جزاه الله خيرا يقوم باستدعاء جميع اسماء الصور الموجودة في الفولدر الموجود به الملف في العمود A ارجو ان يكون هذا هو طلبك او مزيد التوضيح تقبل خالص تحياتي استخراج اسماء الصور.rar

السلام عليكم الاخ الكريم / ahmed_hissen بارك الله فيك ولكن نطلب منك الصبر جرب المرفق .. ان شاء الله به ما تريد اظهار اسم ومسار الصورة التي تقوم باختيارها بالكود التالي : Sub SAMA() Image_path = Application.GetOpenFilename( _ FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _ Title:="اختار الصورة") Sheets("sheet1").Range("a1") = Image_path If Image_path <> False Then Sheets("sheet1").Image1.Picture = LoadPicture(Image_path) End If End Sub وارجو ان يفي بطلبك جزاك الله خيرا صورة.rar

الاخ الكريم طلبك غير واضح ... ياريت لو مثال كامل ولكن شاهد المرفق هل تقصد هكذا 2013-2003.rar

صدقت أستاذنا القدير / حمادة عمر فلنجعل نصرتنا للرسول- صلى الله عليه وعلى آله وصحبه وسلم- وأصحابه الكرام - رضي الله عنهم جميعاً- نصرةً بالرسول وأصحابه واتباع نهجهم ولله در القائل : ومن تكن برسول الله نصرته *** إن تلقه الأسد في أجامها تجم ملف رائع من روائعكم بارك الله فيك وجزاك الله خير أنك تربطنا بالحبيب صلى الله عليه وسلم وأصحابه فسيرهم تنور القلوب وتشرح الصدور وتثبت الإيمان قال تعالى : (( وكلا نقص عليك من أنباء الرسل ما نثبت به فؤادك ))

اللهم آمين ... آمين ... آمين اللهم آمين ... آمين ... آمين الاخ الحبيب / ضاحي الغريب بارك الله فيك تقبل خالص تحياتي

كنترول المرحلة الابتدائية للفصلين الدراسيين الاول والثاني حمل من احد الروابط التالية : http://www.m5zn.com/d/?15010412 http://www.4shared.com/rar/qVXMRA0U/___1_.html اسم المستخدم : لوجى باشا كلمة السر : 1964 والموضوع موجود فى منتدي الاكسل على هذا الرابط http://www.officena.net/ib/index.php?showtopic=49517&hl=

من خلال النموذج الرئيسي لدي نموذج فرعي إسمه frmSub أريد تبديل النموذج الفرعي حسب الحاجة بين أكثر من نموذج فرعي frm_Sub_4 .. frm_Sub_3 .. frm_Sub_2.. frm_Sub_1 ... !! بسيطة ... خلف حدث عند الضغط لزر أمر في النموذج الرئيسي نضع الكود التالي : Me.frmSub.SourceObject = "frm_Sub_2" أو Me.frmSub.SourceObject = "frm_Sub_3" وهكذا .... ..

اتقدم بالاصالة عن نفسي ونيابة عن جميع الاعضاء بالتهنئة الى الاخ الكريم أ / هاني عدلي بمناسبة ترقيته الى عضو مميز وان شاء الله نرى فيه النشاط المعهود دائماً === سينقل الموضوع الى المنتدى الاجتماعي بعد فترة

بارك الله لك أخي محمد يحيى موضوع رائع واسمح لي بالمساهمة فيه ولو بالقليل ..... كود لعرض شريط القوائم وشريط الأدوات القياسي وشريط التنسيق (الخاصين بأوفيس 2003) في أوفيس 2007 أو 2010 في الإكسل نستعمل الكود التالي Sub show2003() On Error Resume Next Dim cb As CommandBar Dim ctrl As CommandBarControl Set cb = CommandBars.Add("Mas2003Menu") For Each ctrl In CommandBars("Worksheet Menu Bar").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Standard") For Each ctrl In CommandBars("Standard").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Formatting") For Each ctrl In CommandBars("Formatting").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 End Sub وفي الوورد والباور بوينت نستعمل الكود التالي Sub show2003() On Error Resume Next Dim cb As CommandBar Dim ctrl As CommandBarControl Set cb = CommandBars.Add("Mas2003Menu") For Each ctrl In CommandBars("Menu Bar").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Standard") For Each ctrl In CommandBars("Standard").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Formatting") For Each ctrl In CommandBars("Formatting").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 End Sub وهذا كود حذفهم جميعاً Sub hide2003() On Error Resume Next CommandBars("Mas2003Menu").Delete CommandBars("Mas2003Standard").Delete CommandBars("Mas2003Formatting").Delete End Sub تحياتي للجميع وكل عام أنتم بخير بمناسبة أفضل ايام الدنيا عشر ذي الحجة

السلام عليكم كود لالتقاط صورة للشاشة Sub PrintTheScreen() Application.SendKeys "(%{1068})" DoEvents End Sub

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