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

السلام عليكم ورحمة الله وبركاته اعضاء ومشرفي وزوار المنتدي الكرام اليوم اقدم لكم شئ بسيط ممكن الكثير منا يحتاج اليه عمل قائمة بالتقارير الموجده لديك وفتحها من خلال زرامر واحد الفكرة بسيطه جدا 1- عمل جدول ووضع فيه جمع اسماء التقارير التي تريد ها حسب الحاجه 2 - داخل اي نموذج تريده انت عمل قائمة تحرير وسرد واجعل طبعا المصدر جدول التقارير اجعل اسم المربع مثلا text2 3 - انشأ زر امر وفي حدث عند النقر ضع الكود التالي On Error Resume Next If IsNull(text2) Then MsgBox "ÇßÊÈ ÇÓã ÇáÊÞÑíÑ" DoCmd.CancelEvent Else stDocName = text2 DoCmd.OpenReport stDocName, acViewReport, , stLinkCriteria End If ولكم مثال علي ذالك مرفق tast.rar

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

الأستاذ الفاضل أبوحنين سأحاول تحقيق طلبك وتعديل الكود كما تريد الكابتن أبوالقبطان ,,,,,,, كابتن منتدانا العظيم أما فأعمالى فهى جنب أعمالكم لا تذكر ......شرفنى مروركم الكريم

مع الشكر الجزيل للأخ جلال محمد على مشاركته القيمة جدا.. ولكن ما رأيك أخي عبدالهادي لو قمنا بـ "هندسة" كاملة لورقتك؟ بدلاً من الدوائر، سنستخدم خلايا حمراء وحروفاً بيضاء غليظة. وبدلاً من أكواد الفي بي سنستخدم التنسيق الشرطي مع بعض المعادلات البسيطة. أعدت تصميم ورقتك بطريقة تختلف عن القديمة. لديك جدولان، الأول به المواد والدرجات الكُبرى والصُغرى، والثاني جدول كبير يحتوي على أسماء الطلاب (يتسع لخمسين طالباً وأكثر)، ويحتوي على درجات المواد والمجاميع. وعن طريق التنسيق الشرطي المدمج مع دالة VLookup ، يتم فحص الخلايا، وأي منها نقص عن القيمة الصُغرى يتم تحويل لون الخلية إلى أحمر. وقمت بتغيير نوع الملف من xls إلى xlsx ، حتى نتلافى مشاكل النسخ. الغرض ليس تغيير طريقتك في العمل، فربما كانت أفضل من طريقتي مائة مرة، لكن الهدف هو البحث دوماً عن بدائل وطُرق، وتوسيع الخبرات في العمل على إكسيل. وفقكم الله لكل خير... عبدالله،،، Scores v01.zip

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

اذا كنت طبقت المعادله فى ملف اخر فانتبه انها معادلة صفيف لابد من الضغط على مفاتيح ctrl+shift+enter معا وهذ الملف مره اخرى ولايوجد به اى مشكله 11.rar

في حدث زر ترحيل Cells(1, 1) = Me.TextBox1.Value

أخى الفاضل تفضل الملف المرفق، يتم ترحيل مدخلات مربع النص بالترتيب ابتداءا من A2 اذا كنت تريد ادخال البيانات في الخلية A1 فقط ... فقم بحذف +1 من السطر ده واحذف كافة بيانات العمود A سيتم الادخال في الخلية A1 فقط lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 تحياتى ترحيل الى خلية.rar

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

أخى الفاضل تفضل الملف المرفق لربما به طلبك .. اخر قيمة واصغر قيمة مقابلة للبحث تحياتى low&last.rar

من وجهة نظرى المتواضعه وطبعا لا اتعالى على اساتذتى الكرام يتم ربط جدول الغياب بجدول الطلاب من خلال الحقل الخاص بتعريف الطلب ID فطبعا لكل طالب id خاص به لا يتكرر مع طالب آخر

شكرا لك اخي الفاضل ابو الاء

السلام عليكم اخواني في المنتدى كما هو موضح من العنوان اليكم هذه الائحة المنسدلة العجيبة LIST FROM 3 COLUMNS.rar

أخى الفاضل الجموعي استخدم الترقيم افضل اما رقم 1 او 2 .... أو من الممكن ان تستخدم اسماء الشيت نفسها Set GRHS = ThisWorkbook.Sheets("GRH") تحياتي

اخى الفاضل أبو البراء رائع وممتع .. بجد تحفة ومفيدة جدا جدا وخاصة انها تتجاهل الفراغات والتكرار .. تسلم ايدك استاذي الفاضل بعد إذنك استاذي الفاضل أ.ياسر، مرفق ملف تم به تفادي ملاحظة أ.سليم وبهذا تعمل القائمة على أخر صف في اطول عمود لتحضر كافة البيانات وليس على العمود A تحديدا خالص تمنياتي لك استاذي الفاضل بمزيد من التقدم والرقي .. جزاك الله كل خير تحياتي Unique Validation List From Multi Columns.rar

هذا نموذج آخر لبيت شعر تجده في المرفق نموذج بيت شعر.rar

أخى الفاضل الجموعي جرب الملف المرفق لربما به طلبك ... اما بخصوص BASE DE DONNEES و RESEAUX فتأكد تماما انى مش فاهم اى حاجة .. كلمنا عربي تحياتي فورم بحث (تم الحفظ تلقائياً).rar

أخى الفاضل السلام عليكم ورحمة ورحمة الله وبركاته انشئ أى عدد تحبه من الماكرو وليكن Macro1 و Macro2 و Macro3 وهكذا وفي النهاية اجعل هناك Macro سميه وليكن Executeall اكتب به Call Macro1 Call Macro2 Call Macro3 وخصص الأيقونة بتاعتك او الزر بتاعك لهذا الماكرو فقط .. سيتم بمجرد الضغط عليه تنفيذ كل الماكرو واحدا بعد الآخر تحياتي

أخي الحبيب سليم مش معقولة تهدينا هدية ومنردش الهدية إليك كما وعدتك ملف يقوم بعمل قائمة منسدلة لأكثر من 3 أعمدة (زي ما إنت عايز .. براحتك مش 3 بس) أنا عملت القائمة المنسدلة في الخلية H3 فقط قم بالنقر على زر الأمر .. لتحصل على قائمة منقحة مصححة مفلطحة .. اختر منها سليم حاصبيا .. تقبل تحياتي Unique Validation List From Multi Columns.rar

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

أخي الحبيب / حمادة عمر سامحني ، بل سامحوني جميعا علي الغياب بسبب ضغط العمل أنا حتي عندما أدخل للمنتدي ، أبحث عن المواضيع التي ليس بها ردود ويكون الحل سريع

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

لا أستاذى لم أنسه .......... وانما ظنت أن هناك لعبه أخرى مخفيه

لاثراء الموضوع موضوع جميل لمعلمنا الحبيب أ/ عبدالله باقشير (جزاه عنا جمعيا كل الخير ) يتناول فيه الالوان مع فورم جميل للانتقال الي اللون (( ملف لحوالي 560 لون مع المعلومات (Hex Code , RGB , MSAccess)) وموضوع اخر رائع لاخينا الحبيب / عبدالله باقشير وعن طريقه يمكن تكوين اللون الذي تريده واستخراج كود اللون فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به مع الشكر والتحية لاخواننا محمد القمحي وياسر خليل ومحمود الشريف وم ياسر البنا بارك الله في جميع من يساهم حتي لو بالقليل تقبلوا تحياتي جمعيا

السلام عليكم تم معالجة الامر دون الحاجة الى كود تقرير مقارنة مبيعات العملاء خلال فترتي salim.rar

السلام عليكم، أولاً، لست في حاجة إلى زر وكود. أنت بحاجة إلى ضبط المعادلات "الدوال" حتى تحسب ما تريده أنت، وليس ما تفعله الدالة بشكل تلقائي. ثانيا، الأفضل في حالتك أن تُعيد تسمية ورقات العمل إلى شيء ذي مغزى. إستخدام السنوات 2013، 2014 ، 2015 بدلاً من Old Year and New Year . ثالثا، من المُستحسن في التقرير أن تضيف مقادير الإرتفاع والإنخفاض مستخدماً النسب المئوية، فهي أفضل للفهم وأسرع في التقدير من الفرق الحسابي، كما أنها تتمثل بشكل أفضل على الرسوم البيانية وجداول الإرتكاز. رابعا، يلزمك إعادة هندسة دوال VLOOKUP التي تستخرج بها النتئاج من ورقات العمل وذلك بتأطيرها داخل دالة IFERROR ، فإما أن يكون هناك قيمة، وإما أن تكون القيمة التلقائية صفرا. خامسا، المرفق فيه كل المذكور أعلاه، مع بعض "الهندسة" الشاملة للموديل، تستطيع مع بعض التعديلات البسيطة أن تتوسع في إستخدامها لتشمل بيانات أكثر. وفقكم الله لكل خير، عبدالله،،، Fin Report v02.zip

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

وعليكم السلام كحل سريع استخدم الدالة SUM مثلا بدل: K10-J10-I10-G10 بــ Sum(K10)-Sum(J10)-Sum(I10)-Sum(G10)

السلام عليكم الاستاذ المهندس / طارق محمود بارك الله فيك دائما مبدع واستاذ وياريت متطولش غيابك علينا

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

السلام عليكم تفضل المرفق 444_2.rar

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

استاذ : مختار ، اضم صوتي لصوت الاستاذ : ابو محمد عباس اعمالك ممتازه وتستحق التقييم

أخى الكريم بارك الله فيكم وجزاكم الله خيرا واثراء للموضوع يمكن من خلال كود اظهار جميع الألوان بأرقامها والكود يربط بزر داخل اى صفحة بملف العمل ويقوم الكود بالتوضيح للون + الرقم الكود كالتالى Sub MZM_colors56() '57 colors, 0 to 56 Dim i As Long Dim str0 As String, str As String Cells(1, 1) = "Interior" Cells(1, 2) = "Font" Cells(1, 3) = "HTML" Cells(1, 4) = "RED" Cells(1, 5) = "GREEN" Cells(1, 6) = "BLUE" Cells(1, 7) = "COLOR" For i = 0 To 56 Cells(i + 2, 1).Interior.ColorIndex = i Cells(i + 2, 2).Font.ColorIndex = i Cells(i + 2, 2).Value = "[Color " & i & "]" str0 = Right("000000" & Hex(Cells(i + 2, 1).Interior.Color), 6) 'Excel shows nibbles in reverse order so make it as RGB str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2) 'generating 2 columns in the HTML table Cells(i + 2, 3) = "#" & str Cells(i + 2, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)" Cells(i + 2, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)" Cells(i + 2, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)" Cells(i + 2, 7) = "[Color " & i & "]" Next i End Sub وتقبل منى وافر الاحترام والتقدير

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

من استعلامك تأخذ معلومتين الأولى آخر عملية لكل عميل الثانية مجموع عمليات العميل

اخي الكريم هل هذا هو المطلوب شاهد المرفق دوائر.rar

اختر جميع خلاياء الشيت عن طريق Ctrl + A اضغط Ctrl + 1 اختر Protection الغي الخيار Locked , و الخيار Hidden و اختر OK بعدها اختر الخلية التي فيها المعادلة و اضغط Ctrl + 1 اختر Protection فعل الخيار Locked , و الخيار Hidden و اختر OK بعدها من الائمة Preview اختر Protect Sheet و اخل كلمة سر جديدة

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

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

ولك الشكر اخي العزيز على الدعاء تحياتي,,,

ممتاااااااز 100/100 هذا ما كنت أتكلم عنه . لا أملك لك إلا دعوة مخلصة في ظهر الغيب يعطيك العافية أخي الكريم منتصر .. وبارك الله فيك وفي علمك ونفع الله بك البلاد والعباد .