محمد حسن المحمد

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر ما شاء الله لا قوة إلا بالله ...رائع وعصري... تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته

Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then Myno = Mid$(GetNo, I + 1, 3) Else Myno = "0" + Mid$(GetNo, I + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (I = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (I = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (I = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (I = 9) And (GetTxt <> "") Then MyHun = GetTxt If (I = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If I = I + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function السلام عليكم بعد إذن من سبقني بالمشاركة: أخي الكريم هذا كود التفقيط بالعربي ضعه في موديول ثم استخدم دالة NoToTxt لتجد النتيجة المرضية إن شاء الله تعالى

السلام عليكم فكرة رائعة حقاً..جزاكم الله خيراً

السلام عليكم ميزة رائعة جزاكم الله خيراً أخي العزيز الزباري..والشكر موصول للأخ العزيز محمد الريفي الذي عرض لنا طريقة الـ Flash Fill تقبل تحياتي العطرة والسلام عليكم.

نسخ التنسيق السلام عليكم ورحمة الله وبركاته إخوتي الكرام مجرد ومضة : كيف ننسخ التنسيق ونلصقه في عمود أو صف؟ نحدد الخلية المراد نسخ تنسيقها ثم نضغط Click ثم Ctrl+Shift+سهم للأسفل أو الأعلى عندما ترغب لصقها في عمود حسب موقع الخلية من العمود. أو Ctrl+Shift+سهم لليمين أو اليسار عندما ترغب لصقها في صف حسب موقع الخلية من الصف. ويمكننا أيضاً نسخ التنسيق بضغطتين لاستخدام لصقه عدة مرات أو في خلايا متفرقة أرجو أن يثري إخوتي الموضوع بما لديهم من علمٍ يخص نسخ التنسيق ولصقه. والسلام عليكم ورحمة الله وبركاته.

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

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

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

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

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

السعادة نسبية ليست مطلقة ...أما السعادة الكاملة ففي جنات ونهر عند مليك مقتدر..أما هنا فالمنغصات كثيرة ...يفعلها بنو البشر دون حساب لحرية أو حياة أو كرامة غيرهم. كما قال اليهود عليهم من الله ما يستحقون:قالوا نحن أبناء الله وأحباؤه...وكما قال فرعون يا هامان ابنِ لي صرحاً ...وكما قال قارون:إنما أوتييته على علم عندي....ولكن:((إن ربك لبالمرصاد))وكفى. والسلام عليكم.

بارك الله بكم ...واصبر وما صبرك إلا بالله...نطرق الباب ...وننتظر. إخوتي الكرام باقة ورد تعطر صباحكم الذي أرجو أن يكون سعيداً.....والسلام عليكم

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

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

السلام عليكم ورحمة الله وبركاته بارك الله أخي الصادق بكم على هذا العمل الذي قمتم به والسلام عليكم.

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

السلام عليكم ...لا يوجد Format Slicer في إكسل 2007 للأسف. تقبلوا تحياتي.

السلام عليكم أخي الحبيب أبو البراء إبداع يسير قدماً بخطىً واثقة بارك الله والسلام عليكم.

السلام عليكم الحمد لله على السلامة ...نسأل الله تعالى لكم ولكل مريض أو مكروب السلامة والشفاء والنجاة من كل بلية...آمين.

السلام عليكم ورحمة الله وبركاته أخي الحبيب محمد الريفي أبو أحمد جزاكم الله خيراً على الموضوع المميز والمهم والذي أبدعت به أيما إبداع تناولت الـ Pivot table في الأوفيس 2016 وتحدثت عن Format Slicer حيث كانت مفصلاً هاماً وحيوياً في الموضوع هل أجد ما يوافق Format Slicer في الأوفيس 2007 علماً أنني كنت مهتماً به على نطاق ضيقٍ منذ سنين. تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته.

لكنني أحب أن أتعلم ....