تعديل فى كود اليوزرفورم

[Abo Sufiyan]

السلام عليكم ورحمة الله وبركاتة ..اخوتى الكرام ..ارجوا مساعدتى فى تعديل كود على اليوزرفورم

ws.Cells(LR, 1).Value = Me.A1.Value
ws.Cells(LR, 2).Value = Me.B1.Value
ws.Cells(LR, 3).Value = Me.C1.Value
ws.Cells(LR, 4).Value = Me.D1.Value
ws.Cells(LR, 5).Value = Me.e1.Value

حيث اريد بدلا من اخذ قيمة C1  تكون سالبة بمعنى اذا كان ال Text box C1 بها رقم 8 عند وضعها بصفحة الاكسيل تكون (-8)

 

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

[أ / محمد صالح]

لتحويل رقم من موجب إلى سالب يمكنك الضرب في سالب واحد

ws.Cells(LR, 3).Value = Me.C1.Value * -1

بالتوفيق

[Abo Sufiyan]

شكرا جدا لحضرتك