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

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

أخى فى الله الأستاذ الحبيب // محمد ابو البراء أول من رحب بى بهذا المنتدى الكريم الزاخر بأعمال بأساتذته وبفيض عطائهم مما رزقهم الله اياه لجميع الأعضاء و بصراحه بعد كل ما قيل وما كتب لا أجد كلمات أسطرها ولكن سأذكر واقعة حدثت معى أمر يشهد عليه كل من يتصفح صفحات ومواقع الإنترنت وسأذكر الدليل على صحة كلماتى بكل بساطه أكتب فى محرك البحث اسمى وسيظهر لك صحه قولى وكل ما سأكتبه الأسم (( محمود زكى الشريف )) أو (( محمود الشريف )) أو إدخل على هذا الرابط http://demo.site-go.com/?action=search&search=176&gateway=articles&by=words&page=2 لى أكثر من 1500 مقاله وعمل وكتابات تم سرقتها بالكامل ولم يترك لى إلا القليل كنت أعمل بمجال الدعوة الى الله بعده مواقع إسلامية عديدة تم سرقة كل ما نشر ونسب لغيري فقط لكونهم من أصحاب وأهواء المنابر البراقة ومعظم أعمال الباور البوينت الإسلامية بمواقع الإنترنت فهى لى فى الأساس ومعظم التجميعات والأرشفة الخاصة بالفتاوى وكل ما يتعلق بديننا الحنيف للعبد الفقير الى الله بدء من آواخر عام 2005 وحتى آواخر عام 2008 عمل وجهد متواصل وسهر بالليل فى محاولة جاده ومجاهده مع النفس لنشر الدعوة الحقيقية بشكل مبسط ميسر يتقبله الجميع فوالله الذى نفسى بيده ما نسبت لنفسى شىء ليس من جهدى .. ولكن إحتسبت كل ما صنعته وقمت به عند رب العالمين الذى لا تضيع عنده الحقوق وهذا الأمر أحزننى كثيرا ومرضت فترة وتغيبت عن المنتدى ويمكن البعض لاحظ غيابى لفترة عن المنتدى أكثر من 60 يوم متواصل وقيلت لى جملة لن أنساها طوال حياتى من شيخى ومن معلمى الأستاذ // مدحت جمال الذى أكن له كل احترام وتقدير وفضل ____ بعد الله ورسوله محمد بن عبد الله شيخ الأمه ومعلمها الأول صلوات ربى وتسليمه عليه وعلى آل بيته الأطهار الجمله نصيا وحرفيا إعلم يا بنى أنه ما أصعب وأشد من أن تطيع الله فيمن عصى الله فيك وذكرنى بقصة أبو الأنبياء سيدنا ابراهيم عليه السلام .... أمره الله فى أن يكون برا بوالديه وأن لا يقول لهم أف ولا ينهرهما وقل لهم قولا لينا وصاحبهما فى الدنيا معروفا والكل يعلم هذه القصة فأصنع الخير أخى الكريم والجزاء عند من بيده الجزاء وأعتذر للإطاله أخى الكريم وأسأل الله عز وجل الهداية لما فيه الصواب لكم وتقبل منى وافر الإحترام والتقدير

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

السلام عليكم تفضل أخى مثال.rar

السلام عليكم اريد ان استخدم دالة الموجودة في الاكسل وهي vlookup اريد مثل استخدامها في الاكسس وبصراحة ماريده هو مريع نص تضع فيه رقم مثل اسم الطالب ستظهر معومات الطالب البقية مثل درجاته وغيابته في مربعات نص مقابلة له

السلام عليكم جمعة مباركة هذا الكود يوضع في الوحدة النمطية للورقة Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("F3:F12")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "خلية لا يمكن تعديلها" End If End Sub ايضا يوجد رابط تحميل في رابط المدونة ادنى التوقيع حماية خلايا معينة من التعديل.rar

السلام عليكم اعداد تقرير من نطاق معين اتوماتيكيا عن طريق فورم لاختيار رؤوس الاعمدة التي تريده في التقرير ما عليك سوى تغيير اسم الورقة والعمود الذي يعين آخر صف في النطاق والنطاق هنا: Private Sub kh_MyRngSet() Dim Last As Long '======================== ' تعيين النطاق ويشمل رؤوس الاعمدة With Sheets("قاعدة البيانات") Last = .Range("C" & .Rows.Count).End(xlUp).Row Set MyRng = .Range("A2:Z" & Last) End With '======================== Num = MyRng.Columns.Count End Sub وتعيين اول صف في ورقة التقرير هنا: '======================== ' اول صف للتقرير Const iRow As Integer = 3 '======================== خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا.rar

السلام عليكم استخراج الشهادات مع اضافة صور للطلبة ============================= الصور في فولدر photo في نفس فولدر ملف الاكسل وتسمى بحسب تسلسل الطلبة ويمكنك تعيين العمود الذي توضع فيه الصورة في الجزئية الجديدة التالية من الكود ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 ============================= ويمكنك تغيير اعدادات الكود بشكل عام من هنا '*********************************************** '*********************************************** ' اسم ورقة الشهادات Const ShName As String = "الشهادات" ' رقم اول صف للشهادة Const FirstRow As Integer = 12 ' عدد صفوف الشهادة Const CountRow As Integer = 12 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 15 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A12" ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 '===================================== ' اسم ورقة البيانات Const Sh As String = "بيانات اساسية" ' نطاق ناجح دور ثاني في ورقة البيانات Const MyND As String = "BK10:BK1000" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "B10:B1000" '===================================== ' خلية عدد كل المتقدمين Const CountAll As String = "C3" ' خلية عدد الناجحين Const CountNA As String = "C4" ' كلمة البحث عن الناجحين Const NA_G As String = "ناجح" ' خلية عدد دور ثاني Const CountDT As String = "C5" ' كلمة البحث عن دور ثاني Const DT_G As String = "دور تان" '************************************************ '************************************************ شهادات جديد مع اضافة صور للطلبة.rar

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

السلام عليكم حسب فهمي للموضوع انك تريد ان تستدعي حسب الشهر في الخلية b1 اذا كان كذلك يكفي هذا Sub saad2222() Dim cc As Worksheet, ccc As Worksheet Dim H As Long, G As Long Set ccc = Sheets("يومية") Set cc = Sheets("اليومية الامريكية") RR = ccc.Range("b" & Rows.COUNT).End(xlUp).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual cleardata G = 6 For H = 4 To RR If ccc.Cells(H, 13).Value = cc.Range("b1").Value Then cc.Cells(G, 2) = ccc.Cells(H, 2) cc.Cells(G, 3) = ccc.Cells(H, 4) cc.Cells(G, 4) = ccc.Cells(H, 5) G = G + 1 End If Next '======================================== Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub تحياتي

السلام عليكم ورحمة الله وبركاته ترتيب العشرة الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "D7" '''''''' نطاق اسماء الفصول Private Const MyClass As String = "P7:P13" '''''''' نطاق اسماء المواد ومواقعها Private Const MyTotal As String = "R7:T19" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== المرفق اكسل2003 اكسل2007 ترتيب العشرة الاوائل حسب المجموع والعمر.rar ======================================================= تم التعديل حسب ملاحظة ايسم ابراهيم ادناه المرفق اكسل 2003/2007 ترتيب العشرة الاوائل حسب المجموع والعمر1.rar 61.97K 0 عدد مرات التحميل

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

السلام عليكم أخى الفاضل هذه بعض التعديلات أرجو أن تعجبك Sub نسخ() Set ws = Sheets("Sheet2") ws.UsedRange.Clear x = 4 LR = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False Range("b" & x & ":h" & LR).Copy With ws .Range("b" & x).PasteSpecial xlPasteValues .Range("b" & x & ":h" & LR).PasteSpecial xlPasteFormats End With Application.CutCopyMode = False Application.ScreenUpdating = True Set ws = Nothing End Sub

تفضل أخى Book555.rar

السلام عليكم /اخي محمد اليك المطلوب مع التوفيق Book555,1.rar

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

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

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

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

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

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

فكرة جيدة جداً اخي ابو ايمان و لكن ما رأيك ان تكون هذه العبارة بمثابة Caption لهذا الزر؟؟ لأن Msgbox تلزم المستخدم على ان يضغط OK في كل مرة يستعمل الزر CommandButton1.Caption = "تم استخدامي" & " " & Cells(2, 1).Value & " " & "مـرّة"

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

http://www.youtube.com/watch?v=iO3nHkzxTSE

مشكله من لا يخاف الله يعمل كل شي

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

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

السلام عليكم و رحمة الله وبركاته بعد اذن اخونا الكريم ابراهيم اخي ابو حنين جرب الكود التالي Sub Insert2ColmnValue() Columns("K:L").Copy With Range("K1") .Insert Shift:=xlToRight .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False .Select End With End Sub

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

أخى فى الله الأستاذ // وليد زقزوق بعد إذن أستاذى القدير // رجب جاويش قم بتعديل كود حدث الـ Workbook Private Sub Workbook_Open() Workbooks.Application.ShowStartupDialog = False Workbooks.Application.DisplayAlerts = False Workbooks.Application.Visible = False UFormChang.Show End Sub وتقبل منى وافر الاحترام والتقدير

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

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

السادة / أعضاء منتدانا الحبيب المحترمين السلام عليكم ورحمه الله وبركاته ،،، أقدم لكم اليوم طريقة سهلة و مجربة لتحويل ملفات الوورد الى اكسل دون الحاجة لبرامج تحويل الملفات 1- إفتح ملف الورد المراد تحويله لإكسيل word .doc 2- قم بحفظة على صورة ملف بصيغة اتش تي ام ال أو صفحة إنترنت باسم الملف المراد تحويلة file / save as / web page format 3 – قم بفتح ملف اكسيل جديد open new xls 4- اضغط على فتح في قائمة ملف open /brwos/ select file 5- إختار الملف بصيغة الاتش تي ام ال السابق تحويله file html. 6- قم بحفظ الملف ذاته بأختيار صيغة اكسيل ورقة عمل باختيار احد صيغ الأكسيل باصداراته المراد انشاؤها file/ save as/ xls 97/2033. وبذلك يكون تم تحويل الملف ويمكن بسهولة التعديل عليه وعمل كافة الصيغ والمعادلات المطلوبه . أسأل رب العالمين أن وفقت فى شرح الطريقة وتقبلوا منى وافر الإحترام والتقدير

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

إخوانى فى الله السادة / أعضاء منتدانا الحبيب المحترمين ارسل لى هذا الكتاب الرائع عبر الإيميل ووجدته مفيدا جدا ( pdf ) وأضعه بين ايديكم نسأل الله عز وجل أن يستفيد منه أعضاء المنتدى وتقبلوا منى وافر الإحترام والتقدير برمجة اكسيل - تطبيقات متقدمة.rar

جزاك الله خيرا

التهنئة بترقية الاخ أبوعيد الى عضو مميز

السلام عليكم الاستاذ والاخ الكريم / محمد أبو البراء بارك الله فيك كل الشكر علي التهنئة الغالية من شخصكم الكريم وأسأل الله تعالي أن أكون دائما عند حسن الظن بي جزاك الله كل خير

1000مبروك للاساتذه استاذ/ عبدالله استاذ/ احمد استاذ/ دغيدى مع دوام التقدم اخيكم مجدى الصعيدى

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

السلام عليكم ورحمة الله وبركاته الاخ الغالى / حماده عمر (ابو سما) بارك الله فيك ، سير على بركة الله أسأل الله أن يجعل أعملك كلها فى ميزان حسناتك أعمالك كلها تدل على سعة علمك ،وقدرتك على العطاء أسأل الله أن يسكنك جنة عندن

تفضل أخى استدعاء البيانات من عدة شيتات pc sales.rar

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

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " ' ********************* " ' دالة استخراج النص او الارقام " '==============================================" ' False = مهمل او Kh_Number اذا كان " ' تقوم باستخراج النص " ' True = Kh_Number اذا كان " ' تقوم باستخراج الارقام " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) Re = Replace(Re, Md, "") Loop Kh_Replace_Text = CDbl(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function دالة استخراج النص او الارقام.rar

وهذا الملف جمعت فيها ملف الف الكود المعمول بالاكسس ليتم التعرف على الية عمل هذه المحفظة تفضلوا شوفوا وجربوا وعدلو محفظة اكواد.rar

السلام عليكم الاخ الفاضل / مصطفى الفيومي------ حفظه الله الاخ الحبيب/ محمدي عبد السميع------ حفظه الله جزاكما الله خيرا تقبلا تحياتي وشكري ==================================================== الاخ الحبيب/ طارق ------ حفظه الله جرب الدالة ادناه: اذا اردت الرقم العشري عين Kh_Point تساوي True او اي رقم غير الصفر مثلا: =Kh_Replace_Text($A4;1;1) منتظر ردك ==================================================== Option Explicit ' بسم الله الرحمن الرحيم " ' ********************* " ' دالة استخراج النص او الارقام " '==============================================" ' False = مهمل او Kh_Number اذا كان " ' تقوم باستخراج النص " ' True = Kh_Number اذا كان " ' تقوم باستخراج الارقام " ' ---------- " ' True = Kh_Point اذا كان " ' تقوم باستخراج الرقم العشري الاول " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean, Optional Kh_Point As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) If Kh_Point Then If Md = "." Then GoTo 1 Re = Replace(Re, Md, "") 1 Loop Kh_Replace_Text = Val(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function ======================================================== دالة استخراج النص او الارقام1.rar

السلام عليكم دالة تفقيط الترتيب بدلا من 1 - 2 - 3 الى الاول - الثانى - الثالث ....... المائة الأولى - الثانية - الثالثة ....... المائة وهى تعمل للمذكر والمؤنث OrdinalNum_20060917.rar

إخواني الأعزاء هذا الملف به كود لفرز أوراق العمل حسب لون شريط العنوان للأوراق و فرز آخر حسب أسماء الأوراق هجائياً تصاعدياً وتنازلياً . تقبلوا تحياتي . GROUP_SHEETS_BY_COLOR_AND_SORT_SHEETS.rar