پرسش ارور دستور فرمت در یوزر فرم

[amin.t]

سلام بر دوستان و اساتید عزیز
من یه فایلی درست کردم که دارای یوزر فرمه و توی این یوزر فرم برای اعداد فرمت عددی و درصدی تعریف کردم ، حالا که ویندوزم رو عوض کردم و اومدم رو ادامه کد نویسی یوزر فرم کار کنم می بینم که فایل ارور فرمت عددی رو می گیره !
و هر کاریش که می کنم درست نمی شه ،دوستان کسی هست بنده رو راهنمایی بکنه ؟
باید چکار کنم که کدم رو ارور نگیره ؟
عکس از ارور آپ کردم

[Amir Ghasemiyan]

سلام دوست عزیز
من کل کدتون رو نمیبینم و درست متوجه نشدم L90 چی هست. اما بطور کلی برای اینکه فرمت سلول رو مشخص کنین از این کد باید استفاده کنید

Range("A1").NumberFormat = "yyyy/mm/dd;"

و یا اگه میخواین از فانکشن TEXT استفاده کنید به این صورت:

Range("A2").Formula = "=TEXT(A1,""yyy/mm/dd"")"

اگر کدتون رو بذارین شاید بشه بهتر راهنمایی کرد

[amin.t]

سلام دوست عزیز
من کل کدتون رو نمیبینم و درست متوجه نشدم L90 چی هست. اما بطور کلی برای اینکه فرمت سلول رو مشخص کنین از این کد باید استفاده کنید

Range("A1").NumberFormat = "yyyy/mm/dd;"

و یا اگه میخواین از فانکشن TEXT استفاده کنید به این صورت:

Range("A2").Formula = "=TEXTA1,""yyy/mm/dd"")"

اگر کدتون رو بذارین شاید بشه بهتر راهنمایی کرد

آقا امیر عزیز
L90 یک لبله ، در واقع مشکل برای تمام تکست باکسها و لبل هام وجود داره و فرمتی که بهشون می دم ارور می گیره
من می خوام فرمت مثلا L90ام بصورت عددی با حالت بدون اعشار و با جدا کننده سه رقم باشه و برای یه تکست باکی دیگه می خوام فرمتش بصورت درصد باشه با 2 عدد اعشار.
این عکس یوز فرمه و l90 رو سلکت کردم .



یه فایل نمونه هم آپ کردم بصورت اکسل که بصورت RAR فشرده شده


توی فایل تمام کدهای مثل اینرو ارور می گیره :

L90.Caption = Format(L90, "#,###0")
     VB.Text = Format(VB, "#,###0")
     PTAE.Caption = Format(PTAE, "#,###0")
     PE.Caption = Format(PE, "#,###0")
     PTE.Caption = Format(PTE, "#,###0")
     VE.Caption = Format(VE, "#,###0")
          PRPSE.Caption = Format(PRPSE, "0.00%")

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

Private Sub UserForm_Initialize()

L90 = Range("A1")

Me.L90.Caption = Format(L90, "#,0.000")


End Sub