abouelhassan قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 (معدل) الاساتذة الافاضل سؤال كيفية تنسيق التكست بوكس فى فورم تأخذ رقما من خلية بتسيق معين كيف يمكن ان تظهر الارقام فى التكست بوكس بنفس تنسيقها بالخلية بمعنى لو كان التنسيق بالخلية 1,252,478.25 اريده ان يظهر فى التكست بوكس التى بالفورم بنفس هذا التنسيق بدل من ان تظهر1252478.25 مع خالص احترامى اخيكم تم تعديل نوفمبر 27, 2011 بواسطه abouelhssan
basem said قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 اتمنى ان يكون هذا طلب حضرتك New Microsoft Office Excel Worksheet (2).rar
أبوعبد الله قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 أخي العزيز / أبو الحسن إلى جانب مشاركة الأخ العزيز باسم سعيد ، هذه فكرة أخرى لإثراء الموضوع . تحياتي تنسيق ونص التكستبوكس هو قيمة وتنسيق أي خلية مختارة بالورقة.rar
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 فتح الله عليكم استاذ باسم سعيد استاذ ابو عبدالله سؤال لدى فورم يجلب قيمة خلية وتظهر الرقم بالتكست بوكس مثلا لو بالخلية 20.20 20.199999999 السؤال ما ذا اضيف للتكست بوكس ليظهر القيمة والتنسيق كما هما بالخلية كما هما دون اى تغير لا فى التنسيق ولا تقريب احترام الشديد جداااااااااااااا
basem said قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 شاهد المرفق اتمنى ان يكون كما تريد New Microsoft Office Excel Worksheet (2).rar
basem said قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 (معدل) استاذ / abouelhssan لم اقراء مشاركة الاستاذ / ابو عبدالله جيدا بعد اطلاعى على الملف يوجد به المطلوب ليك قم بتعين تنسيق الخلية او النطاق المراد بحيث يكون التنسيق نص تم تعديل نوفمبر 27, 2011 بواسطه باسم سعيد
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 (معدل) اشكرك اخى شكرا جزيل بارك الله فيك اخى لدى كومبو بوكس به قائمة منسدلة وبجواره تكست بوكس بالاختيار من الكومبو بوكس تظهر قيمة خلية I4 فى ورقة العمل المحددة الرقم فى I4على هذا الشكل 5,555,555,55 يظهر بالفورم على هذا الشكل 5555555.5499999999999999 اريد الفورم يكون مثل الخلية 5,555,555,55 مع العلم انها قيمة متغيرة ممكن حضرتك تشرحلى ما اضيفه لوتسمح اخى وهذا هو الكود Private Sub ComboBox2_Change() x = ComboBox2.Value If x = "" Then Exit Sub TextBox13.Value = Sheets(x).Range("I5").Value End Sub احترامى تم تعديل نوفمبر 27, 2011 بواسطه abouelhssan
basem said قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 للاسف غير مفهوم المطلوب ممكن ترسل ملف لاقوم بمساعدتك وباقى الاخوة يستيطع المساعدة وللعلم الكود الخاص ابو عبدالله بياخذ التنسيق من الخلية المحدده والله ولى التوفيق
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 (معدل) اشكرك اخى جزيل الشكر ارسلت لحضرتك صورة لكبر حجم الملف وهذا هو الكود المطلوب التعديل عليه Private Sub ComboBox2_Change() On Error Resume Next x = ComboBox2.Value If x = "" Then Exit Sub TextBox13.Value = Sheets(x).Range("I4").Value End Sub Untitled.rar تم تعديل نوفمبر 27, 2011 بواسطه abouelhssan
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 تم العمل الحمدلله احترامى لكم جميعا اخوانى الاساتذة الافاضل
الـعيدروس قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 السلام عليكم ربما هكذا Private Sub ComboBox2_Change() On Error Resume Next x = ComboBox2.Value If x = "" Then Exit Sub TextBox13.Text = Format(TextBox13.Text, "#,##0") = Sheets(x).Range("I4").Value End Sub
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 السلام عليكم ربما هكذا Private Sub ComboBox2_Change() On Error Resume Next x = ComboBox2.Value If x = "" Then Exit Sub TextBox13.Text = Format(TextBox13.Text, "#,##0") = Sheets(x).Range("I4").Value End Sub فعلا اخى صحيح تسلم ايدك اغرقتنا بالروائع احترامى الشديد لشخصك الكريم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.