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

السلام عليكم و رحمة الله و بركاته رمضان سعيد أما بعد: هذا كتاب برمجي خاص بالاكسل و الـ VBA و هو مفيد جدا و يتكون من 411 صفحة باللغة الانجلزية. التحميل http://ebook-dl.com/download/excel_vba_programming_for_dummies_john_walkenbach

اخواني الكرام: عندما قمت بالاعداد لشرح موضوع Select Case توصلت الى عمل دالة جديدة تقوم باستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري قد لا تكون هذه الدالة جديدة عليكم فقد قام عدد من الاساتذة واذكر منهم الاستاذ خبور بعمل دوال احترافية بهذا الخصوص ولكني احببت ان اضعها هنا للاستفادة منها الدالة تحوي على بارو مترين هما 1. A_Rng ويمثل خلية الرقم القومي 2. T ويمثل الخيار الخاص بالعنصر المراد استخراجه =============================== وهنا المتغير T ينقسم الى التالي اي عندما T = 1 يتم استخراج اسم المحافظة T = 2 يتم استخراج تاريخ الميلاد T = 3 يتم استخراج النوع سوء ذكر او انثى ==== ويصبح الشكل النهائي للدالة =A_ID(A_Rng;T) ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة معرفة.rar

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود طباعة بعد المعاينة في هذا الكود البسيط والمفيد سيتم الطباعة بعد ظهور رساله تسألك هل تود الطباعة بعد المعاينة فإذا كانت المعاينة تناسبك قل نعم وان لم تكن تناسبك وتريد التضبيط فقل لا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' هذا الكود للمهندس علي السحيب Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub ودمتم في حفظ الله معاينة طباعة مع امكانية الطباعه.rar

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

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

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

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

تشكرات اخي ياسر ،، بارك الله فيك.

يتم التغيير في هذه الجزئية هذا السطر يغير ActiveCell.Offset(1, 0) = Me.TextBox1 و يصبح هكذا ActiveCell.Offset(2, 3) = Me.TextBox1

اخي ياسر ليس الموضوع هكذا المطلوب تحويل كل الصفوف الى عامود واحد بينما دالة Transpose تعكس الأعمدة والصفوف يمكن ان يكون هذا الملف يفي بالغرض All_On_One_Column.rar

كل عام وانت بخير اخي "ياسر خليل" اسعدنا وجودك ..ودمت بخير وصحة بالنسبة لطلب الاخ هذا الموضوع

السلام عليكم ورحمة الله وبركاته إخواني الكرام جمعة مباركة عليكم أقدم لكم كود خفيف دمه ظريف .. الكود يقوم بعمل طريق مختصر للمصنف الحالي إلى سطح المكتب أو ما نسميه Shortcut، وكله بالكود Sub CreateShortCut() Dim oWSH As Object Dim oShortcut As Object Dim sPathDeskTop As String Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & ActiveWorkbook.Name & ".lnk") With oShortcut .TargetPath = ActiveWorkbook.FullName .Save End With Set oWSH = Nothing End Sub هو دا الكود ..بس خلاص إليكم الملف المرفق قم بفك الملف المضغوط وضع الملف المفكوك في أي مسار على الحاسب الخاص بك ..وديه في الأدغال !! ونفذ الكود لتجد اختصار لمصنفك على سطح المكتب دمتم على طاعة الله ..ولا تنسونا من صالح دعائكم Create Shortcut On Desktop.rar

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

اخي صالح: اذا كان كل معلم سوف يقوم بتعبئة ملف الاكسل الخاص بصفه، ثم ارجاعه لك كي يتم اضافته الى القاعدة الرئيسية للعلامات فلا حاجة لاكثر من ورقة sheet في ملف اكسل المصدر اطلع على الملف التالي وبعد ذلك سوف نصل الى ما تصبو اليه ،،، باذن الله تعالى :: تحياتي Waz-Excel.rar

أخي الكريم أبو سلمان جرب الرابط التالي علك تجد فيه ضالتك إن شاء الله الرابط من هنا

السلام عليكم جرب المرفق تعديل فورم 2 لجلب رقم الهاتف مع اسم العمل.rar

بداية النموذج الفرعي مربوط بالرئيسي فعند تغيير اليوزر في الرئيسي تتم التصفية في الفرعي اولا المجموعة group تمت تصفيتها لاستبعاد المكرررات عند الاختيار من group يتم تصفية branch عند الاختيار من branch تتم تصفية test ملا حظة لا بد من الاختيار من قائمة حتى يتم تحديث القائمة الاخرى link_4.rar

آميييين يا رب العالمين إن شاء الله الله يكتبلك بكل حرف حسنة و الله يضاعف لمن يشاء

تم

Dim msg Select Case B Case Is = "مقروءة" DoCmd.GoToRecord , "", acNext Case Else msg = MsgBox("يجب ادخال سبب عدم قراءة البصمة للناخب", vbYes, " ") S.SetFocus End Select ضع الكود في حدث عند النقر لزر الأمر خاصتك :: تحياتي

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

يمكن ان يكون المطلوب fixed-sum.rar

العفو ياباشا !!

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

الاخوة الكرام اسف جدا اكتشفت الخطأ ..... في هذا الجزء والتصحيح بحث يالأحرف الأولي.rar

الجواب الفقرة مجموعة كلمات او جمل ككتلة واحدة تنتهي عند الضغط على المفتاح Enter السطر هو المجال المكتوب بين الهامشين الايمن والايسر الحرف كل شيء له مفتاح في لوحة المفاتيح كالحرف او الرقم او الرمز الكلمة هي مجموعة حروف لا تتخللها مسافة تنتهي عند الضغط على المفتاح المسافة SpaceBar علاقة كل مفتاح في لوحة المفاتيح بما سبق النقر على المفتاح Enter ينهي الفقرة وينشئ سطر جديد النقر على مفتاح المسافة ينهي الكلمة النقر على اي مفتاح ينشئ حرف والسلام عليكم

تفضل Book1.rar

كود الحل من الفاضل/ وائل احمد المصري لعمل الدالة sumif بنفس المشاركه تحويل عمل الدالة sumif لكود2 vba.rar

ما اجمل العمل الخالص لوجه الله الكل يعمل علي المساعدة يبتغون رضا الله عليهم ..... الكل يساعد لا يهم من يطلب المساعدة .... ولكن المهم ان احصل علي ثواب العمل واعتقد ان هذا لا يوجد الا في هذا المنتدي الغالي ..... لذلك انا احبة ..... واحب كل اعضائة

بعد اذن اخي عبد السلام كود مختصر Sub show_borders() With Selection.Borders .LineStyle = xlNone .LineStyle = xlContinuous End With With Selection.SpecialCells(xlCellTypeConstants, 23).Borders .LineStyle = xlContinuous .Weight = xlThin End With End Sub