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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة شرح لهذه الدالة Find_Range مجمعه من _ أ / طارق محمود تم ارفاق الموضوعات من الفاضل _ أ / أبو تامر_عمر الحسينى دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم دالة ( VLOOKAnyCol ) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر دالة VLOOK2ALL لإستخراج كل حالات البحث دالة VLOOKON بلا حدود تبحث فى عدة جداول دالة تجزئة الاسماء و الارقام دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب ادوات ذكية استرجاع اعدادات الاكسل الاصلية التخلص من علامات خطأ المعادلات نسخ الاكواد من ملف الى ملف أداة تحويل صيغ المعادلات الى اكواد مصباح علاء الدين للبحث اقوى دالة بحث الحلول الذكية و شريط الادوات الذكية التحكم بأشرطة الادوات والقوائم المنبثقة تلوين السطور الفردية أو الزوجية إكسيل كاميرا برامج واكواد كيفية الحصول على سريال نمبر الهارد ديسك الباحث الشامل اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) إنشاء قوائم منسدلة مرتبطة متعددة المستويات تصدير مدى محدد الى الوورد حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية إستخراج النتائج بشرطين صيغة ظريفة سلسلة كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة منع حفظ الملف بأسم آخر زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 كشـف تـوزيـع فئـات النقـديـة كشـف صـرف النقـديـة بالفئـات المتـاحـة إستيراد وتصدير جدول إكسيل من وإلى الأكسيس صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة كود الدوائر الحمراء والاحرف الخاصة لدرجات الطلاب نموذج طباعة الشهادات المدرسية مع دوائر الارقام برنامج طباعة الشهادات للمرحلة الابتدائية_1 برنامج طباعة الشهادات للمرحلة الابتدائية_2 برنامج طباعة نماذج الشهادات للمرحلة الاعدادية قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة برنامج حفظ بيانات الشيكات والبحت عنها اكواد و اوامر ( VBA ) مفيدة القائمة المنسدلة المرتبطة بقوائم متعددة المدى او النطاق ( ثابت / ديناميكى ) الارقام العشوائية بدون تكرار البوم للصور والمعروضات, بدون حدود و لا تنسونا من صالح الدعاء

اعذروني عن التأخر حتى الآن لم اجد الوقت الكافي للبحث والتجربة بالنسبة للسيرفر فسألت متخصصص بقواعد بيانات sql وقال ان التاريخ الافتراضي متوفر (getdate) ويمكن ان تستدعيه من اي جهاز فرعي ولكنني ابحث عن حل ضمن قواعد بيانات أكسس وكلام وتجربة ابو جودي حقيقية لأنك لو عملت جدول من حقل واحد وجعلت قيمته الافتراضية NOW() فان قيمته الحقيقية = Null لانه حقيقة خالي من البيانات وصلت الى اكثر من حل بشرط امكانية تطبيقه : 1- ان يكون البرنامج على جهاز المدير يعمل بشكل دائم اثناء وقت العمل ، وهنا يمكن توظيف نموذج يقوم بادخال التاريخ والوقت الحالي في الحقل المذكور كل ثانية ( وهذه الطريقة موثوقة وآمنة ) 2- الاعتماد على المدخلات خلال اليوم الحالي في الفترة المسموح بها بحيث نوجد حقل ياخذ الوقت الحالي يمكن الرجوع اليه داخل الكود ( علما ان هذه الخطوة لا تخلوا من ثغرات ) 3 - استدعاء ساعة الجهاز البعيد ( السيرفر ) بمعلومية شبكة اللان او الآي بي وهذا باعتقادي حل متقن وآمن . في الوقت الحالي لا املك اجهزة لربطها واجراء التجربة ، وان تسنى لي سأحاول ان شاء الله

بدأ ب بسم الله 1- الدالة For loop: الغرض من ذلك هو تكرار مجموعة معينة من البيانات لعدد معين من المرات لو طُلب منك أن تكتب الأرقام من 1 إلى 5 في العمود الأول في الإكسل لكتبت التالي: Cells(1, 1).Value = 1 Cells(2, 1).Value = 2 Cells(3, 1).Value = 3 Cells(4, 1).Value = 4 Cells(5, 1).Value = 5 لكن لو طُلب منك أن تكتب الأرقام من 1 إلى 100 فستحتاج إلى 100 سطر لكتابة الكود!! وهذا يعتبر أمر شاق للمبرمج وهنا أتت هذه الدالة لتختصر الوقت والجهد، وسيكون الكود كالتالي: Dim i As Integer For i = 1 To 100 Cells(i, 1).Value = i Next i جميل جداً.. طيب لو أردنا أن نطبق الكود ليطبع الأرقام على عمودين متجاورين فماذا نفعل؟!

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

تفضل أبوحنين تنسيق شرطى1.rar

تذكير بالسؤال: كيف أكرر الكود السابق على ثلاث شيتات؟ وللإجابة على ذلك نجيب على السؤال التالي: كيف يتم تعريف اسم الشيت (sheet) باستخدام الكود؟ الإجابة: worksheets(1) و worksheet(2) و worksheet(3) وعليه يتم عمل حلقة تكراربة من 1 إلى 3 للشيت كالتالي: Dim i As Integer Dim j As Integer Dim c As Integer For c = 1 To 3 For j = 1 To 2 For i = 1 To 100 Worksheets(c).Cells(i, j).Value = i Next i Next j Next c طبق الكود في المرفق ثم افتح sheet2 و sheet3 الحلقة التكرارية3.rar وإلى هنا انتهت حلقتنا الأولى لهذا اليوم

ببساطة نضيف حلقة تكرارية أخرى على الدرس السابق لتصبح كالتالي Dim i As Integer Dim j As Integer For j = 1 To 2 For i = 1 To 100 Cells(i, j).Value = i Next i Next j لاحظ أننا عرفنا الحلقة التكرارية j والتي تساوي 2 وهي عدد الأعمدة المطلوب تطبيق الكود عليها ، ولا تنسى بأن تغلق الحلقة التكرارية ب Next ، جرب أن تغير عدد الأعمدة في المرفق التالي. الحلقة التكرارية2.rar سؤالنا التالي: كيف أكرر الكود السابق على ثلاث شيتات؟

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

مجرد فكرة .. فورم لعمل تقرير (شهري - ربع سنوي - سنوي) مع رسم بياني كثيرا منا يحتاج لعمل تقارير (شهرية - ربع سنوية - سنوية ) للمبيعات , للايرادات , للمصروفات ......... الخ فجاءتني فكرة ( >>> تقبل الخطأ والصواب <<<) لعمل فورم يقوم بجمع بيانات المبيعات ويصنفها شهريا وربع سنوية وسنوية مع عرض الرسم البياني فاحببت ان اشاركها معكم عسي ان يستفيد بها احدا من اخواني بصرحنا العظيم التطبيق بالمرفقات Charts Form.rar

السلام عليكم إخواني الكرام .. ***************************** الشكر موصول للأخ الفاضل شوقي ربيع ، والذي له الفضل بعد الله عزوجل في إلهامي بهذا الموضوع إلى مدخلي البيانات في موقع وزارة التربية والتعليم .. بشرى !! هل عانيت من تكرار كتابة اسم المستخدم والرقم المسلسل وكلمة السر .. والموقع أحيانا لا يقبل بالبيانات وتضطر إلى إعادة الكرة من جديد .. وبعد العمل على الموقع لبعض الوقت تجد نفسك خارج الموقع مرة أخرى ... الآن أصبح بمقدورك الدخول على الموقع عن طريق الإكسيل .. بضغطة زر واحدة .. نعم بنقرة واحدة فقط تدخل الموقع ... ومش بس كدا هيقفلك صفحة الدخول (إغلاق الصفحة) ومش بس كدا هيضغطلك على (تعديل بيانات التلميذ) لتجد نفسك أمام القائمة الأولى للصف الأول ... كل ذلك بنقرة واحدة إلى العمل : أولا قم بتحميل البرنامج المرفق في الرابط أسفل الموضوع ثانيا قم بتنصيب البرنامج ... بعد الانتهاء من التنصيب قم بالدخول على محرر الأكواد بالفيجوال بيسك ومن قائمة Tools قم بإضافة المكتبات : SeleniumWrapper Type Library قم بإدراج موديول جديد ثم أضف الكود التالي : كل ما عليك عمله أن تضع بيانات مدرستك في الخلايا B1 لاسم المستخدم ، وC1 للرقم المسلسل ، و D1 لكلمة السر .. يمكنك أن تسبتدل الجزء في الكود Range("B1") مثلا لكتابة اسم المستخدم مباشرة في الكود ، ولكن لا تنسى أقواس التنصيص... بعد تنفيذ الكود سيقوم الكود بفتح الفايرفوكس نيابة عنك وإدخال بياناتك نيابة عنك والضغط على إغلاق الصفحة نيابة عنك والضغط على تعديل بيانات التلميذ نيابة عنك ... رابط البرنامج اضغط هنا للتحميل لا تنسونا من صالح دعائكم Test.rar

تفضل اخي الكريم sms.rar

الكود المطلوب Private Sub Worksheet_Activate() 'اكتب الكود هنا End Sub

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

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد,,,, مرفق لكم المطلوب ولكن هذا بشكل مؤقت و سوف اقوم بالبحث عن معادلة قوم بذلك بدون العمود المساعد الملف المرفق : تنسيق شرطى.rar

جرب الملف التالي رابط الملف من هنا

اهلا بيك استاذ محمد لايوجد مستحيل في عالم البرمجة وانت يجب ان تفكر في حلول بديلة مثلا : لماذا تريد الاجمالي فوق وتحت.. كفاية تحت فقط؟ وانا مازالت احاول ايجاد حل.. ربنا يسهل ان شاء الله

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

انسخ المعادلة على الورقات الثلاث

ماشاء الله عليك كل يوم ننهل من علمك المزيد وفقك الله لما يحب ويرضى

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

تفضل اخي الكريم هذا مثال بسيط لاخد التاريخ من جهاز كومبيوتر على الشبكة جرب ووافينا بالنتيجة get time.rar

السلام عليكم ورحمة الله كود لترقيم 5 اعمدة متتالية من 1 الى 500 كل عمود مائة رقم Sub Serials() For R = 1 To 100 For S = 6 To 10 Cells(R, S) = R + ((S - 6) * 100) Next Next End Sub

يمكن تطبيق الكود التالي للكتابة في ثلاثة أعمدة طبعاً هناك حلول أفضل ولكن كل حسب علمه Dim i As Integer For i = 1 To 100 Cells(i, 1).Value = i Next i For i = 1 To 100 Cells(i, 2).Value = i Next i For i = 1 To 100 Cells(i, 3).Value = i Next i

جزيت خيرا تمام مشكور

ربما يكون هذا المطلوب eomonth.rar

جرب هذا الموقعhttps://smallpdf.com/ قد يفيد

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

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

السلام عليكم اخى ياسر تم المطلوب تتبعت بعض اعمالك فوجدت الحل Selection.End(xlDown).Sele جزاك الله خير

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

تفضل أخي الكريم تم عمل مثال بسيط بمجرد أن تضغط زر الماكرو في المثال سوف يكتب من 1 - 100 في الخلية A1 إلى A100 LOOP.rar

اخي الكريم المشكلة في نطاق بحث الدالة Match استبدل المعادلة السابقة بهذه المعادلة =IF(B2="","",IF(ISNUMBER(MATCH($B2,'تسهيل مهمة'!$B$2:$B$171,0)),"موجود","غير موجود"))

شكراً لك يا أبو حنف سأقوم بإعداد شرح واف عن كيفية عمل الرسومات البيانية في الملف.. تابعونا خلال يومين تحياتي للجميع

السلام عليكم عندى قاعدة بيانات بها 10 تقارير باسماء مختلفة اريد كود اضعه على زر لحفظ جميع التقارير بصيغة PDF مرة واحدة وبدون فتح الملف بعد الحفظ شكرا لكم

جزاك الله خيرا أستاذ عبد الفتاح

اشكرك اخي ياسر جزاك الله خير وانار طريقك جاري التجربة

شكرا أستاذ عبد الله قدور

الأخ الكريمjojo2009 السلام عليكم أولا نرجو منك اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية ثانيا قليل من الصبر وستجد رد ان شاء الله على اسئلتك من الأخوة فى هذا المنتدى العريق ان شاء الله جرب الكود التالى لعله يفى بالغرض Sub abo_abary1() For i = 4 To 10 Select Case Range("b" & i) Case Is >= 400001 Range("d" & i) = "30%" Case Is >= 300000 Range("d" & i) = "25%" Case Is >= 5000 Range("d" & i) = "0%" End Select Next End Sub Sub abo_abary2() For i = 15 To 19 Range("e" & i) = Range("b" & i) * Range("c" & i) Next End Sub abo_abary_مساعدتى عمل كود VBN.zip

جزاكم الله عن امة محمد خيرا ان شاء الله وبارك لكم فى علمكم واساله ان يجعل كل اعمالكم خالصة لوجهه الكريم

الله يجازيك

ملف رائع اخي جلال و لكن هل يمكن شرح كيفية اخفاء الاكواد و الفورم داخل محرر الاكواد

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

وعليكم السلام جرب استبدال السطر الأخير Range("A4").Select بهذا السطر Application.GoTo Range("A4"),True

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

عزيزي لحل اشكالية التنسيق من الوورد بالماوس الايمن على حقل الدمج واختر الخيار toggle field codes سيظهر لك جملة بين قوسين . بعد اسم الحقل وقبل القوس الاخير اكتب الفورمات المناسبة لنوع الحقل سواء رقم او تاريخ مثلا للرقم \#0.00 وسيظهر الحقل كامل بهذا الشكل وعلى اساس ان اسم الحقل avg {MERGEFIELD avg \#0.00} بالتوفيق

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

لا تفاعل ولا اهتمام وكأن الأمر غير ذو أهمية!!! بارك الله فيكم إخواني عموما لن أتوقف مهما كانت الظروف بإذن الله اليوم تمت إضافة 6 أكواد جديدة في المكتبة برجاء تجربة الأكواد وموافاتي بالنتائج في حالة وجود أخطاء في التنفيذ حتى يتم التصحيح والتنقيح ويخرج العمل بشكل لائق إليكم الإصدار الأخير .. (ولا ننسى أن الموضوع متجدد ..يعني مترجعش لورا لملفات تمت إضافتها من قبل حمل آخر نسخة ..لأن فيها تجميعة لكل المشاركات اللي فاتت) Codes Library v1.3.rar

السلام عليكم اسعد الله اوقاتكم موضوع :تصدير بيانات الي برنامج الاكسيس http://www.officena.net/ib/index.php?showtopic=44222&page=2#entry264825 كود Sub cool() ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\export.accdb ;Persist Security Info=True" Set oCn = New ADODB.Connection oCn.ConnectionString = ConnString oCn.Open sSQL = "delete from t ;" oCn.Execute sSQL sSQL = " INSERT INTO t SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "].[Sheet1$a:b] ;" oCn.Execute sSQL End Sub تحياتي Codes Library.rar

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