تعديل وتنسيق كود الأرقام

[M.NHAKAMI]

السلام عليكم  اخواني الخبراء عند استيراد البيانات المن الشيت إلى الفورم تظهر الارقام العشرية اكثر من منزله اريد كود يظهر الأرقام كماهي بالحقول اضح صوره توضح لكم الاختلاف بين البيانات المستورده من الشيت والارقام بالشيت لا اريد الارقام العشرية تظهر بالفورم كذلك الرقم التالي 100% في الحقل f6  يظهر بالفورم 1% ممكن التعديل  

الملف مرفق 

برنامج دراسة فندق.xlsm

تم تعديل سبتمبر 23, 2023 بواسطه M.NHAKAMI
تنسيق

[ميدو63]

اتبع الخطوات التالية:

File - Option - Advanced - When calculating this workbook - set precision as displayed - OK

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

@M.NHAKAMI

 ولكن  لماذا  كل هذه الاسطر  وعدم تنظيم  في  ارقام  الليبل ؟!

اقترح عليك  بجعل  ارقام  الليبل بشكل متتالي  حتى  تسهل  الامر  عليك ومن تم وضعها في حلقة تكرارية  ووضع الخلايا في مصفوفه 

على  اي حال  في  نهاية مدى كل خليه  ضع كلمة TEXT 

هذا مثال 

Label163.Caption = Sheets("دراسة فندق").Range("h6").Text 

 

تم تعديل سبتمبر 28, 2023 بواسطه عبدالفتاح في بي اكسيل

[محمد هشام.]

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

 

Private Sub CommandButton5_Click()
Dim ws As Worksheet: Set ws = Sheets("دراسة فندق")

Me.Label171.Caption = Format(ws.[F6].Text, "0,#%")
'Me.Label171.Caption = ws.Range("F6").Text  'دخل الحج
Me.Label167.Caption = ws.[G6].Text  'دخل الحج
Me.Label163.Caption = ws.[H6].Text  'دخل الحج
Me.Label187.Caption = ws.[I6].Text  'دخل الحج
Me.Label183.Caption = ws.[J6].Text  'دخل الحج
Me.Label179.Caption = ws.[K6].Text  'دخل الحج
Me.Label199.Caption = ws.[L6].Text  'دخل الحج
Me.Label195.Caption = ws.[M6].Text  'دخل الحج
Me.Label191.Caption = ws.[N6].Text  'دخل الحج

'رمضان
Me.Label169.Caption = Format(ws.[F7].Text, "0,#%") 'دخل رمضان
Me.Label165.Caption = ws.[G7].Text  'دخل رمضان
Me.Label161.Caption = ws.[H7].Text  'دخل رمضان
Me.Label185.Caption = ws.[I7].Text  'دخل رمضان
Me.Label181.Caption = ws.[J7].Text  'دخل رمضان
Me.Label177.Caption = ws.[K7].Text  'دخل رمضان
Me.Label197.Caption = ws.[L7].Text 'دخل رمضان
Me.Label193.Caption = ws.[M7].Text  'دخل رمضان
Me.Label189.Caption = ws.[N7].Text  'دخل رمضان

'مواسم رمضان
Label170.Caption = Format(ws.[F8].Text, "0,#%") 'دخل مواسم رمضان
Label166.Caption = ws.[G8].Text 'دخل مواسم رمضان
Label162.Caption = ws.[H8].Text  'دخل مواسم رمضان
Label186.Caption = ws.[I8].Text  'دخل مواسم رمضان
Label182.Caption = ws.[J8].Text 'دخل مواسم رمضان
Label178.Caption = ws.[K8].Text 'دخل مواسم رمضان
Label198.Caption = ws.[L8].Text 'دخل مواسم رمضان
Label194.Caption = ws.[M8].Text  'دخل مواسم رمضان
Label190.Caption = ws.[N8].Text  'دخل مواسم رمضان

End Sub

 

برنامج دراسة فندق_2.xlsm

تم تعديل سبتمبر 28, 2023 بواسطه محمد هشام.