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

تنسيق مربع نص


dr_bioman
إذهب إلى أفضل إجابة Solved by رمهان,

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

السلام عليكم مشرفى واعضاء المنتدى الغالى

لى استفسار لو تكرمتم

 

انا استخدم اوفيس 2003

 

لو عندى مربع نص  A ونوع بياناته نص (لانى وارد اكنب فيه نص)

 

فيه قيمتين مثلا (12-16) وهذه الفيم غير ثابته يعنى ممكن اغيرها

 

وعندى مربع نص اخر B ونوع بياناته نص  وفيه رقم 10

 

اريد اذا كانت قيمت B اصغر من اضغر قيمه فى A  ان تكون B لونها ازرق

واذا كانت B  اكبر من اكبر قيمه فى A  تصبح B  لونها احمر

 

وشكرا جزيلا

 

 

 

 

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

السلام عليكم مشرفى واعضاء المنتدى الغالى

لى استفسار لو تكرمتم

 

انا استخدم اوفيس 2003

 

لو عندى مربع نص  A ونوع بياناته نص (لانى وارد اكنب فيه نص)

 

فيه قيمتين مثلا (12-16) وهذه الفيم غير ثابته يعنى ممكن اغيرها

 

وعندى مربع نص اخر B ونوع بياناته نص  وفيه رقم 10

 

اريد اذا كانت قيمت B اصغر من اضغر قيمه فى A  ان تكون B لونها ازرق

واذا كانت B  اكبر من اكبر قيمه فى A  تصبح B  لونها احمر

 

وشكرا جزيلا

 

اتوقع استاذ مارد انه يقصد قيمتين في مربع واحد !! فهل هذا صحيح يا دكتور ! فاذا كان صحيح هل العلامة - هي الفاصل بين الرقمين ام ان هناك علامات اخرى ؟!! 

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

 

اتوقع استاذ مارد انه يقصد قيمتين في مربع واحد !! فهل هذا صحيح يا دكتور ! فاذا كان صحيح هل العلامة - هي الفاصل بين الرقمين ام ان هناك علامات اخرى ؟!! 

 

شكرا اخى رمهان واضيف سؤالا اخر

اى قيمة تريد التعامل معها او تريد جمع القيمتين

ام ماذا ؟؟

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

أساتذتي مارد و رمهان

شكرا على التجاوب

فعلا انا عند قيمتين في مربع نص واحد ويفصل بينهم العلامه (-)

مثال (10-12)

 

 

اخى الكريم اعزرنى لضيق فهمى

 

اذا كان الحقل به قيمتين مفصولتين ب (-)

مثلا(12-10)

وقيمة B هى 11 مثلا

ف قيمة  ا B كبر من 10 واقل من 11 

فماذا افعل بالظبط على اى رقم اقارن

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

لو عندي A=(10-12)

لو قيمة B أصغر من أصغر قيمة في A. اللي هي هنا 10

تصبح B لونها ازرق

ولو كانت B أكبر من أكبر قيمة في A اللي هي هنا 12

تصبح B لونها احمر

ولو كانت B تقع بين القيمتين  (10-12)او تساوي اي منهما

تبقى B بدون تنسيق

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

عزيزي 

انظر التنسيق الشرطي !

 

بالتوفيق

New Microsoft Access قاعدة بيانات.rar

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

تسلم اخي رمهان

بس ليا استفسار

ماذا لو كانت البيانات نصيه في مربع النص A

يعني مثلا A= less than 200

  لو كانت B أكبر من او يساوي الرقم الموجود في A اللي هو هنا 200

تصبح B لونها احمر

مع العلم ان الرقم في Aمتغير

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

مافيه مشكلة ! بمعنى لن يوجد رقمين في a انما جملة less than 200  طبعا والرقم متغير والجملة متغيرة! 

وهل هناك جملة greeter than 200  ويصبح لون النص شي اخر !

 

ولو سمحت انت شو هوه اللي قاعد تعمله! ابي افهم القصة ! هل هو برنامج يقرأ نتائج اجهزة طبية ؟؟ ام ماذا ؟؟

 

الاستفسارات اللي زي كذا بتشغل البطيخة بتاعتنا على قولة الاستاذة زهرة !!

 

تحياتي

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

استاذي الغالي رمهان بك

انا عارف اني نقلت عليك حبتين

بالفعل هو برنامج يقرأ نتائج تحاليل طبيه

كانت هناك مشكلتين

الأولى أن ممكن مربع النص A يحتوي على ارقام وبالفعل سيادتكم أبدعت في حلها زادك الله

والثانيه أن مربع النص ممكن يحتوي جمله في محتواها رقم

وفي هذه الحاله سيكون الجمله هي less than يغني أصغر من.

والرقم اللي معاها ممكن يتغير يعني هكذا

Less than 200

Less than 6

وهكذا

ما اريده لو كان الرقم في مربع النص B أكبر من او حتى يساوي الرقم اللي في الجمله اللي في A

تصبح B لونها احمر

فقط ولا يوجد لدينا جملة greater than

ارجوا ان تتقبل اعتذاري على إطالة الموضوع

وشكرا جزيلا

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

اوك

عدل على التنسيق الشرطي السابق بحذف شرط الخلفية الزرقاء وتعديل شرط الخلفية الحمراء الى

Val([t2])>=Val(Right([t1];Len([t1])-10))

بالتوفيق

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

بسم الله ماشاء الله ايه الحلاوه دى

المثال يعمل فوق الممتاز

 

حاولت تطبيق كلام حضرتك ولكن بالكود وليس باتنسيق الشرطى وذلك لغرض ما

استجاب فى حالة كون مربع النص A  به ارقام فقط

 

ارفقت لحضرتك القاعده ان كان عند حضرتك وقت شوفها

ماكانش والله ماقصرت وجزاك الله كل الخير

وانا بصراحه مش عارف اشكر حضرتك ازاى لقد فرجت عنى مشكله كنت عاجز عن حلها

الى الامام وبالتوقيق دائما

Tanseek by code.rar

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

ولا يهمك يادكتور !

ماذا تريد ان تنفذ بالكود ؟ كل الشروط الثلاثة ؟ ام أي شرط فيهم ؟

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

استاذي رمهان بك

اريد بالفعل الثلاثة شروط بالكود وليس تنسيق شرطي

هل يمكن الاستعانه بجملة select case

لاني ممكن اطبق المثال على أكثر من موضوع لذلك أريد عند تحقيق الشرط أن يتم تنفيذ حدث معين

ولا اريده من التنسيق الشرطي

دمت بالف صحه وعافيه واسف على التاخير في الرد نظرا لظروف عملي

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

  • أفضل إجابة

تفضل

 

لاحظ: النظام يشيك اولا على محتوى t1  فاذا وجد - نمر بشروطها او less than  ويمر بشروطها !

Private Sub t2_AfterUpdate()
If InStr(1, [t1], "-") > 0 Then
If (Val([t2]) > Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) > Val(Left([t1], InStr(1, [t1], "-") - 1))) Then
t2.BackColor = vbRed
ElseIf (Val([t2]) < Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) < Val(Left([t1], InStr(1, [t1], "-") - 1))) Then
t2.BackColor = vbBlue
Else
t2.BackColor = vbWhite
Exit Sub
End If
End If
If InStr(1, [t1], "than ") > 0 Then
If Val([t2]) >= Val(Right([t1], Len([t1]) - 10)) Then
t2.BackColor = vbRed
Else
t2.BackColor = vbWhite
End If
End If
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