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

كيف اجل قيمه افتراضيه تتغير تسلسليا ل الـ TextBox


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

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

لدي سؤالان الول

اريد ان اجعل ل TextBox معين قيمه افتراضيه تتغير تسلسايا (تصاعدي)

مثال : TextBox لرقم الفاتوره

رقم اخر فاتوره وليكن 60

عند عمل فاتوره جديده يتحول الرقم في التيكست بوكس الخاص برقم الفاتورة من 60 الى 61 وهكذا 

هل يوجد كود لعمل مثل هذا 

و الثاني 

اريد كود لقفل الـ TextBox وعدم مقدره المستخدم للتعديل عليه 

وكود اخر لجعل الـ TextBox لا يقبل الارقام 

وتقبلو تحياتي (: 

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

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

تفضّل أخى الكريم بعض المحاولات ربما تفي بالغرض ..

1- كود التّرقيم التّلقائي بالتاكست بوكس :

Sub Tasselssol() 'tassalssol numerique
mm = 5     
Do Until Feuil1.Cells(mm, "a").Text = ""   
mm = mm + 1
Loop
TextBox1.Value = mm + 1 - 5
End Sub

Private Sub UserForm_Initialize()
Tasselssol
End Sub

على أساس رقم الصف بالشيت هو الصف الخامس (5) و العمود الأوّل (a) ..واسم الشيت Feuil1

ملاحظة : يجب كتابة و إضافة  عبارة " Tasselssol " بآخر سطر بالكود الذي سوف تستعمله  

- تعطيل الكتابة داخل التاكست بوكس .. يمكنك استعمال هذه الخاصّية :

5.jpg

3 - عدم قبول الأرقام بالتاكست بوكس .. بإمكانك استعمال هذا الكود :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32 To 64, 91 To 96, 123 To 126
MsgBox ("إنتبه.. يجب كتابة الحروف فقط")
KeyAscii = 0
Exit Sub
End Select
End Sub

خالص تحيّاتي

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

5 ساعات مضت, عبد العزيز البسكري said:

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

تفضّل أخى الكريم بعض المحاولات ربما تفي بالغرض ..

1- كود التّرقيم التّلقائي بالتاكست بوكس :


Sub Tasselssol() 'tassalssol numerique
mm = 5     
Do Until Feuil1.Cells(mm, "a").Text = ""   
mm = mm + 1
Loop
TextBox1.Value = mm + 1 - 5
End Sub

Private Sub UserForm_Initialize()
Tasselssol
End Sub

على أساس رقم الصف بالشيت هو الصف الخامس (5) و العمود الأوّل (a) ..واسم الشيت Feuil1

ملاحظة : يجب كتابة و إضافة  عبارة " Tasselssol " بآخر سطر بالكود الذي سوف تستعمله  

- تعطيل الكتابة داخل التاكست بوكس .. يمكنك استعمال هذه الخاصّية :

5.jpg

3 - عدم قبول الأرقام بالتاكست بوكس .. بإمكانك استعمال هذا الكود :


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32 To 64, 91 To 96, 123 To 126
MsgBox ("إنتبه.. يجب كتابة الحروف فقط")
KeyAscii = 0
Exit Sub
End Select
End Sub

خالص تحيّاتي

مشكوووور اخي 

عبد العزيز البسكري

على هذا الوقت الثمين و ذلك المجهود 

زبط معي كل شي

إلا اول كود لم افهمه هل اضع الكود في الزر الخاص ب عمل فتوره جديده ؟ ام اضع الكود في الـ TextBox الخاص برقم الفتوره 

وياريت اذا ما اثقلت عليك ان تعلمني كيف اجعل الكود الاخير لا يقبل الحروف 

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

 

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

العفو أخي الكريم

1 - كود جعل التاكست بوكس لا يقبل الحروف :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
End Sub

2 - التّرقيم التّلقائي ..ستجد بالملف المرفق .. 2 أنواع من الأكواد بطريقة مبسطة .. إختر الكود الأول أو الكود الثاني

بالتّوفيق إن شاء الله

 

الترقيم التسلسلي بالفورم.rar

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

9 ساعات مضت, عبد العزيز البسكري said:

العفو أخي الكريم

1 - كود جعل التاكست بوكس لا يقبل الحروف :


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
End Sub

2 - التّرقيم التّلقائي ..ستجد بالملف المرفق .. 2 أنواع من الأكواد بطريقة مبسطة .. إختر الكود الأول أو الكود الثاني

بالتّوفيق إن شاء الله

 

الترقيم التسلسلي بالفورم.rar

ماشاء الله تبارك الله عمل اكثر من رائع و محترف جدا اشكرك جزيل الشكر اخي

عبد العزيز البسكري

لقد تم عمل المطلوب اخي الفاضل ارجو ان يوفقك الله لكل خير اخي الغالي 

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

بارك الله فيك أخي الغالي عبد العزيز

حاول تطرح موضوعات تعليمية بشكل عام ليستفيد الجميع مما لديك من خبرات

تقبل وافر تقديري واحترامي

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

في ٥‏/٥‏/٢٠١٦ at 01:37, ياسر خليل أبو البراء said:

بارك الله فيك أخي الغالي عبد العزيز

حاول تطرح موضوعات تعليمية بشكل عام ليستفيد الجميع مما لديك من خبرات

تقبل وافر تقديري واحترامي

كيف ذالك هل اطرحه في المنتدى العام ؟؟ 

لاني جديد في الموقع 

 

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

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.

×
×
  • اضف...

Important Information