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

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

بسم الله الرحمن الرحيم تحت شعار كنت قد رفعته سابقا "أتمنى وجود جيل من المبرمجين العرب قادر على الابتكار والمنافسة" أبدأ معكم إخوتي وأحبابي نظرا لما وجدته في الإخوة والأساتذة المهتمين (مثلي) ببرمجة وتصميم المواقع وبرمجة الأكسس والفيجوال بيسك من الاهتمام بالأداة التي تقوم بتحويل قواعد البيانات أكسس إلى ملف sql يمكن استيراده من داخل phpmyadmin ويتم التعامل معه على أنه قاعدة بيانات mysql ونظرا لما لاحظته من الرغبة في عمل البرنامج كمحول لقواعد بيانات mysql المتمثلة في ملف sql وتحويله إلى قاعدة بيانات أكسس توكلت على الله واستعنت به على قضاء حاجتي وحوائج إخواني وأخواتي واليوم أعرض لكم برنامج محول الماس لقواعد بيانات أكسس و ماي إس كيو إل (الإصدار الأول) حيث يحول البرنامج قواعد بيانات أكسس إلى mysql بمجرد الضغط على الزر واختيار قاعدة البيانات المطلوب تحويلها ويقوم أيضا بتحويل ملف sql إلى قاعدة بيانات أكسس وبها الجداول والسجلات الموجودة في ملف sql وبانتظار ملاحظاتكم واقتراحاتكم لتطوير هذه الأداة حجمها 208 كيلو بايت التي تقوم بعمل برنامج DBConvert for Access & MySQL والذي ثمنه 79 دولار وحجمه 17.5 ميجا بايت تقريبا وهذه صفحته وفقنا الله وإياكم إلى كل ما يحبه ويرضاه أخوكم أبو عبد الله محمد صالح mas-access&mysql-converter.rar

تنبية استخدام الدالة INFO لن يجدي اذا تم تغيير المسار الافتراضي لحفظ الملفات Default File Location مثلا : اسم المستخدم AbuTurab فالمسار الافتراضي هو C:\Users\AbuTurab\Documents اما في حالة تغييره الى مثلا: C:\work\Excel فلن ينجح اعتقد الخيار الاسلم هو عبر ال VBA

حل آخر ... اذهب للتبويب Formulas ثم Name Manager ثم اضغط New واكتب في حقل الـ Name اكتب الاسم User وفي حقل الـ Refers To اكتب المعادلة التالية: =GET.WORKSPACE(26) ثم أوك اذهب لأي خلية واكتب بها =User

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

UserNameFunction.rar

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

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

السلام عليكم ورحمة الله وبركاته لا ننكر فضل الله علينا في كل أمور حياتنا الحمد لله علي كل حال نبدأ بالصلاة والسلام علي أشرف خلق الله سيدنا محمد صلى الله عليه وسلم أساتذتي وإخواني أقدم لكم اليوم عمل من أعمال أستاذنا ومعلمنا ضاحي الغريب ده رابط موضوع أستاذنا / ضاحي الغريب http://www.officena.net/ib/index.php?showtopic=48783&p=296067 بس أنا عملت فيه شويت تعديلات وفنيات لأحد الزملاء حسب عمله ورغبته وقررت أن أرفعه علي المنتدى حتى تعم الفائدة لأن الهدف الرئيسي هو التعلم والإفادة ونوجه الشكر لمعلمنا القدير / عبد الله باقشير " اللي لازم أستعمل فنياته وأعماله داخل ملفي " وأوجه الشكر لأستاذي / رجب جاويش وحبيبي وأستاذي / حمادة عمر وملك المعادلات / جمال عبد السميع وأخي / إبراهيم أبو ليلة وأعضاء كثيرون لا نستطيع أن ننكر مجهودهم وفضلهم علي المنتدي كلمة المرور 123 سندات V.2.2.rar

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

تهنئة للأستاذ ramhan بالاحتراف الف مبروك وشكرا للاستاذ رضوان وللادارة الموقرة

اوريد عمل كود اللفورم لي جلب البيانات الفاتورة واشرح في المرفيق نموزج فاتورة+بحث3.zip

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

أخي الفاضل إليك الملف المرفق قم بالضغط على Alt + F8 ثم اختر الماكرو المسمى InsertTotal لاحظ أن المجموع العام غير موجود في نهاية الصفحة .. نفذ الكود ولاحظ المجموع العام وراجع النتيجة يرجى عند زيادة صفحات العمل ألا تكون الخلايا الخاصة بالمجموع الفرعي أو المجموع العام مدمجة .. قمت بإلغاء الدمج على الصفحات الموجودة في خلايا المجموع والمجموع العام فقط Book.rar

هذه محاولة للحصول على اسم مستخدم الويندوز =MID(INFO("DIRECTORY"),10,FIND("\",INFO("DIRECTORY"),10)-10) استاذ ياسر شكرا على مشاركتنا لل =GET.WORKSPACE .. اذا لم اكن مخطئا فهى تعطي اسم مستخدم الاكسل و ليس الويندوز

جرب التعديل التالي حيث رقم 7 يشير إلى إسم المستخدم حسب الحروف mokhtar وإن كان الإسم أكبر أو أقل قم بالتعديل على الرقم =MID(RIGHT(INFO("DIRECTORY");LEN(INFO("DIRECTORY"))-9);1;7)

اخى الفاضل تفضل الملف المرفق لعل به طلبك تحياتي التحكم في ادخال بيانات في خلية.rar

هنا مربط الفرس زى ما بيقولوا و ده اللى عايزين نوصلوا واللى بيأكد كلامى أن اليوزرفورم أصلا مربع أو مستطيل وتم التحايل باللون الأبيض الشفاف ولو لاحظت الكود التالى مديول 1 Public Function Rabie_Sk(uf As Object, colors As Variant, Optional Sk As Variant = True) hWnd = FWw(vbNullString, uf.Caption) SWLg hWnd, -16, &H80080080: SWLg hWnd, -20, &H80000: DrMBar hWnd Select Case Sk Case True SLWA hWnd, colors, &H2, &H1 Case False SLWA hWnd, colors, 50, &H2 End Select End Function هذه الدالة فيها حالتين عندما يكون اللون شفاف لا يتم الاستجابة للنقر أما اذا كان غير ذلك تتم الاستجابة للنقر وتنفيذ الاختفاء تحياتى لك

أخى الفاضل تفضل الملف المرفق .. تم اضافة الدالة الرائعة للأستاذ القدير أبو القبطان SumColorValue .... وتم اضافة شيت به كافة أرقام الألوان ... كل ما عليك ان تنسق الخلايا بأى لون تختاره من شيت الألوان ColorNo .... ثم تذهب الى الخلية التى تريد الجمع فيها وتكتب =SumColorValue(B4:B14,22) حيث أن من B4:B14 هو النطاق المراد جمعه و 22 هو رقم اللون للخلايا >> هنا سيجمع الخلايا الملونة فقط تحياتي SumColorValue.rar

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

السلام عليكم ورحمة الله وبركاته استاذى / ابراهيم ابو ليلة ، جزاكم الله خيرا .... ونفعنا الله من علمكم استاذى / محمد الريفى لقد ابدعتم ..... حتى فاح عطر الابداع حل رائع وزياده بارك الله فيكم جميعا ، ونفعنا الله بكم اينما كنا ، واينما كنتم .

تحياتى ليك اشكرك على الأهتمام

اخى تفضل ما تريده تقبل تحياتى Book2.rar

ان شاء الله سيكون لي نصيب من الخير سأرفق كود رائع لعمل اللجان والكود خاص بالعلامه عبد الله باقشير كشف مناداة بالكود.rar

جرب Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 12 Then Exit Sub If Target.Row <> 3 Then Exit Sub Application.ScreenUpdating = False m = [L3] n = Range("A11").Row o = m + n For i = n To 30 If Cells(i, 1).Row <= o - 1 Then Cells(i, 1).EntireRow.Hidden = False Else Cells(i, 1).EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub

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

اخى الكريم انا جربت الملف حاول سجل ارقام وشوف النتيجة هتلاقى هى المطلوبه

جميل ان نحاول هذه محاولة اخرى تفضل عذرا حذفت الملف و اعدت رفعه بعد اكتشاف خطأ .. 111.zip

السلام عليكم ورحمة الله أخي الكريم ايهاب، تم تمديد الصفوف إلى 200 صف بمعادلاته (تحسبا لأن تكون البيانات المستدعاة تحتاج إلى ما يقارب 200 صف)... والذي فهمته من مطلوبك هو أنك تريد عرض عدد الصفوف في الجدول بما يوافق عدد البيانات الموجودة لكل اختيار لعنصر القائمة في الخلية D4، وفي هذه الحالة المعادلات لا تمكّن من عمل ذلك (إخفاء الصفوف) لذا تم الاستعانة بكود، وقد تم إنشاء كود يقوم بإخفاء كل الصفوف الفارغة في الصفوف من 7 إلى 206 في شيت "قصاقيص" حسب عدد البيانات الفعلية (وهذا العدد مبين في الخلية F4)... أرجو أن يكون هذا الحل أو أقرب إليه... أخوك بن علية الملف المرفق : Book1_5.rar

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي Book2.rar

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

اكواد مفيده خاصه بعمل واجهه ملف مثل الكنترول المدرسي إسم المستخدم :admin كلمة المرور:222 وهذه البيانات يمكنك تغيرها من صفحة واجهة الدخول اللهم ارزق هؤلاء الاساتذه العظام الجموعي والصفر وياسر خليل بعفوك ورحمتك واجزيهم خيرا واجهه كنترول مفيد للاستاذ الحسامي2.zip

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

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

دائم فنان يا جموعى يا كبير حلول فنية رائعه تقبل تحياتى

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

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

الاخت الكريمه كويس انك بديتى تسالى علشان تتعلمى وان شاء الله قريب اشوفك كدا زى الاخت الكريمة أم عبدالله أسال الله تعالى ان تكون بخير السطر التالى دا بيعمل على فك الحمايه للورقه ActiveSheet.Unprotect Password:="111" والسطر ده بيعمل على ارجاع الحمايه مره اخرى للورقه بعد الانتهاء من تنفيذ الكود ActiveSheet.Protect Password:="111", DrawingObjects:=True, Contents:=True, Scenarios:=True علشان تغيير لازم تغير كل الاسطر دى فى كل الاكواد ومتنسيش الكود اللى فى حدث فتح الورقه ايضا يتتغير تقبلى تحياتى

السلام عليكم في المرفق مثال للسؤال وليس الحل أرجو من السائل أن يوضح هل هذا هو السؤال قمة وقاع.rar

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

اضغط الملف على winrar

هل هناك قانون رياضي يحكم الأمر ؟؟ لأني لست خبيراً في القوانين الرياضية

وعليكم السلام ورحمة الله اطلع على هذا المرفق لعله يكون المطلوب وهو من أعمال أستاذنا الفاضل Maxxin BackupComp.rar

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

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي الشيكات المستحقة.rar

اخى الفاضل بنفس الطريقة بالضبط يتم اخفاء او اظهار الصف مرة أخرى، لكن لا اعلم هناك خلل في الملف الذي قمت بارفاقه بمجرد تشغيله عندي يغلق الاكسل بأكمله فقمت بتصميم ملف آخر لتوضيح الفكرة لك تحياتي Hide&Unhide.rar

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

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

مثال تطبيقي Codebaar.rar

جرب هذه =IF(LEN(TRIM(A2));IF(ISNUMBER(SEARCH("-";A2));SUBSTITUTE(A2;"-";"")&IF(SEARCH("-";A2)-1=6;660;550);A2&IF(LEN(A2)=6;600;500));"") تحياتي