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

السلام عليكم ورحمة الله وبركاته، أحببت في هذه الصفحة أن أعرض لكم الفرق بين وظيفة كل من The For Loop The Do Until Loop The Do While Loop وذلك عن طريق طرح بعض الأمثلة العملية في ذلك، وقد نستعين من بعض الخبراء لإثراء الموضوع لجعله أكثر حيوية.. تابعونا إن كان الموضوع مجدي.

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

إليك الملف المعدل بعد إضافة تعديلات بسيطة على الدالة المعرفة لتتمكن من تشغيل أي ملف صوتي في نفس مسار المصنف الحالي .. حيث ستكتب المعادلة بالشكل التالي : اسم الدالة المعرفة يليها قوس مفتوح ولها 3 بارامترات الأول الخلية المطلوب اختبار الشرط بها ، والثاني الشرط المطلوب والذي في حالة تحققه يتم تشغيل الملف الصوتي ، والثالث هو اسم الملف الصوتي المطلوب تشغيله في حالة تحقق الشرط لتجربة الملف قم بإدخال قيمة أكبر من 1000 في الخلايا A5 أو N7 >>>إذا أردت إيقاف الملف الصوتي قم بتغيير القيمة إلى قيمة أقل من 1000 Play Sounds In VBA Using UDF Hanafy Officena

ما اجمل النقاش بين العمالقة :- الياسران استاذى ياسر خليل ابو البراء & استاذى ياسر العربى جزاكم الله خيرا على اعمالكم الرائعة

السلام عليكم... ::: اسمحوا لي بالمشاركة ...في المرفق ماذكرة استاذ شيفان . بالتوفيق قاعدة بيانات2.rar

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

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

بسم الله الرحمن الرحيم اقدم لكم كود بحث متقدم كود بحث متقدم يفوق معظم أنواع البحث بالاعتماد على المصفوفات لضمان كفاءة عالية للبحث وسرعة جلب البيانات والمرونة العالية به من حيث البحث داخل كل الأعمدة الموجودة داخل النطاق تم توضيح المتغيرات التي تستطيعوا تعديلها لتتوافق مع ملفاتكم الكود المستخدم داخل الملف Sub Yasser_Serch() Dim myArray, lr, X, targt, targtN Dim SERCH As Worksheet, DATA As Worksheet '____________________________________________ Set DATA = Worksheets("Sheet2") 'اسم شيت قاعدة البيانات Set SERCH = Worksheets("Sheet1") 'اسم الشيت الخاص بالبحث '____________________________________________ lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row 'اخر صف به بيانات SERCH.Range("A4:J" & SERCH.Cells(Rows.Count, 4).End(xlUp).Row + 1).ClearContents 'مسح نطاق البحث القديم targt = SERCH.Range("e1").Value 'خلية البحث targtN = Application.WorksheetFunction.Match(SERCH.Range("D1"), SERCH.Range("A3:J3"), 0) 'دالة لايجاد رقم عمود البحث myArray = DATA.Range("A2:J" & lr + 1) 'نطاق قاعدةالبيانات الذي سيتم البحث فيه '____________________________________________ ReDim Y(1 To lr, 1 To 10) For X = 1 To lr If targt = "" Then Exit Sub If myArray(X, targtN) Like targt & "*" Then rw = rw + 1 Y(rw, 1) = myArray(X, 1): Y(rw, 6) = myArray(X, 6) Y(rw, 2) = myArray(X, 2): Y(rw, 7) = myArray(X, 7) Y(rw, 3) = myArray(X, 3): Y(rw, 8) = myArray(X, 8) Y(rw, 4) = myArray(X, 4): Y(rw, 9) = myArray(X, 9) Y(rw, 5) = myArray(X, 5): Y(rw, 10) = myArray(X, 10) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(rw, 10).Value = Y() End Sub لتحميل الملف اضغط هنا اعداد / ياسر العربي تقبلو تحياتي

الاخوة الزملاء تعالوا نتعرف على بوربوينت 2010 أتعلم معكم ونتعلم معا اولا : التعرف على بيئة البوربوينت 2010 من الشرائط الرئيسية

طباعة التقرير مباشرة من نموذج • طباعة التقرير من داخل التقرير رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfd0R5bERleUdBVzA/view?usp=sharing اسم الفيديو طباعة التقرير من الداخل الوصف فيديو يشرح • طباعة التقرير مباشرة من نموذج طباعة التقرير من داخل التقرير رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfd0R5bERleUdBVzA/view?usp=sharing و كيفية إخفاء زر الأمر عند الطباعة رابط برنامج Pdfcreator http://www.pdfforge.org/pdfcreator/download الفيديو

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

ليس بين الاخوة اي نوع من الاعتذار واي طلب تريدة ويكون بستاعتي تقديمة لك لا تتردد بمراسلتي اخي ابو هديل اقبل تحياتي واحترامي

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

اعذرني لا اعرف للاسف التاريخ الهجري ولكن تم التنسيق حسب ما تريد شاهد المرفق واخبرني وما تخجل مني انا معاك حتى يخرج العمل على اكمل وجه كشف الموظفين تعديل 3 مختصر.rar

احنى لك القبعة على مواضيعك المميزة بوركت استاذ / ياسر خليل ابو البراء

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

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

تفضل اخي الكريم هذا المرفق الذي كنت اعمل عليه accurate 28.rar

من فضلك اذا بترفع نموذج لكي يستفيد منه الكثير منا سنكون ممنونين مع تقدير اخوك شفان ريكاني

السلام عليكم اخي ابو هديل شاهد المرفق واخبرني عن رايك اقبل تحياتي واحترامي كشف الموظفين مختصر.rar

لا داعي للشكر عللواجب انا في الخدمة اخوي تحياتي شفان ريكاني

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

وهاي طلبك اذا ما عنده حضور مع تقدير شفان ريكاني قاعدة بيانات1.rar

جزاكم الله خيرا اخى الحبيب

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

تفضل ...

السلام عليكم الجداول تعتير حجر الاساس لاي مشروع لذا يجب التاكد من صحة انشائها ومراجعة الحقول المكتوبة والامر الاخر والمهم جدا جدا هو العلاقات وربط الجداول فهي التي تجعل من مشروعك قابل للتطوير دون اي مشاكل كما انه سوف يقلل من احتياجك للاكواد خصوصا وكما فهمت من كلامك انك حديث العهد في الاكسس وللاسف معضم مستخدمي الاكسس لا يراعون هذا الامر بالنسبة لي ولا اعلم ان كان هناك من يوافقني اعتبر العلاقات تشكل 50% من الاكسس منذ ان فهمتها لم اجد مشكلة في اي برنامج والملفت للنظر ان الاكسس يعرفونه كبرنامج علائقي واخيرا الاكواد فهي تسهل الامر عليك وتحل لك اي مشكلة مع مراعاة الحل المنطقي للمشكلة لان اختفاء المشكلة ليس معناه حلها بصورة صحيحة ارجو ان اكون قد وفقت وعذرا للاطالة

انظر هذه المشاركة لأخي الحبيب المبدع @الزباري وخذ منها ما تريد https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=118806

آسف أخي أنا ظننتك تريد الالغاء كاملا انظر حل أخي بو عبد الباري جزاه الله خير فهو يفي بالغرض ولاثراء الموضوع هناك معادلتين للتقريب 1- int وهي تقوم بالتقريب لأقل رقم صحيح بدون كسور نهائيا =int(cell) 2- round ولها أكثر من حالة round(cell;0) وهي تقوم بالتقريب لأقرب رقم صحيح يعني "2.3 = 2 " ,, "2.5 = 3" وهكذا round(cell;1) وهي تقوم بالتقريب لقيمة عشرية واحدة round(cell;2) وهي تقوم بالتقريب لقيمتين عشري round(cell;3) وهي تقوم بالتقريب لثلاثة قيم عشرية وهكذا

لا يسعنى الا ان اقول : "ما اجمل ان تكون حيا بعد مماتك ......"

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

تفضل اخي الكريم هذا مثال بسيط db1.zip

تحية طيبة استاذنا الغالي ابو خليل

بارك الله فيك أخي الكريم أحمد حليم ومشكور على مرورك العطر ودعائك الطيب .. ولك بمثله إن شاء الله

الأخ الكريمmahmoudslah السلام عليكم جرب المرفق التالى لعله بفى بالغرض abo_abary_فاتورةصيانة.rar

اخي العزيز في ريبورت نص3 ( رقم الطالب)خللي مصدره هكذ =[forms]![تقرير]![id] وخلي مصدر نص1 (اسم الطالب)=[forms]![تقرير]![sname] مصدر قصدي control source مع تحياتي شفان ريكاني

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

ادخل لمحرر الأكواد عن طريق Alt + F11 ، ثم عدل السطر التالي الذي يحتوي الخلية الهدف WAVFile = ThisWorkbook.Path & "\" & Range("c2") & ".wav"

جارى المحاولة والاطلاع والتجربة على مثالك وفقنا الله واياك لما يحبه ويرضى

تفضل يا أخي كل ما عليك هو أن تختار التصنيف وسيتم عمل رسم بياني تلقائي الرسم_البياني.rar

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

استغمل هذه المعادلة =VLOOKUP($T5,{0,"متعثر";0.2,"متأخر";0.5,"منتظم";1,"انتهى"},2)

=IF(Q5=100%;"منتهى";IF(T5>=50%;"متعثر";IF(T5>=20%;"متأخر";"منتظم")))

اضافة 1 هنا بسبب اختلاف المصفوفات عن النطاقات من حيث انها تبدأ بصفر جرب شيل ال1 وهديك out of range طبعا طالما هنخش ع المصفوفات وشغلها ونبعد عن النطاقات دي وطبعا بعيد عن زود واحد نقص واحد الحل الامثل كما ذكرت Private Sub TextBox1_Change() Dim myArray, lr, X, targt, targtN Dim DATA As Worksheet '____________________________________________ Set DATA = Worksheets("Sheet2") '____________________________________________ lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row ListBox1.Clear targt = TextBox1.Text targtN = ComboBox1.ListIndex + 1 myArray = DATA.Range("A2:J" & lr) '____________________________________________ ReDim y(1 To UBound(myArray, 1), 1 To UBound(myArray, 2)) For X = LBound(myArray) To UBound(myArray) If targt = "" Then Exit Sub If myArray(X, targtN) Like targt & "*" Then rw = rw + 1 For yy = 1 To 10 y(rw, yy) = myArray(X, yy) Next yy End If Next X If rw > 0 Then ListBox1.AddItem ListBox1.List = y() End If End Sub منتظر التعديل التالي ولا اقولك لا مش هعدل طالما النتائج سليمة

أخي الحبيب ياسر العربي .. يبدو أن الأخوة لم يجربوا الملف بشكل جيد أو لربما أكون مخطيء .. راجع هذا السطر ففيه خطأ يتسبب في عدم عمل الكود بشكل صحيح targtN = Application.WorksheetFunction.Match(ComboBox1.Text, SERCH.Range("A3:J3"), 0) + 1 'دالة لايجاد رقم عمود البحث لما الرقم 1 .لأن الرقم 1 سيزيد من رقم العمود بمقدار واحد ويجلب العمود التالي له ؟! أمر آخر وهو الأهم أنك لم تستخدم هذا المتغير في عمود البحث ..لاحظ السطر التالي If myArray(X, 1) Like targt & "*" Then لاحظ استخدام الرقم 1 بدلاً من المتغير targtN ، وهذا سيجعل البحث محصوراً في العمود الأول فقط .. تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================