طلب تحويل القيم العشرية الى أصفار

[dounabara]

السلام عليكم

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

مثال اذا كانت القيمة التي عندي هي 10.16 اريدها ان تصبح   10.00

15.09   اريدها ان تصبح     15.00

19.99  اريدها ان تصبح       19.00

اي ليس التقريب بل ازالة كلية للقيمة العشرية وتحويلها الى أصفار

وبارك الله فيكم

[جمال عبد السميع]

كليك يمين على عمود الأرقام بعد تظليلة بالكامل

ثم "FORMAT CELLS " ثم  "NUMBER" ثم "CUSTEM " ثم "TYPE "

ثم فى المستطيل أسفلها أكتب الأتى:

##."00"

بالطبع هناك معادلات لعمل ذلك ولكن هذه أفضل وأسهل

تقبل تحياتى

[dounabara]

بورك فيك اخي

لو امكن الشرح على  افيس 2007 عربي

[dounabara]

بارك الله فيك اخي لكن المشكلة مازالت قائمة فهو يكتب لي القيم بالاصفار ولكن في الحساب يقوم به غلى القيم العشرية كان لم يكن شيء

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

وشكرا

[جمال عبد السميع]

أستخدم دالة( INT )

أو ( TRUNC )

=INT(A2)
=TRUNC(A2)

وإذا أردت العلامة العشرية والأصفار ستقوم بنفس الخطوات وتكتب فى "TYPE "

00.00

تقبل تحياتى

[dounabara]

بارك الله فيك اخي العزيز

[dounabara]

اشكرك اخي على المساعدة لكن اريد ان اطبق على نفس الخلية وليس خلية اخرى

لذلك لا تصلح الدالة INT لانني ساطبق على نفس الخلية التي اقف عليها

هل من طريقة اخرى وشكرا

[سليم حاصبيا]

السلام عليكم

صديقي/جرب هذا الملف

ربما تجد الحل    

بدون فاصلة.rar

[جمال عبد السميع]

واضح جدا إننى سأستدرج فى كتابة الكود وأن كنت أرفض ذلك ، وعاهدت نفسى على ذلك

ولكن نظرا لغياب عمالقة الأكواد فأنا مضطر

أليك أخى الكود التالى سيحقق ماتريد

أو أستخدم هذا وهذا أعم ويشمل تنسيق الرقم أيضا

يكفى تظليل مدى الأرقام الذى تريد تحويلها

Sub GAMAL()
    Dim rng As Range
    Dim cell As Range
    Set rng = Selection
    For Each cell In rng
        cell = Int(cell)
        cell.NumberFormat = "0.00"
    Next
End Sub

وهذا أيضا حتى يكون الكود الأخير ولن أكررها

Sub gamal()
  Dim adr As String
  
  adr = "A1:A" & Range("A" & Rows.Count).End(xlUp).Row '<- Change column & start row to suit
  With Range(adr)
    .Value = Evaluate("IF(LEN(" & adr & "),TRUNC(" & adr & "),"""")")
    .NumberFormat = "0.00"
  End With
End Sub

تقبل تحياتى

أستخراج الرقم قبل العلامة 2 العشرية.rar

أستخراج الرقم قبل العلامة العشرية.rar