ارجو المساعده فى التيكست بوكس

[إبراهيم ابوليله]

السلام عليكم ورحمة الله وبركاته

الاخوه الافاضل

كل عام وانتم بخير

اريد عند الكتابه فى التيكست

تكود الكتابه بهذا الشكل

=5*2

ثم عند الخروج من التيكست

يصبح الناتج

10

هل يمكن عمل ذلك

[عبدالله باقشير]

السلام عليكم

 

جرب هذه

المرفق 2003

AAAAA.rar

[إبراهيم ابوليله]

السلام عليكم ورحمة الله وبركاته

اخى واستاذنا

عبدالله بارك

الله فيك

ما شاء الله عليك

نسأل الله ان يزيدك من فضله وعلمه

--------------------------------------

ولكن هل هناك طريقه

دون الحاجه الى استخدام خلايا الاكسيل

[عبدالله باقشير]

السلام عليكم ورحمة الله وبركاته

اخى واستاذنا

عبدالله بارك

الله فيك

ما شاء الله عليك

نسأل الله ان يزيدك من فضله وعلمه

--------------------------------------

ولكن هل هناك طريقه

دون الحاجه الى استخدام خلايا الاكسيل

 

 

جزااك الله خيرا

تفضل جرب هذا

Private Sub TextBox1_AfterUpdate()
On Error GoTo 1
Me.TextBox1 = Evaluate(CStr(Me.TextBox1))
1
End Sub

مع العلم انه يمكنك وضع المعادلة بدون استخدام علامة المساوى "="

 

يعني ممكن تكتب   6*8

 

 

تحياتي

BBBB.rar

[إبراهيم ابوليله]

جزااك الله خيرا

تفضل جرب هذا

Private Sub TextBox1_AfterUpdate()
On Error GoTo 1
Me.TextBox1 = Evaluate(CStr(Me.TextBox1))
1
End Sub

مع العلم انه يمكنك وضع المعادلة بدون استخدام علامة المساوى "="

 

يعني ممكن تكتب   6*8

 

 

تحياتي

 

اخى واستاذنا عبدالله

اشكرك على سعة صدرك

وهذا ماتعودناه من اساتذتنا فى هذا المنتدى

ولكن هل يمكن تفعيل الزر

لادخال قيمة التيكست

الى الشيت مثلا فى الخليه  a1

بحيث عند الضغط على الخليه مرتين

تظهر القيمه بداخلها (اى تظهر المعادله)

مثلا

لو ان قيمة الخليه 10

عند الضغط مرتين تظهر =2*5

اى كما تم ادخالها فى التيكست

وقبل ان تتحول الى رقم

[عبدالله باقشير]

السلام عليكم

 

جرب التالي

Private Sub CommandButton1_Click()
[a1] = Me.TextBox1.Tag
End Sub

Private Sub TextBox1_AfterUpdate()
On Error GoTo 1
With Me.TextBox1
    .Tag = .Value
    .Value = Evaluate(CStr(.Value))
End With
1
End Sub

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا عبدلله

اشكرك على صعة صدرك

بارك الله فيك

ولكن باقى تحقق المطلوب الثانى

وهو

بحيث عند الضغط على الخليه مرتين

تظهر القيمه بداخلها (اى تظهر المعادله)

مثلا

لو ان قيمة الخليه 10

عند الضغط مرتين تظهر =2*5

اى كما تم ادخالها فى التيكست

وقبل ان تتحول الى رقم

[عبدالله باقشير]

اعذرني......   لم افهم ماذا تريد بالضبط

[إبراهيم ابوليله]

اخى واستاذنا عبدالله

السلام عليكم ورحمه الله وبركاته

-----------------------------------

نفترض اننى قمت بكتابة المعادله الاتيه فى التيكست

=5*2

اريد الاتى

1-بعد الخروج من التيكست تصبح قيمه التيكست 10

  وهذا المطلوب قد تفضلت انت بعمله

2-اريد بعد الخروج من التيكست وعند الرجوع اليها مره اخرى والضغط دبل كليك داخل التيكست

   ارى المعادله التى تم ادخالها من قبل  =2*5

  اى كما يحدث مع الخلايا فى الاكسيل

هل يمكن عمل المطلوب الثانى

[عبدالله باقشير]

اخى واستاذنا عبدالله

السلام عليكم ورحمه الله وبركاته

-----------------------------------

نفترض اننى قمت بكتابة المعادله الاتيه فى التيكست

=5*2

اريد الاتى

1-بعد الخروج من التيكست تصبح قيمه التيكست 10

  وهذا المطلوب قد تفضلت انت بعمله

2-اريد بعد الخروج من التيكست وعند الرجوع اليها مره اخرى والضغط دبل كليك داخل التيكست

   ارى المعادله التى تم ادخالها من قبل  =2*5

  اى كما يحدث مع الخلايا فى الاكسيل

هل يمكن عمل المطلوب الثانى

 

اضف الكود التالي

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
With Me.TextBox1
    .Value = .Tag
End With
End Sub

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا عبدالله

بارك الله فيك موضوع جيد جدا

وصبر جميل منك

نسأل الله ان يزيدك من فضله وعلمه

ويديم عليك الصحه والعافيه

وكل عام وانت بخير

--------------------------------------

واذا امكن شرح

 .Tag = .Value
    .Value = Evaluate(CStr(.Value))

تحياتى لك

[عبدالله باقشير]

السلام عليكم

 

Tag  مكان متاح مع اغلب الكائنات لتخزين اي معلومة فيه

 

Evaluate  خاصية لتحويل المعادلة الى قيم او قيمة واحدة حسب ناتج المعادلة

يعني مثل خاصية الاسماء في الاكسل

 

عمل الكود يقوم بحفظ المعادلة في Tag ثم يقوم بتحويلها الى قيمة .في مكان كتابتها