اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

 

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

 

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

 

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

 

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

 

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

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

 

وشكرا جزيلا

 

 

 

 

قام بنشر

شكرا اخى الكريم على الاهتمام

ولكنى كما ذكرت فى مشاركتى اننى استخدم اوفيس 2003

 

هل بامكان حضرتك العمل على نسخه 2003

وشكرا

قام بنشر

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

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

 

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

 

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

 

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

 

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

 

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

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

 

وشكرا جزيلا

 

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

قام بنشر

 

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

 

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

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

ام ماذا ؟؟

قام بنشر

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

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

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

مثال (10-12)

قام بنشر

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

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

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

مثال (10-12)

 

 

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

 

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

مثلا(12-10)

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

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

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

قام بنشر

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

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

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

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

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

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

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

قام بنشر

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

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

ماذا لو كانت البيانات نصيه في مربع النص 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