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

السلام عليكم ورحمة الله وبركاتة هذا البرنامج كان احد الاعضاء قد وجده في احد المنتديات الاجنبية وهو لقاعدة بيانات وتم التعديل والاضافة والتنقيح وكانت النتيجة الاتي :: عناوين السجلات في اليوزر فورم تعمل اتوموتيكيا عند تغيرها في الشيت اضافة صورة لكل سجل و يتم اضافة الصور الي الفلدر All_Pic بالأسم الاول للسجل اضافة سجل جديد تعديل السجل الحالي حذف السجل الحالي البحث في الاعمدة التي تم تعليم التشك بوكس لها في هيدر العناوين وتظهر هذه العناوين فقط في كومبو بوكس البحث يشمل الملف علي ثلاث صفحات الصفحة الاولي لقاعدة البيانات الصفحة الثانية لقاعدة البيانات اخري مصغرة لتوضيح الية عناوين اليوزر فورم الصفحة الثالثة تقرير بالسجلات التي تم اختيارها اصل الملف قبل التعديل New Userform Example_1.rar الملف بعد التعديل قاعدة بيانات بالصور_2.rar

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

sumdebit: DSum("[debit]","entry","[code] like '" & [code] & "*'")

السلام عليكم ورحمة الله وبركاتة فكرة البرنامج كانت مقدمة من ااحد الاخوة الاعضاء وقد اعجبتني فكرة الموضوع فكانت النتيجة برنامج يعمل علي الاتي :: صفحة تكويد الاصناف مع الرصيد الاساسي ( رصيد اول المدة ) صفحة اضافة صنف الي اي من المخازن الثلاثة صفحة صرف صنف من اي من المخازن الثلاثة صفحة لكل من المخازن الثلاثة بها ارصدة الاصناف بالمخزن المعني يمكن الفلترة عليها صفحة حركة المخزون وهي تسجل جميع الاجراءات للصفحات السابق ذكرها ولا يتم التعامل معها من قبل المستخدم اضافة وصرف الي ومن ثلاثة مخازن.rar ارجو ان ينال اعجابكم

السلام عليكم اخي الكريم محمد افتح التقرير ثم افتح الاستعلام الذي هو مصدر التقرير ثم اضف العمود vew وفي مكان الشرط اكتب 1 أو true سيظهر في التقرير كل السجلات التي تحتوي على اشارة صح أما اذا كتبت 0 أو كلمة false سيظهر في التقرير كل السجلات التي لا تحوي اشارة صح طبعا انا قمت بالتعديل على التقرير اليك المرفق معمل (1).rar

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

السلام عليكم ورحمة الله وبركاتة فكرة البرنامج كانت مقدمة من احد الاخوة الاعضاء وقد اعجبتني فكرة الموضوع فكانت النتيجة هذا البرنامج Omar_3.rar

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

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

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

الاخ احمد ديدو تم التعديل ملحوظة هامة انت اضفت رقم المسلسل 16 بدلا من رقم الكود 6 يجب مراعات تسلسل الكود او يمكن ان يكون رقم الكود اتوموتيكيا لا يتحكم فيه المستخدم Omar_2.rar

وعليكم السلام جرب أخي الدالة المعرفة التالية رابط الدالة المعرفة من هنا بعد وضع الدالة في موديول عادي .. اذهب لورقة العمل واكتب المعادلة التالية في الخلية B1 (بفرض أن التاريخ الهجري في الخلية A1) =ConvertDate(A1) تقبل تحياتي

تفضل اخى الكريم اتمني ان يكون هذا ما طلبت 11 Amr.rar

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم الى الله اقرب عيد اضحى مبارك هذا التصميم الفلاشى فى هذا الرابط اهداء منى الى كل احبابى واخوانى فى منتديات اوفيسنا اسال الله تعالى ان يعيد عليكم تلك الايام الطيبات الطاهرات المباركات وانتم تنعمون بالصحة والسعادة والهناء اسال الله تعالى ان يرزقنى واياكم فضلك العشر ايام المباركات ان شاء الله ☺ http://store1.up-00.com/2016-09/147276120351.swf

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

تم عمل المطلوب بالمعادلات AKSSAT.rar

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

حبيبي انا وكل ما املك تحت امرك تم التعديل تحياتي

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

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

اسمحوا لي بالمشاركة الامر الاول هو عدم وجود علاقات بين الجداول والثاني هو الكودات اعتقد ان كودات الاقسام يجب ان تكتب بنفس العدد من الارقام هذا ملف مصمم بطريقة لن تحتاج فيها الى اكواد لايجاد مجموع وغيره ارجو ان يكون المطلوب واسف على الاطالة DB.rar

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

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

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

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

محمد السباعي اخى الفاضل ما شاء الله عليك

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

ممتاز وفقك الله لكل خير وسددك ...

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

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

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

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

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

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

بارك الله فيك وجزاك الله خيراً أخي وحبيبي في الله أبو حنين كود رائع ومميز واستخدام مدهش للمصفوفات

تفضل اخي الكريم جرب الزر ( امر 17) عندي سؤال صغير : ما الفكرة من ادخال نفس البيانات الى جدولين ؟؟ Database12.rar

مر حبا جرب الكود التالي Sub iCopy() Dim sh As Worksheet, wr As Worksheet, j As Double, R As Double, Ary() Set sh = Sheets("ورقة1"): Set wr = Sheets("ورقة2") If wr.Range("a" & Rows.Count).End(xlUp).Row > 1 Then _ wr.Range("A2:E" & wr.Range("a" & Rows.Count).End(xlUp).Row) = "" With sh LsRow = .Range("a" & Rows.Count).End(xlUp).Row For j = 3 To LsRow If WorksheetFunction.CountIf(.Range("a3:a" & j), .Range("a" & j)) = 1 Then R = R + 1 ReDim Preserve Ary(1 To 5, 1 To R) Ary(1, R) = .Cells(j, 1): Ary(2, R) = .Cells(j, 2): Ary(3, R) = .Cells(j, 4) Ary(4, R) = WorksheetFunction.SumIf(.Range("a3:a" & LsRow), Ary(1, R), .Range("E3:E" & LsRow)) Ary(5, R) = Ary(3, R) * Ary(4, R) End If Next If R Then wr.Range("A2").Resize(R, 5).Value = WorksheetFunction.Transpose(Ary) End With wr.Select End Sub المرفق bb33.rar

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

مشكور اخي محمد السباعي مجهود رائع في تقدم دائما ان شاء الله تقبل تحياتي

كل عام وانت وجميع الامة الاسلامية بخير

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

طيب ممكن تفتح الملف وتبدأ تدرسه .. أو ممكن لو عايز تستخدم الفورم في ملفك بسيطة جداً روح لمحرر الأكواد ( Alt + F11) هتلاقي الفورم في نافذة المشروع ..دور على كلمة UserForm1 اعمل كليك يمين عليه ثم اختر الأمر Export File . وصدره لسطح المكتب مثلاً ، حدد سطح المكتب وانقر Save خلاص اقفل الملف اللي فيه الفورم روح لملفك اللي عايز تدرج فيه الفورم وافتح وكرر نفس الخطوات تروح لمحرر الأكواد وفي نافذة المشروع في أي مكان كليك يمين والمرة دي اختار Import File وروح لسطح المكتب واستورد الملف اللي صدرته من شوية بعد كدا كليك يمين على الفورم واختار View Code وغير الاسم وكلمة السر إلى ما تريد من خلال السطر التالي If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then بعد كدا ضع الكود التالي في حدث فتح المصنف ودا بيكون عن طريق دبل كليك على الكائن ThisWorkbook ثم الصق الكود التالي في حدث المصنف Private Sub Workbook_Open() UserForm1.Show End Sub احفظ ملفك واقفله .. وارجع افتح مرة تانية ومبرك عليك

اخيراً وجدتــها (اذا لا يهمك التكرار في العامود A) بدون Vba test1 salim.rar

جرب المرفق test1.rar

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

اخى الفاضل / عمر الحسينى السلام عليكم ندخل فى صُلب الموضوع أولا الا ترى معى أن الموضوع مبهم فما هى نص الفقرة من هذا القانون الذى يرى الكثير أنه معقد فى تطبيقة رغم سهولته هذا ماكنت أتوقعه كسؤال مبدئى منك أخى الحبيب ليكون هناك نقاشا نحو مايحتويه المرفق من فكرة أما عن المرفقات الثلاثة فالاول الذى نحن بصددة فصاحب الفضل فيه بعد المولى العلى القدير هو اخى الفاضل / ياسر خليل وجاء المرفق الثانى لاخى وحبيب قلبى أبو حنين جزاه الله تعالى عنى خير الجزاء وجاء المرفق الثالث من طرفكم وجميعهم ومع إختلاف الحلول فقد أتو بالافادة ولكن بشأن المرفق المرسل من طرفكم وبعد مراجعة دقيقة تبين أن هناك خطأ جثيما ألا وهو فى حالة عدم وجود اية قيم لنفس الاسم " المماثل" أو لإسم غير مماثل يتم حذف الاسم نهائيا وهذا على غير المطلوب تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا

أخى الحبيب الغالى // ياسر خليل السلام عليكم إتوحشتك كثير **** أسأل الله تعالى ان تكون بكامل الصحة والعافية عليكم الابداع *** وعلينا تحويلها الى إبداعات أخرى لأهداف أخرى تقبل وافر تقديرى واحترامى

الأخ العزيز أبو أدهم جزاك الله كل خير وفقك الله لما خير لك و للأخوة الأعضاء والزوار في هذا المنتدى الذي يجمع النخبة علما وأدبا و كرما وفقك الله

بارك الله فيك أخي الحبيب جلال على هذه الروائع بوركت وجزيت خيراً .. ولو كنت أفقه في الحسابات ، لكنت أعطيتك التقييم الصائب (لكن حظك حلو ..ولكن أترك التقييم للمختصين أمثال الأخ محمد الريفي وحسام عيسى) تقبل تحياتي

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