اذهب الي المحتوي
أوفيسنا

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


M.NHAKAMI
إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

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

الملف مرفق 

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

تم تعديل بواسطه M.NHAKAMI
تنسيق
رابط هذا التعليق
شارك

  • أفضل إجابة

@M.NHAKAMI

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

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

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

هذا مثال 

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

 

تم تعديل بواسطه عبدالفتاح في بي اكسيل
  • Like 2
رابط هذا التعليق
شارك

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

169591863003251.png

 

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

تم تعديل بواسطه محمد هشام.
  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information