اذهب الي المحتوي
أوفيسنا

مطلوب تجاهل المنازل العشريه اذا كانت أصفار


الردود الموصى بها

أخواني الأعزاء أرجو مساعدتي في ايجاد حل لهذه المشكله

عندي جدول أكسل وكل الخلايا فيها منزلتين عشريتين مثل : ( ٨.٥٠ ) ( ١٦.٧٥ ) ( ٩٣.٠٠ )

المطلوب تجاهل المنازل العشريه إ ذا كانت أصفاراً تلقائياً كما هو الحال في المثال ( ٩٣.٠٠ ) ليصبح ( ٩٣ ) فقط

ولجهودكم جزيل الشكر

رابط هذا التعليق
شارك

السلام عليكم

على افتراض ان الصف المعني بالتغيير هو


Range("K2:K34")

فيكون الكود كالتالي :

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Dim c As Range

For Each c In Range("K2:K34")

With c

    If Right(.Text, 2) = "00" Or .Value = 0 Then

		    .NumberFormat = "General"

				 Exit Sub

			   Else

		  .NumberFormat = "0.00"

		 End If

	 End With

    Next

End Sub

رابط هذا التعليق
شارك

أخى الغالى ابا حنين

هل يمكن التعديل فى الكود هكذا ليكون الكسر العشرى ذو منزلة واحدة والحفاظ على خاصية منع ظهور الصفر والعلامة العشرية لو كان الرقم بدون كسر عشرى ؟؟

علماً بأن الكود سيطبق فى مدى 2000 سطر كاملين


Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Dim c As Range

For Each c In Range("A1:IV2000")

With c

	    If Right(.Text, 2) = "00" Or .Value = 0 Then

					    .NumberFormat = "General"

								 Exit Sub

						   Else

				  .NumberFormat = "0.0"

				 End If

		 End With

	    Next

End Sub

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information