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

هذا كود آخر جربه يمكن يتعامل معاك مع الهمزة على نبرة Sub ReplaceChars() Dim ToRemove(), Itm Dim Cel As Range ToRemove() = Array("أ", "إ", "آ") For Each Itm In ToRemove() For Each Cel In Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row) Cel.Replace What:=Itm, Replacement:="ا", MatchCase:=True Next Cel Next Itm End Sub يبدو من مشاركتك الأخيرة انك تريد استبدال الحرف الأول فقط عموماً جرب الكود ولن تخسر شيئاً

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

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

Sub SortSheets() Dim I As Integer, J As Integer For I = 1 To Sheets.Count - 1 For J = I + 1 To Sheets.Count If Val(Sheets(I).Name) > Val(Sheets(J).Name) Then Sheets(J).Move Before:=Sheets(I) End If Next J Next I End Sub

جرب المرفق علة المطلوب استخلاص بيانات باستخدام عنوان العمود.rar

جرب الكود التالي (مع العلم انه سيتعامل مع الحرف الأول فقط) Sub ReplaceAll() Dim Cel As Range For Each Cel In Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row) If Left(Cel, 1) = "أ" Or Left(Cel, 1) = "إ" Or Left(Cel, 1) = "آ" Then Cel = "ا" & Right(Cel, Len(Cel) - 1) End If Next Cel End Sub

السلام عليكم و رحمة الله و بركاته أخي العزيز عمار اللهيبي .. لاحظ الصورة المرفقة أدناه .. أنا قمت بتسمية النطاقM4:M24 ب ZZZ وللتغيير أو الاضافة سأقوم بتحديد النطاق ذاته مرة ثانية و أعيد تغيير تسميته باسم جديد..ثم من خلال التبويب DONNEES ..إذهب إلى VALIDATION DES DONNEES ..أعد كتابة اسم النطاق الجديد .. لاحظ الأسهم لو سمحت

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

السلام عليكم انت شغال ايه بالضيط يا ابو سليمان ؟ ... (: الشغل المطلوب ده .... شغل مهندسين مساحة عموما هو طلبك استفزنى والحل مرفق .... لكن خد بالك من ادخال النقاط بالترتيب عكس عقارب الساعة Area Calculations.zip

السلام عليكم و رحمة الله و بركاته أخي العزيز أشرف النعّاس .. أتمنّى أنْ يكون هذا هو المطلوب .. أشرف النعاس 4.rar

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

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

حياك الله اخي الكريم .. في الحقيقة لم اشاهد المرفق لإختلاف تنسيق الأوفيس . عموما جرب هذه الطريقة ... 1- اضف عنصر نص للتقرير واسمه مثلا txtcount . 2- من خصائص عنصر التحكم ... ضع مصدر البيانات(control source ) يساوي 1= 3- اضغط على خانة تفصيل في التقرير ( detail ) ... اذهب إلى حدث عند التنسيق on format ثم ضع هذا السطر .. Cancel= Me.txtCount> 10 بإمكانك التحكم في العدد بتغيير الرقم 10.. بالتوفيق

السلام عليكم النقاط المطلوبة 1- فرز البيانات في العمو د A الى الاعمدة المجاورة على ان يبداء فرز التاريخ في العمود C 2-عمل ترتيب للعمدة المفروزة بحيث يكون التاريخ الاحدث هو في الصف الاول وكلما نزلنا للاسفل يكون التاريخ اقدم (( وطبعا تلقائي يتم ترتيب البيانات المجاورة للتاريخ مع التاريخ ) 3- عمل كود للتريب لان البيانات يتم جلبها من خارج الملف الى الملف ويكون مقرها العمود A فيكون الكود هو فرز البيانات ثم ترتيبها حسب الاحدث يكون بالاعلى حسب التاريخ 4- يكون فيه مجال انني انسخة واطبقة على ملفات اخرى ليتم العمل عليها بنفس الكود _4070.rar

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

اخي العزيز ابو سليمان الحل المرفق بمعلوميه الاحداثيات اما اذا كنت تريد حساب المساحة عن طريق الاطوال فيجب عليك تقسيم الاشكال الي مثلثات. ثم حساب مساحة كل مثلث علي حده وتجميعها بعد ذلك مثلا ابعاد الحوش الذي تتكلم عنه ينقصها قياس احد اقطاره. ثم تقوم بحساب مساحة كل مثلث عن طريق المعادلة التالية. مساحة المثلث = الجذر التربيعي ل ح * (ح-س)*(ح-ص)*(ح-ع) حيث س، ص، ع هي اطوال اضلاع المثلث و ح هي نصف محيط المثلث (س+ص+ع)/2

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

أخي الغالي محمد الخازمي وحشتنا مشاركاتك القيمة جرب الكود التالي عله يفي بالغرض Sub ReplaceAll() With Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row) .Replace "أ", "ا", , 1 .Replace "إ", "ا", , 1 .Replace "آ", "ا", , 1 End With End Sub

السلام عليكم و رحمة الله وبركاته اخي الحديثة ادخل على الكود الي عملناه السطر الذي يوجد به الرقم 0 صفر If Val(FS.Cells(ER1, 96)) > 0 Then عدله بدل 0 ضع 5 If Val(FS.Cells(ER1, 96)) > 5 Then الآن يرحل اكبر من 5 = بمعنى سته او اكثر خالص تحياتي

أخي الغالي زيزو عندك تفعيل نسخة أوفيس Ultimate 2007 لغة إنجليزية .. يا ريت لو عندك لأني محتاجه ضروري

بسم الله الرحمن الرحيم اخي العزيز الف شكر وممنون

السلام عليكم ممكن تجرب الاتي خيارات اكسل advanced General وشيل الصح عن الخيار الثالث ignore........(النسخة العربية تجاهل التطبيقات الاخرى.....) ثم ok

السلام عليكم تفضل أخي هذا الحل لقد وضعت تعبير في القيمة الافتراضية لمربع النص وهذا هو =Nz(DMax("[num_bgn]";"cnt");0)+1 arab (2).rar

اخى ياسر اليك الملف sort sheets.rar

حياك الله اخي الكريم .. تفضل المرفق .... يوجد مرفقين واحد يشرح الخطوتين 1+2 .. وهو للأستاذ علي العتيبي . والمرفق الآخر فيه المثال . من خصائص التقرير اجعل طريقة العرض معاينة قبل الطباعة. بالتوفيق . Autonumber_report.rar منار العلم.rar

بارك الله فيك اخي عبد العزيز وصلت الى المطلوب الحمد لله

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

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

بارك الله فيه م / ياسر فتحي

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

عمل أكثر من رائع

السلام عليكم و رحمة الله و بركاته جرّب أخي الغالي ابن الحجاز هذا الملف .. ابن الحجاز 2.rar

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

حياك الله اخي الكريم ... ضع هذا السطر في حدث عند التحميل للنموذج form_load ... وفي حدث عند النقر ايضا لإضافة جديد. Me.num_bgn = Nz(DMax("num_bgn", "cnt"), 0) + 1 num_bgn الأولى : هي تسمية عنصر النص في النموذج . num_ban الثانية : هي التسمية في جدول cnt وفقنا الله واياك ..

أخي العزيز / ضع المعادلة التالية في الخلية (B3) واسحبها لأسفل =IF(A3>MAX($A$2:A2);B2+1;B2) إن شاء الله تفي بالغرض

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

بارك الله فيك اخي عبد العزيز على رد ولكن اريد التعديل يكون على نفس الملف السلام عليكم و رحمة الله و بركاته تفضّل أخي الفاضل أشرف النعّاس هذا الملف ربما يفي بالغرض .. التغيير الوحيد الذي أحدثته في ملفك و هو في اليوزرفورم رقم 3 قمت بحذف الكومبوبوكس رقم 2 و أبقيت على الكومبوبوكس رقم 1 فقط لأنّه في نظري اختيار طريقة البحث يكون بالأبسيون بوتون و ليس بالكومبوبوكس .. أشرف النعاس 3.rar

‏الخميس‏، 3‏/9‏/2015م الموافق ‏20‏/11‏/1436هـ السلام عليكم اخي ابو نباء جزاك الله خيرا اخي ابو حازم بسيطة ادخل على الكود تجد كلمة ورقة2 غيرها الى ورقة 3 يرحل الى ورقة 3 غيرها الى ورقة4 يرحل الى ورقة 4 وهكذا

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

السلام عليكم اخى ياسر اكوادك ثورة في عالم المحاسبة جزاك الله خيرا وفقكم الله

إخواني الكرام أخي الحبيب حسام عيسى وأنس دروبي وأبو يوسف بارك الله فيك صقر المنتدى وجزاك الله كل خير جرب الكود التالي وشوف النتائج صحيحة أم لا .. للتأكد من عمل الكود وجرب سرعة الكود مع بيانات أكثر .. Sub YasserKhalil() Dim Accts As Variant, Data As Variant, Results() As Double Dim D1 As Date, D2 As Date Dim I As Long, J As Long With Sheets("Data") Data = .Range("A5", .Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value End With With Sheets("Balance") Accts = .Range("B8", .Cells(Rows.Count, "B").End(xlUp)).Value ReDim Results(1 To UBound(Accts, 1), 1 To 2) D1 = .Range("B3").Value D2 = .Range("B4").Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = 1 To UBound(Accts, 1) .Item(Accts(I, 1)) = I Next I For I = 1 To UBound(Data, 1) If .Exists(Data(I, 2)) Then If Data(I, 1) >= D1 And Data(I, 1) <= D2 Then J = .Item(Data(I, 2)) If Data(I, 8) <> "" Then Results(J, 1) = Results(J, 1) + Data(I, 8) If Data(I, 9) <> "" Then Results(J, 2) = Results(J, 2) + Data(I, 9) End If End If Next I End With .Range("E8:F8").Resize(UBound(Results, 1)).Value = Results End With End Sub ميزان المراجعة بالكود.rar

السلام عليكم و رحمة الله و بركاته جرّب هذا الملف أخي الكريم لعلّ و عسى يكون المطلوب .. أشرف النعاس.rar

السلام عليكم ورحمة الله وبركاته ارجوا المساعدة فى ايجاد المعادلات المناسبة لتطبيق ارصدة الاجازات السنوية للعاملين مع اتخاذ الاتى فى الاعتبار : - للموظف الذى امضى فى خدمة صاحب العمل سنة الحق فى اجازة سنوية مدتها 21 يوم - للموظف الذى امضى فى خدمة صاحب العمل 6 اشهر كحد ادنى الحق فى اجازة سنوية مدتها 21 يوم تنسب على ما يتبقى للموظف من اشهر لنهاية العام مثال :- رقم 1 -------- الموظف ( أ ) تاريخ التعيين 1/3/2011 تاريخ استحقاقه للرصيد السنوى 1/9/2011 المتبقى له لنهاية العام 3 شهر وبالتالى يستحق 21/12*3 = 5.25 يوم رقم 2-------- الوظف ( ب ) تاريخ التعيين 1/7/2011تاريخ استحقاقه للرصيد السنوى 1/1/2012المتبقى له لنهاية العام 12شهر وبالتالى يستحق 21/12*12 = 21 يوم بمعدل 1.75 يوم مستحق للشهر الواحد المطلوب : - 1 - معرفة الشهر الذى يبدأ به استحقاق الموظف للاجازة السنوية 2 - عدد ايام الرصيد المستحق له 3 - ما يستحقه الموظف من رصيد للشهر الحالى ( = Now ) 4 - جمع او طرح الرصيد المتبقى فى حالة استخدام الموظف رصيد اكثر من المتاح او اقل من المتاح او عدم استخدام خلال الشهر ملحوظة :- الشيت المرفق به تاريخ التعيين مقسم و مدمج ايهما ايسر فى الاستخدام - تاريخ الاستحقاق بالشهر والعام ولا داعى ان يكون باليوم ااسف للاطالة عليكم ولكن ذلك للتوضيح سجل رصيد الاجازات السنوية0.rar

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

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

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

كمان برنامج الميزان للمحاسبة التجارية والميزانية العمومية شجرة الحسابات الرائعة و........ البرنامج كامل من كله ومفتوح المصدر يعني ( بالسورس كود ) جميل وقوي وبدون اي حماية .... البرنامج كان نزل زمان في المنتدى بس انا غيرت فيه شوية وزدت عليه شوية رطوشات ( اصلي باحب الروشنة ) وعملت عليه شوية مكياج وانشاء الله صاحب البرنامج يسامحني ... بيقولوا ( والله اعلم ) ان البرنامج كانت شغالة بيه شركة كبيرة في ( احد البلدان العربية ) وبعدين استغنت عنه !!!! مع انه حلو وفعال ( طب استغنت عنه ليه ؟؟ ) بصراحة مش عارف ... انا اديته لمركز تدريب كفاءات موظفين وشغالين فيه عال العال ولليوم محدش اشتكى منه ... اسف لو طولت عليكم .... المرفقات mizan.rar

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

وهذا برنامج نظام المحاسبة التجاري نظام المحاسبة.rar

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