تنسيق الاعداد

[اشرف سعيد السويسي]

اذا كان بالخلية الوحدة عدد يكون التنسيق بلا علامات عشرية (1) وان كان كيلو يكون التنسيق بعلامات عشرية (1.000)

Book2.rar

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

جرب هذا الماكرو

يعمل فقط في العامود 5 والخلايا ابتداء من الخلية الرابعة (E$4 $

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target.Row >= 4 _
               And Target.Offset(0, -1) <> "" And Target.Count = 1 Then
            Application.EnableEvents = False
            Select Case Target.Offset(0, -1)
                Case "كيلو"
                   Target.NumberFormat = "0.000"
                Case Else
                  Target.NumberFormat = "general"
              End Select
     End If
    Application.EnableEvents = True
  End Sub

)