اريد كود لتنسيق تيكست بوكس يحتوى على مبالغ مالية

[AhmedSaeed01]

السلام عليكم ورحمة الله وبركاته 

كل عام وحضراتكم بخير

عندى 4 تيكست بوكس مربوطين بشيت لإظهارقيمة أربعة خلايا دون ترحيل او تعديل فقط إظهار المحتوى 

الأرقام تظهر بهذا الشهر 25000.45

اريد التنسيق ان يجعل الرقم يظهر بهذا الشكل

25,000.45

شكراً لحضراتكم 

[حسين مامون]

تفضل جرب

TEST20212021.xlsm

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

جرب هذا الكود

Option Explicit

Private Sub CommandButton1_Click()
Dim My_Format$
Dim I As Byte
My_Format = "#,##0.00"
With Sheets("TEST")
  For I = 1 To 4
    Me.Controls("TextBox" & I) = _
    Format(.Range("A3").Offset(I - 1), My_Format)
  Next
End With
End Sub

 

[AhmedSaeed01]

شاكر لحضرتك استاذ سليم انك منحتنى جزء من وقتك لحل مشكلتى، لكن بسبب انى كنت بعيد عن الكمبيوتر طوال اليوم ما قدرتش ابعت ملف يوضح المطلوب، انا فهمت من كود حضرتك إن فيه زر خاص لتنفيذ الأمر لكننى كنت أرغب ان يكون التنسيق بدون الضغط ان أمكن. 

المرفق يوضح مثال لشيت العمل الذى أرغب فى استخدام الكود عليه نظرا لكبر حجمه بعت المطلوب فى مثال بسيط. شكراً لحضرتك على الاهتمام. 

انا جربت ملف الاستاذ/ حسين لكنه لا يعمل بالشكل المطلوب، وله جزيل الشكر على المحاولة

REPORT.xlsb