mra63 قام بنشر مارس 6, 2022 مشاركة قام بنشر مارس 6, 2022 الرجاء من الاساتذة الكرام كود لتلوين التكست بوكس باللون الاصفر ان كان فارغاً والعكس باللون الأبيض اي ان التكسات الفارغة تكون باللون الاصفر . مشكورين جداً . رابط هذا التعليق شارك More sharing options...
Jasmin قام بنشر مارس 7, 2022 مشاركة قام بنشر مارس 7, 2022 أخي: 1- لماذا لا تستعمل Conditional formatting ؟ 2- هل وضعت معادلات بال text box أو لا اذا كنت مصراً عالكود فتفضّل: Sub Color_blank_cells() 'declare variables Dim ws As Worksheet Dim ColorRng As Range Set ws = Worksheets("Analysis") Set ColorRng = ws.Range("B3:C9") 'color blank cells ColorRng.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(220, 230, 241) End Sub طبعا تغيّر اللون من RGB(220, 230, 241) مثل ما تريد 2 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مارس 7, 2022 مشاركة قام بنشر مارس 7, 2022 السلام عليكم أخي الكريم أخي الكريم ضع شرطاً للتكست بوكس إن كان فارغاً لونه بالأصفر وإلا باللون الأبيض Private Sub TextBox1_Change() If TextBox1.Value = "" Then TextBox1.BackColor = vbYellow Else TextBox1.BackColor = vbWhite End If End Sub كما هو معروض في الصورة التالية: تقبل تحياتي والسلام عليكم 3 رابط هذا التعليق شارك More sharing options...
mra63 قام بنشر مارس 7, 2022 الكاتب مشاركة قام بنشر مارس 7, 2022 الأخت / جاسمين انا اقصد التكست بوكس في اليوزرفورم وعلي العموم شكراً لك علي الاهتمام الأخ / محمد حسن محمود شكراً لك كتبت هذا الكود مرات عديدة وهو لا يعمل بصورة جيدة في التكست بوكس وفي جميع الاوضاع وعملته في اليوزرفوم في وضع الانشيلايز . مشكورين كلكم علي الاهتمام . رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد حسن المحمد قام بنشر مارس 7, 2022 أفضل إجابة مشاركة قام بنشر مارس 7, 2022 السلام عليكم جرّب أخي الكريم وأخبرني النتيجة تم التعديل على لون التيكست فورم.xlsm 4 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 7, 2022 مشاركة قام بنشر مارس 7, 2022 @mra63 لا ادري لماذا اصرارك على عدم ادراج ملف وانشاء يوزرفورم حتى يستطيع الاخرين مساعدتك . عالعموم انشأ يوزفورم به اثنان تيكست بوكس وقم بالنقر مرتين على اليوزفورم والصق هذه الاكواد كاملة . عند تشغيل اليوزرفورم سيتم تلوين textbox1,2 باللون الاصفر و اذا كتبت في احدهم سيتلون بالابيض . Private Sub TextBox1_Change() If TextBox1.Text <> "" Then TextBox1.BackColor = RGB(255, 255, 255) Else TextBox1.BackColor = RGB(255, 255, 0) End If End Sub Private Sub TextBox2_Change() If TextBox2.Text <> "" Then TextBox2.BackColor = RGB(255, 255, 255) Else TextBox2.BackColor = RGB(255, 255, 0) End If End Sub Private Sub UserForm_Initialize() TextBox1.BackColor = RGB(255, 255, 0) TextBox2.BackColor = RGB(255, 255, 0) End Sub 3 رابط هذا التعليق شارك More sharing options...
mra63 قام بنشر مارس 7, 2022 الكاتب مشاركة قام بنشر مارس 7, 2022 شكراً الاستاذ محمد حسن المحمد الكود ناجح وشكراً للأستاذ عبدالفتاح الكود ناجح بارك الله فيكم سأختار كود الاستاذ محمد حسن كافضل اجابة نظراً لبساطة الكود . وان شاء الله سوف ارفق ملف مرة أخري . 2 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مارس 7, 2022 مشاركة قام بنشر مارس 7, 2022 السلام عليكم ورحمة الله وبركاته 💐 الحمد لله الذي بنعمته تتم الصالحات الشكر للجميع كل في مساهمته تقبل تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 🏵️ 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان