الـعيدروس قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 السلام عليكم خبراء الاكواد اعرف ان الموضوع بسيط ولاكن حاولت اعدل على الكود ولم يزبط 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 واريد انت تظهر كما في الشيت ارجو من لديه الخبره في هذه الجزئيه ان لابخل علينا جزاكم الله عنا كل خير
دغيدى قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 (معدل) أخى العيدروس ========== لم لا ترفق ملفا وانت سيد العارفين تم تعديل أكتوبر 16, 2011 بواسطه دغيدى
الـعيدروس قام بنشر أكتوبر 16, 2011 الكاتب قام بنشر أكتوبر 16, 2011 السلام عليكم الاستاذ القدير دغيدي حفظك الله ورعاك تفضل هذا المرفق نص.rar
عبدالله المجرب قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 اخي العيدروس (ابو نصار) يمكنك ان تغير خواص الخلية الى نص يمكن تنفع او كما قال العميد ارفق ملف
الـعيدروس قام بنشر أكتوبر 16, 2011 الكاتب قام بنشر أكتوبر 16, 2011 استاذي الحبيب عبدالله المجرب هي كما قلت الفورمات كسور ولاكن في التكست تظهر ارقام واما استعراض البيانات عن طريق الليست بوكس ماشي حال 100% بتظهر كما في الشيت ارجو منك الاطلاع على المرفق الذي في الرد السابق
عبدالله المجرب قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 اخي ابو نصار استبدل كودك السابق بهذا 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 وان شاء الله يفي بالغرض ابواحمد
الـعيدروس قام بنشر أكتوبر 16, 2011 الكاتب قام بنشر أكتوبر 16, 2011 حل لم اتخيله ابدا بارك الله فيك وزادك من علمه وفضله يعمل 100 % سلمت الانامل
عبدالله المجرب قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 الله يسلمك اخي ابو نصار لا شكر على واجب
دغيدى قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 (معدل) اخي العيدروس (ابو نصار) يمكنك ان تغير خواص الخلية الى نص يمكن تنفع أخى /ابو عبد الله الشكر لكم موصول أخى أبو نصار تم التغيير إلى نص على الملف الأول دون الدخول إلى الكود نص 2.rar تم تعديل أكتوبر 16, 2011 بواسطه دغيدى
saad abed قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 الاساتذة الاجلاء عبدالله المجرب م / دغيدى اشكركم على هذه الدروس القيمة تحياتى سعد عابد
الـعيدروس قام بنشر أكتوبر 16, 2011 الكاتب قام بنشر أكتوبر 16, 2011 الاستاذ القدير دغيدي فكره جميله تسلم لاكن ياترى هل بيحسب الشرطه ككسر بمعن كذا 3-1 ثلث انا شايف في المرفق لم يحسبها وانتم اهل الخبره
ياسر الحافظ قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 (معدل) تسلم عميدنا الغالي " المهندس دغيدي " استاذنا " دينمو الموقع " ابو احمد جزاكم الله كل الخير وفقكم الله ابو الحارث تم تعديل أكتوبر 16, 2011 بواسطه ياسر الحافظ
MAHMOUD ALI YOUSSEF قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 السلام عليكم اخواني في المنتدي اعمال اكثر من رائعة وافكار متنوعة دائما نستفيد منها جزاكم الله كل خير :fff: تم عمل تعديل بسيط mahmoudfoxmam.rar
MAHMOUD ALI YOUSSEF قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 السلام عليكم تم رفع الملف السابق بالخطا هذا هو الملف الصحيح وتقبلوا مروري وشكرا mahmoudfoxmam تم عمل تعديل بسيط mahmoudfoxmam 2.rar
ياسر الحافظ قام بنشر أكتوبر 16, 2011 قام بنشر أكتوبر 16, 2011 تسلم اخي محمود " ابو محمد " الغالي جزاك الله كل الخير وفقك الله ابو الحارث
عبدالله المجرب قام بنشر أكتوبر 17, 2011 قام بنشر أكتوبر 17, 2011 السلام عليكم تم رفع الملف السابق بالخطا هذا هو الملف الصحيح وتقبلوا مروري وشكرا اخي محمود السلام عليكم للعلم فقط هناك معادلة لجمع القيم في الخانات واذا تم وضعها كنص فلن يتم جمع هذه القيم لذا تم التعديل في الكود وليس في تنسيق الخلية ابواحمد
احمدزمان قام بنشر أكتوبر 17, 2011 قام بنشر أكتوبر 17, 2011 ماشاء الله تبارك الله مجموعة كلها مميزة و اسماء رنانة ولها وزنها في المنتدى وخاصة الدينمو ((ابو احمد الظاهر هذا اللقب رايح يلازمك)) جزاكم الله كل خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.