اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارجو التعديل على كود combox ليقرأ البيانات نصيه وليست قيم


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

السلام عليكم

خبراء الاكواد

اعرف ان الموضوع بسيط ولاكن حاولت اعدل على الكود ولم يزبط


On Error Resume Next

For i = 1 To 49

Me.Controls("TextBox" & i + 1) = Application.WorksheetFunction.VLookup(ComboBox1 + 0, Sheets("data").Range("A4:az5000"), i + 1, 0)

Next i

عند ظهور البيانات في التكست بوكس تظهر على شكل ارقام 0.333 0.6666

وهيا في الشيت كسور هكذا 1/3 2/3 واريد انت تظهر كما في الشيت

ارجو من لديه الخبره في هذه الجزئيه ان لابخل علينا

جزاكم الله عنا كل خير

رابط هذا التعليق
شارك

استاذي الحبيب عبدالله المجرب

هي كما قلت الفورمات كسور

ولاكن في التكست تظهر ارقام

واما استعراض البيانات عن طريق الليست بوكس ماشي حال 100%

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

رابط هذا التعليق
شارك

اخي ابو نصار

استبدل كودك السابق بهذا


Private Sub ComboBox1_Change()

'

On Error Resume Next

For i = 1 To 49

Me.Controls("TextBox" & i + 1) = Application.WorksheetFunction.VLookup(ComboBox1 + 0, Sheets("data").Range("A4:az5000"), i + 1, 0)


Me.Controls("TextBox" & i + 1).Text = Application.WorksheetFunction.Text(Me.Controls("TextBox" & i + 1).Text, "# ?/?")

Next i

End Sub

وان شاء الله يفي بالغرض

ابواحمد

رابط هذا التعليق
شارك

اخي العيدروس (ابو نصار) يمكنك ان تغير خواص الخلية الى نص يمكن تنفع

أخى /ابو عبد الله

الشكر لكم موصول

أخى أبو نصار

تم التغيير إلى نص على الملف الأول دون الدخول إلى الكود

نص 2.rar

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

الاستاذ القدير دغيدي فكره جميله تسلم

لاكن ياترى هل بيحسب الشرطه ككسر بمعن كذا 3-1 ثلث

انا شايف في المرفق لم يحسبها وانتم اهل الخبره

رابط هذا التعليق
شارك

تسلم عميدنا الغالي " المهندس دغيدي "

استاذنا " دينمو الموقع " ابو احمد

جزاكم الله كل الخير

وفقكم الله

ابو الحارث

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

السلام عليكم

اخواني في المنتدي

اعمال اكثر من رائعة وافكار متنوعة دائما نستفيد منها

جزاكم الله كل خير :fff: :fff: :fff:

تم عمل تعديل بسيط mahmoudfoxmam.rar

رابط هذا التعليق
شارك

السلام عليكم

تم رفع الملف السابق بالخطا

هذا هو الملف الصحيح

وتقبلوا مروري وشكرا

mahmoudfoxmam

تم عمل تعديل بسيط mahmoudfoxmam 2.rar

رابط هذا التعليق
شارك

السلام عليكم

تم رفع الملف السابق بالخطا

هذا هو الملف الصحيح

وتقبلوا مروري وشكرا

اخي محمود

السلام عليكم

للعلم فقط هناك معادلة لجمع القيم في الخانات واذا تم وضعها كنص فلن يتم جمع هذه القيم

لذا تم التعديل في الكود وليس في تنسيق الخلية

ابواحمد

رابط هذا التعليق
شارك

ماشاء الله تبارك الله

مجموعة كلها مميزة و اسماء رنانة ولها وزنها في المنتدى

وخاصة الدينمو

((ابو احمد الظاهر هذا اللقب رايح يلازمك))

جزاكم الله كل خير

رابط هذا التعليق
شارك

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

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



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

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

Important Information