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

(تمت الإجابة) كيفية تنسيق التكست بوكس مثل تنسيق الخلية


abouelhassan

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

الاساتذة الافاضل

سؤال

كيفية تنسيق التكست بوكس فى فورم تأخذ رقما من خلية بتسيق معين

كيف يمكن ان تظهر الارقام فى التكست بوكس بنفس تنسيقها بالخلية

بمعنى لو كان التنسيق بالخلية 1,252,478.25

اريده ان يظهر فى التكست بوكس التى بالفورم بنفس هذا التنسيق بدل من ان تظهر1252478.25

مع خالص احترامى

اخيكم

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

أخي العزيز / أبو الحسن

إلى جانب مشاركة الأخ العزيز باسم سعيد ، هذه فكرة أخرى لإثراء الموضوع .

تحياتي

تنسيق ونص التكستبوكس هو قيمة وتنسيق أي خلية مختارة بالورقة.rar

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

فتح الله عليكم

استاذ باسم سعيد استاذ ابو عبدالله

سؤال لدى فورم يجلب قيمة خلية

وتظهر الرقم بالتكست بوكس مثلا لو بالخلية 20.20

20.199999999

السؤال ما ذا اضيف للتكست بوكس ليظهر القيمة والتنسيق كما هما بالخلية كما هما دون اى تغير لا فى التنسيق ولا تقريب

احترام

الشديد جداااااااااااااا

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

استاذ / abouelhssan

لم اقراء مشاركة الاستاذ / ابو عبدالله

جيدا بعد اطلاعى على الملف يوجد به المطلوب ليك

قم بتعين تنسيق الخلية او النطاق المراد بحيث يكون التنسيق نص

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

اشكرك اخى شكرا جزيل بارك الله فيك

اخى

لدى كومبو بوكس به قائمة منسدلة وبجواره تكست بوكس

بالاختيار من الكومبو بوكس تظهر قيمة خلية 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

احترامى

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

للاسف غير مفهوم المطلوب ممكن ترسل ملف

لاقوم بمساعدتك وباقى الاخوة يستيطع المساعدة

وللعلم الكود الخاص ابو عبدالله بياخذ التنسيق من الخلية المحدده

والله ولى التوفيق

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

اشكرك اخى

جزيل الشكر ارسلت لحضرتك صورة لكبر حجم الملف

وهذا هو الكود المطلوب التعديل عليه


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

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

السلام عليكم

ربما هكذا


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

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

السلام عليكم

ربما هكذا


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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information