أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود بسيط لمعرفة معلومات مهمه عن جهازك - حسام خطاب اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn

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



18-10-2019 06:14 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 

السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله


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

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

وأترككم مع الشرح في الفيديو

 

*** إذا أعجبكم الفيديو لا تنسوا الضغط على زر إعجاب Like وعمل اشتراك بالقناة Subscribe وتفعيل زر الجرس ليصلكم كل جديد

r5g5o_YouTube


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء

أثارت هذه المشاركة إعجاب: ali mohamed ali، عصام عبد الفتاح، محمود ابو الدهب، محمد أبو عبدو، ابراهيم80، Eslam Abdullah،





18-10-2019 10:58 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1396
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6337
الاعجاب : 963
 Online 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
عمل ممتاز جعله الله فى ميزان حسناتك وبارك الله فيك
وايضا هناك حل اخر بالمعادلات لإثراء الموضوع
فاذا كان الرقم الأكبر موجود بالخلية A1 والرقم الأخر موجود بالخلية A2 ,فليكن مثلا هذان الرقمان 1100848020058805
والرقم الأخر 1100848020058800 أى الفرق بينهما يكون 5 ولكن لا تنسى عند كتابة الرقمين لابد من كتابة هذه العلامة أولا ' وهى الفاصلة العلوية
فتكون المعادلة هكذا

=VALUE(RIGHT(A1,15))-VALUE(RIGHT(A2,15))


 

أثارت هذه المشاركة إعجاب: YasserKhalil، هانى على، Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


18-10-2019 01:21 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
بارك الله فيك أخي العزيز علي ومشكور على المرور العطر

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




18-10-2019 07:14 مساء
مشاهدة مشاركة منفردة [3]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 127
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 271
الاعجاب : 112
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
بارك الله فيك على هذا الموضوع 
انا عندى خليه مكون من ٤٥ رقم هل ينفع لها الاداه

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




18-10-2019 07:26 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
مشكور على مرورك العطر أخي الحبيب حسونة
أعتقد تنفع إن شاء الله ..جرب بنفسك وشوف وأخبرنا بالنتيجة

بس أرقام ايه دي ..؟؟

أثارت هذه المشاركة إعجاب: hassona229، محمود ابو الدهب، Eslam Abdullah،




18-10-2019 07:59 مساء
مشاهدة مشاركة منفردة [5]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1225
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 39
يتابعهم : 2
يتابعونه : 615
قوة السمعة : 8892
الاعجاب : 546
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
تسلم ياغالي مجهود رائع
3dlat.com_02_18_73d9_8f60678a63db4

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :Yasser Elaraby
663013020



18-10-2019 08:19 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1287
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 221
قوة السمعة : 4273
الاعجاب : 557
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
بارك الله فيك استاذ ياسر وعمل اكثر اكثر من رائع والشرح للبرمجه ولا اروع
شكرا لك


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


18-10-2019 09:19 مساء
مشاهدة مشاركة منفردة [7]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 529
الاعجاب : 60
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
ما شاء الله أستاذي الفاضل
أكرمك الله بالجنة كما تكرمنا بعلمك 
جعله الله في ميزان حسناتك وكتبه لك صدقة جارية.

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




18-10-2019 09:41 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
بارك الله فيكم إخواني وأحبابي في الله وجزيتم خيراً على كلماتكم الطيبة

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




21-10-2019 07:47 مساء
مشاهدة مشاركة منفردة [9]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 475
الاعجاب : 22
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
جزاكم الله جميعا خير الثواب ووسع الله فى رزقكم وأحسن الله اليكم

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




21-10-2019 08:10 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
بارك الله فيك أخي العزيز هاني وأحسن الله إليك

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




23-10-2019 02:35 مساء
مشاهدة مشاركة منفردة [11]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1453
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 75
قوة السمعة : 9199
الاعجاب : 239
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
بعد اذن استاذى الغالى ياسر خليل
قمت ببرمجة دالة تقوم بجمع الارقام مهما كان عدد خانتها سواء كان رقم صحيح او رقم عشرى
اسميتها SumPro ، ادخل الرقم الاول فى الباراميتر الاول والرقم الثانى فى الباراميتر الثانى
ناتج الدالة قيمة نصية
ارجوا ان تفى بالاغراض كاثراء للموضوع اضافة للاداة المقدمه من استاذ ياسر
كود الدالة ادناه:

Function SumPro(Num1 As String, Num2 As String) As String
'Developer:Eslam Abdullah
Dim i%, Mx%, Mn%, Output$, Result$, Comment$, Dec$
    Num1 = Format(Num1, IIf(InStr(Num1, "E"), "#", "@")): Num2 = Format(Num2, IIf(InStr(Num2, "E"), "#", "@"))
    Dec = Val(Mid(Num1, InStr(Format(Num1, "#."), "."))) + Val(Mid(Num2, InStr(Format(Num2, "#."), ".")))
    Num1 = StrReverse(Mid(Num1, 1, InStr(Format(Num1, "#."), ".") - 1)): Num2 = StrReverse(Mid(Num2, 1, InStr(Format(Num2, "#."), ".") - 1))
    If Len(Num1) > Len(Num2) Then Mx = Len(Num1): Mn = Len(Num2) Else Mx = Len(Num2): Mn = Len(Num1)
    GoSub Deci:
        If Dec >= 1 Then Num1 = Result: Num2 = Int(Dec): Result = "": Mx = 1: Mn = 1: Dec = Dec - 1: GoSub Deci
        If Dec > 0 Then Result = Result & Mid(Dec, 2)
        SumPro = Result
    Exit Function
Deci:
        For i = 1 To Mx
            If Comment = "" And i > Mn Then Exit For
            Output = Val(Mid(Num1, i, 1)) + Val(Mid(Num2, i, 1)) + Val(Comment)
            Result = Right(Output, 1) & Result
            Comment = Mid(StrReverse(Output), 2)
        Next i
    Result = StrReverse(Mid(Num1, i)) & StrReverse(Mid(Num2, i)) & Result
Return
End Function

أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، محمود ابو الدهب، الصقر، Yasser Elaraby،




23-10-2019 02:42 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23795
الاعجاب : 2467
 offline 
look/images/icons/i1.gif حل مشكلة الأرقام الطويلة أكبر من 15 رقم Long Numbers In Excel With xlPrecsion AddIn
بارك الله فيك أخي الغالي إسلام ومشكور على الهدية القيمة ..
الله ينور يا دفعة

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمود ابو الدهب،






الكلمات الدلالية
مشكلة ، الأرقام ، الطويلة ، أكبر ، Long ، Numbers ، Excel ، With ، xlPrecsion ، AddIn ،


 







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



الساعة الآن 11:46 صباحا

أعلن هنا
أعلن هنا
أعلن هنا