بسم الله الرحمن الرحيم
جمع الخلايا التي تحتوي على نصوص وأرقام فى خلية واحدة
إذا كانت لديك
البيانات التالية ممزوجة بالنص والأرقام، وتريد فقط استخراج الأرقام الموجودة في كل
خلية وإضافتها فقط، فكيف يمكنك إنهاء ذلك بسرعة في Excel؟
 |
| عالم الاوفيس |
للتعامل مع هذه
المشكلة، يمكنك إنشاء وظيفة محددة من قبل المستخدم، يرجى القيام بما يلي:
1. اضغط باستمرار
على المفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج
> وحدة، ثم قم بلصق التعليمة البرمجية التالية في نافذة الوحدة.
رمز VBA: جمع الأرقام الموجودة في الخلية التي تحتوي على أرقام ونصوص فقط
Function
SumNumbers(rngS As Range, Optional strDelim As String = " ") As
Double
'Updateby
Extendoffice
Dim xNums As Variant, lngNum As Long
xNums = Split(rngS, strDelim)
For lngNum = LBound(xNums) To UBound(xNums)
Step 1
SumNumbers = SumNumbers +
Val(xNums(lngNum))
Next lngNum
End
Function
ثم احفظ هذا الرمز
وأغلقه، وارجع إلى ورقة العمل، وأدخل هذه الصيغة =SumNumbers(A2) (يشير A2
إلى الخلية التي تريد جمع الأرقام فيها)، ثم اسحب مقبض التعبئة لأسفل
إلى الخلايا التي تريد تعبئتها الصيغة، ويتم إضافة الأرقام فقط في كل خلية معًا، انظر
لقطة الشاشة:
