تحويل اﻻرقام في التكست بوكس بالسالب

[نسورالجو]

السلام عليكم المطلوب عند تفعيل checkbox , تظهر الارقام المدخلة في التكست بوكس بالسالب

ورقة عمل Microsoft Excel جديد.xlsm

[عبدالفتاح في بي اكسيل]

انسخ  هذا  في  موديول  اليوزرفورم ( اكتب   الرقم في  التيكست بوكس فعل  التشيك بوكس)

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
 TextBox1.Value = Val(TextBox1.Value) * -1
 ElseIf CheckBox1.Value = False Then
 TextBox1.Value = Val(TextBox1.Value) * -1
 
End If
End Sub

 

[نسورالجو]

شكرا استاذ عبدالفتاح جزاك الله خيرا