انتقل إلى المحتوى الرئيسي

كيفية استخراج القيمة العشرية من سلسلة في إكسيل؟

سيخبرك هذا البرنامج التعليمي بكيفية استخراج القيمة العشرية فقط من سلسلة في Excel.

استخراج القيمة العشرية بالصيغة في Excel
استخراج القيمة العشرية باستخدام VBA في Excel
استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel


استخراج القيمة العشرية بالصيغة في Excel

هناك نوعان من الصيغ التي يمكن أن تساعدك على استخراج قيمة عشرية من سلسلة ، اختر واحدة منهم كما تريد.

الصيغة بغض النظر عن علامة القيم:

حدد خلية واكتب هذه الصيغة = ABS (A1-TRUNC (A1)) (A1 هي الخلية التي تريد استخراج القيمة العشرية منها) في "شريط الصيغة" ، ثم اضغط أدخل مفتاح. استمر في تحديد خلية النتيجة الأولى ، واسحب مقبض التعبئة لأسفل للحصول على جميع النتائج. يمكنك رؤية القيم العشرية المستخرجة فقط بدون علامة كما هو موضح أدناه لقطة الشاشة.

الصيغة التي تعكس علامة القيم:

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


استخرج الأرقام العشرية بسهولة من نطاق محدد في Excel:

كوتولس ل إكسيل's استخراج النص تساعدك الأداة المساعدة على استخراج جميع القيم العشرية بسهولة من نطاق محدد كما هو موضح أدناه. 
قم بتنزيله وجربه الآن! (مسار مجاني لمدة 30 يومًا)


استخراج القيمة العشرية باستخدام VBA في Excel

يوجد VBA يمكنه استخراج القيم العشرية بشكل جماعي بعلامة من السلاسل فقط.

1. صحافة ALT + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة، ثم الصق رمز فبا التالي في الوحدة النمطية.

فبا: استخراج القيم العشرية فقط

Sub GetNumber()
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            KK = xSRgArea(K).Row - xSRg.Row
            If IsNumeric(xRgVal) Then
                xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal)
            End If
        Next
    Next
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود. ثم كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد النطاق الذي تريد استخراج القيم العشرية منه فقط ، والنقر فوق OK زر. انظر لقطة الشاشة:

4. ثم آخر كوتولس ل إكسيل ينبثق مربع الحوار ، تحتاج إلى تحديد خلية لتحديد القيم العشرية المستخرجة. انظر لقطة الشاشة:

يمكنك أن ترى فقط القيم العشرية لأرقام محددة يتم استخلاصها ووضعها في نطاق معين كما هو موضح أدناه.


استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel

إذا لم تعجبك الصيغة وطرق VBA ، فإني أقدم لك هنا أداة مفيدة - كوتولس ل إكسيل. مع ل استخراج النص يمكنك بسهولة استخراج كل القيم العشرية من نطاق في Excel.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. حدد النطاق بالعلامة العشرية التي تريد استخراجها ، ثم انقر فوق كوتولس > نص > استخراج النص. انظر لقطة الشاشة:

2. في ال استخراج النص مربع الحوار، اكتب .* في مربع النص ، ثم انقر فوق ملف أضف زر. أخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:

3. في آخر ظهرت استخراج النص في مربع الحوار ، حدد خلية فارغة لتحديد موقع النتيجة ، ثم انقر فوق OK .

ثم يتم استخراج جميع القيم العشرية في النطاق المحدد على الفور. انظر لقطة الشاشة:

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


استخرج القيمة العشرية بسهولة باستخدام Kutools for Excel


مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Para extraer los decimales es más sencillo hacer el entero de la cantidad a separar, después restar la cantidad inicial menos la obtenida con el entero. Una vez hecho esto, si quieres formato de decimales solo aplicar este. Si quieres ver los decimales aislados como números enteros, multiplicas el resultado por 100.
This comment was minimized by the moderator on the site
WHAT IN THE WORLD DID I TRY TO DO?
IF((C9-TRUNC(C9))<0.59,C9,IF((TRUNC(C9)+((C9-TRUNC(C9))))-TRUNC((TRUNC(C9)+((C9-TRUNC(C9)))))>0.59,(TRUNC((TRUNC(C9)+((C9-TRUNC(C9))))))/0.6)),((C8-TRUNC(C8))>0.59,(TRUNC(C8)+((C8-TRUNC(C8))/0.6)),C8)))))


by the way C9 was length of a audio file but had entered "18.75" value
***?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations