أبوســـارة1973 قام بنشر مايو 1, 2011 مشاركة قام بنشر مايو 1, 2011 Private Sub TextBox20_Change() TextBox39.Value = Val(TextBox14.Value) + Val(TextBox16.Value) + Val(TextBox18.Value) + Val(TextBox20.Value) + Val(TextBox22.Value) + Val(TextBox24.Value) + Val(TextBox26.Value) TextBox35.Value = Val(TextBox2.Value) + Val(TextBox4.Value) + Val(TextBox6.Value) + Val(TextBox8.Value) + Val(TextBox10.Value) + Val(TextBox12.Value) + Val(TextBox14.Value) + Val(TextBox16.Value) + Val(TextBox18.Value) + Val(TextBox20.Value) + Val(TextBox22.Value) + Val(TextBox24.Value) + Val(TextBox26.Value) + Val(TextBox28.Value) + Val(TextBox30.Value) + Val(TextBox32.Value) End Sub أريد التعديل على هذا الكود ليقوم أيضا بتحديد أكبر قيمة مسموح بإدخالها في التكست بوكس أو إذا كانت هناك طريقة يمكن تحديد من خلال ( properties) الخاص بالتكست بوكس في انتظار ردكم رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 1, 2011 مشاركة قام بنشر مايو 1, 2011 أريد التعديل على هذا الكود ليقوم أيضا بتحديد أكبر قيمة مسموح بإدخالها في التكست بوكس أو إذا كانت هناك طريقة يمكن تحديد من خلال ( properties) الخاص بالتكست بوكس في انتظار ردكم اخي ابو سارة اذا كان المقصود بعدد الارقام التي يمكن ادخالها في التكست بوكس مثلا ثلاثة ارقام كحد اعلى او اربعة ارقام كحد اعلى فيمكنك من خلال properties والصورة المرفقة توضح ذلك توضيح.rar رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر مايو 1, 2011 الكاتب مشاركة قام بنشر مايو 1, 2011 (معدل) شكرا أخي يا بن وطني الحبيب المقصود من الحد الأعلى = أكبر قيمة maximum وليكن مثلاً أن المطلوب إدخاله في التكست بوكس 1 يجب أن لاتكون أكبر من 10 بمعنى أن القيم المسموح بإدخالها في التكست بوكس1 هي الاعداد من ( 0 - 10 ) تم تعديل مايو 1, 2011 بواسطه abusarah73 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 1, 2011 مشاركة قام بنشر مايو 1, 2011 شكرا أخي يا بن وطني الحبيب المقصود من الحد الأعلى = أكبر قيمة maximum وليكن مثلاً أن المطلوب إدخاله في التكست بوكس 1 يجب أن لاتكون أكبر من 10 بمعنى أن القيم المسموح بإدخالها في التكست بوكس1 هي الاعداد من ( 0 - 10 ) اخي ابو سارة الكود المرفق (منقول) يمكنك تغيير رقم التكست بوكس الذي تريد تحديد الارقام من 1 الى 10 فيه Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value > 10 Then TextBox1 = "" MsgBox "يمكنك ادخال الارقام من 1 الى 10 فقط" End If End Sub ابو احمد رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 1, 2011 مشاركة قام بنشر مايو 1, 2011 السلام عليكم ورحمة الله و بركاته اخي الحبيب / أبو أحمد جزاك الله كل خير .. و ربنا يوفقك و دائماً للأمام و الله الموفق و المستعان و السلام عليكم ورحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان