اظهار العلامة (+) للقيم الموجبة

[م. خالد البقار]

هل يمكن ان يتم اظهار العلامة (+) امام القيم الموجبة فى خلية محدد فى برنامج الاكسل؟؟

وهل يمكن ان يتم تلوينها باللون المطلوب (+)؟؟

مثال:- 965.32 تحول الى 965.32+

[أبو هادي]

السلام عليكم

يمكنك استخدام التنسيق التالي :

+#,##0;-#,##0

وكما أعتقد لا يمكنك تخصيص أكثر من لون للخلية الواحدة ولكنك يمكنك استخدام لون للقيم الموجبة كالتالي :

[Red]+#,##0;-#,##0

تحياتي .

[محمد طاهر عرفه]

بالفعل كما قال أخونا أبو هادي فان عمل ذلك بالتنسيق غير ممكن

و لكن هذا تحايل بسيط بالكود

نقوم بتحويل الارفام الي نصوص ، , و نضيف اشارة ال + الي الموجب منها ثم نلونها

و طبعا هذا غير عملي لان الارقام من المطلوب أن تبقي أرقاما

انقل هذا الكود الي موديول جديد ، ثم اختار الخلايا و شغل الماكرو

Sub colorpositivevalues()
 Dim m As Integer, n As String
  m = Selection.Cells.Count
  For i = 1 To m
  If IsNumeric(Selection.Cells(i).Value) And Selection.Cells(i).Value > 0 Then
   n = "'+" & Str(Selection.Cells(i).Value)
   Selection.Cells(i).Value = n
   Selection.Cells(i).Characters(Start:=1, Length:=1).Font.ColorIndex = 3
  End If
 Next i
 End Sub

[حسام نور]

- في تألق دائم أستاذنا الكبير محمد طاهر .. فعلا كود رائع ويعمل بنجاح تام