پرسش درج اتوماتیک اعداد بصورت منفی

[majideptp2]

سلام وقت بخیر
من میخوام فرمت سلول طوری تعریف بشه که اعداد رو بصورت اتوماتیک به منفی تبدیل کنه!
یعنی من فقط عدد 10 رو تایپ کنم ولی پس از اینتر داخل سلول (10) رو نمایش بده

a1=10
تبدیل به
a1=(10)

[iranweld]

با سلام

فرمت سل ستون مورد نظر را مانند تصویر تعریف کنید
اگر عدد اعشاری دارید بجای 0 بصورت 0.00 تعریف کنید

[majideptp2]

سپاسگزارم
اما این تعریف فقط عدد رو داخل پرانتز نمایش میده
و در حقيقت ماهیت عدد منفی نداره
یعنی وقتی فرمت سل رو به این صورت تعریف میکنم
و با عدد دیگه ای جمع میکنم حاصل رو مثبت میده

(1)+1=2
در صورتی که نمایش داخل پرانتز عدد منفی هستش
و باید حاصل صفر باشه

[iranweld]

در فایل پیوست با کدنویسی انجام شد
در ستون a,b,c در صورت ورود عدد ، علامت منفی کنار عدد درج میگردد

[generalsamad]

با سلام
با اجازه استاد عزیز حسن پور
برای وارد کردن عدد منفی هم باید شرط گذاشت که کاربر اگر عدد منفی رو وارد کرد اونو تبدیل به مثبت نکند

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C1:c10000")) Is Nothing Then
    If IsNumeric(Target) Then
        Target = -Abs(Target)
    End If
End If
End Sub