كيف أرحّل الأرقام من textbox بصيغة معينة؟

[المتأمل الحسني]

السلام عليكم... أسعد االله ايامكم جميعا و عيدكم مبارك..

 

عندما أكتب رقم في ال تكست بوكس بهذا الشكل: 001   يرحله إلى الخلية هكذا: 1

المطلوب أن يرحل الرقم كما هو هكذا: 001

 

هل هناك حل؟ مع الشكر للجميع

[أبو حنــــين]

Private Sub CommandButton1_Click()

With Range("B2")
.Value = TextBox1.Value: .NumberFormat = "00#"
End With

End Sub

استعمل هذا الكود

 

[ياسر خليل أبو البراء]

أو يمكن تنسيق الخلايا التي سيتم الترحيل إليها مسبقاً ..