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

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

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

أستخدم هذه المعادلة أخى فى خلية ( K8 ) ستحقق لك المطلوب =LOOKUP(2;1/(sheet1!$B$5:$B$19=$D$11);sheet1!$C$5:$C$19) تقبل تحياتى

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

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

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

تفضل أخى ماأردت تقبل تحياتى كاس مصر.rar

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

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

ألف ألف مبرووووووووووووووووووووووك أخى الحبيب ( محمد أبو البراء ) وإلى الأمام دائما من تفوق إلى مزيدا من التفوق تقبل تحيات : أخيك

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

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 4‏/7‏/1433هـ الموافق ‏24‏/5‏/2012م متابعة المواعيد المهمة وما تم تنفيذة مع البحث و تسجيل ارقام الهواتف و الإيميلات مع امكانية البحث عن أي معلومة به المميزات يجب تمكين وحدات الماكرو اولا 1- المواعيد استخدام التاريخين الهجري و الميلادي معا في عمود التاريخ يتم التريب و الفرز حسب التاريخ تلقائيا عند الدخول اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة تلوين القديم باللون الزهري تلوين المواعيد الحالية بلأخضر الفاتح تلوين المواعيد البعيدة وهي بعد 7 ايام من تاريخ اليوم او اكثر باللون الأصفر تسجيل كلمة منتهي امام كل موعد تم انجازة ليتم اخفائة من القائمة رسالة تحذيرية للتاريخ قبل تاريخ اليوم او بعد سنة من تاريخ اليوم امكانية البحث عن أي معلومة قديمة او جديدة - بحث سريع بجزء من أي كلمة 2- الهاتف يتم الترتيب او الفرز حسب اسماء العملاء اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة امكانية البحث عن أي جزء من اسم او رقم او بريد الكتروني - بحث سريع تلوين نتائج البحث باللون الأصفر التنقل استخدم زر صورة الهاتف او صورة التقويم اعلى يمين الشاشة للتنقل كلمة المرور لحماية الأوراق ="0" كلمة المرور لحماية محرر الفيجوال بيزك ="0" آمل ان يكون به الفائدة للجميع السكرتيرالخاصv2012.rar

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

السلام عليكم ورحمة الله وبركاته جرب الكود التالي Sub Macro1() ActiveSheet.UsedRange.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub تحياتي

السلام عليكم ورحمة الله و بركاته تفضل أخي هذا مطلوبك تظليل الخلايا المدخلة بطريقة خاطئة 1.rar

جرب هذا الكود يا اخي 1المصدر.rar

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

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

و

======================== الاخ الحبيب/ ضاحي الغريب ======================== و

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

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

أخى وحبيبي المهندس / ضاحي السلام عليكم ورحمة الله وبركاته وفقك الله وجزاك الله خير الجزاء وإنى لفخور بك وفقك الله وسدد خطاك ونفع بك اﻷمه اﻷسﻻميه

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

الأستاذ / رفعت يسري حامد السلام عليكم ورحمة الله وبركاته إليك الملف بعد التعديل عليه لأن الكود لم يتعرف على بعض الألوان الجديدة في اكسيل 2007 . السعر1.rar

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

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

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

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

السلام عليكم هذا كود من أعمال الأستاذ الكبير عبدالله باقشير حفظه الله ورعاه أحببت أن اطرحه في موضوع كي يستفيد منه الجميع في أول الكود تحط الشروط المراده * بداية البيانات بدون رؤس الاعمدة * الاعمدة المراد عمل عليها جمع بالامكان تحديد الاعمده اما بشكل فردي وهو "$A$1,$C$1,$F$1" أو بشكل مدى من الى هكذا "$A$1:$G$1" أو بشكل مدى متقطع هكذا "$A$1,$C$1,$E$1:$H$1,$i$1:$K$1" ******************************************************************** الكود ينشاء صف وبه الجمع وبعد الانتهاء من وضع معاينة الطباعه يحذف الصف ******************************************************************** الكود يوضع في مودويل '**************************************** ' بداية البيانات بدون رؤس الأعمدة Private Const Row_Star As Integer = 2 '**************************************** 'الاعمدة المراد جمع قيمها في نهاية فواصل الصفحات Private Const C_N As String = "$A$1,$C$1,$D$1:$F$1" Sub Ali_Sum_Page() Dim Ar() As Integer Dim Rng As Range, Cc As Range Dim C As Range, Cr As Range Dim iCont As Integer Dim i As Integer, ii As Integer Dim r1 As Integer, r2 As Integer Dim Cv As Integer, L_C As Integer ''''''''''''''''''' For Each Cc In Range(C_N) L_C = Cc.Column Next With Cells.Worksheet With .PageSetup .PrintTitleRows = "$1:$1" .PrintTitleColumns = "" End With .ResetAllPageBreaks .Range("A65536").Select .Cells(Row_Star, "A").Select iCont = .HPageBreaks.Count If iCont = 0 Then Exit Sub ''''''''''''''''''''''' ReDim Ar(1 To iCont) For i = 1 To .HPageBreaks.Count ii = .HPageBreaks(i).Location.row Ar(i) = ii Next ''''''''''''''''''''''' r1 = Row_Star For i = 1 To iCont ii = Ar(i) - 1 With .Range("A" & ii).Resize(1, L_C) .EntireRow.Insert With .Offset(-1, 0) L_r = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).row If Rng Is Nothing Then Set Rng = .Cells Else Set Rng = Union(Rng, .Cells) r2 = ii - 1 For Each C In Range(C_N) Cv = C.Column .Cells(1, Cv) = WorksheetFunction.Sum(Range(Cells(r1, Cv), Cells(r2, Cv))) Next r1 = r2 + 2 End With End With Next For Each Cr In Range(C_N) Cv = Cr.Column With .Cells(L_r, Cv) .Value = WorksheetFunction.Sum(Range(Cells(r1, Cv), Cells(L_r - 1, Cv))) .Interior.ColorIndex = 6 End With Next End With '''''''''''''''''''''' If Not Rng Is Nothing Then With Rng .Interior.ColorIndex = 6 .Worksheet.PrintPreview Range("A" & L_r).EntireRow.Delete .EntireRow.Delete End With End If ''''''''''''''''''''''' Erase Ar Set Rng = Nothing: Set Cc = Nothing Set Cr = Nothing: Set C = Nothing End Sub والسلام عليكم

السلام عليكم ورحمة الله وبركاته فورم للتقويم الميلادي والهجري لادراج التاريخ في الخلية النشطة يعمل على اكسل 2003 و 2007 حسب المرفق و يعمل على 2010 حسب بشارة الاخ رجب ================================== تستطيع نقل الفورم الى اي ملف من نافذة الاكواد اسحب الفورم الى ملفك واستخدم الكود التالي لاظهار الفورم Sub kh_ShowFormCalendar() FormCalendar.Show End Sub ==================================== ودمتم في حفظ الله ميلادي هجري1.rar

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