الكود:


   Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       Select Case e.KeyChar
           Case "ء" To "ي", "A" To "z", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

الكود:


   Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress
       Select Case e.KeyChar
           Case "0" To "9", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

الكود:


  Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
       Select Case e.KeyChar
           Case "ء" To "ي", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

الكود:



  Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress
       Select Case e.KeyChar
           Case "A" To "z", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub



abushuber كتب:شكرا لك اخي العزيز ..سؤالي هل تظهر نتائج البحث في الليست بوكس مثلا عند الكتابة بالحروف الصغيرة والكبيرة في التيست بوكس ام الكبيرة او الصغيرة فقط....في حال استخدام كود اللغة الانكليزية

الكود:

 Dim strings() As String = {"b", "c"}
        If strings.Contains(TextBox1.Text.ToLower) Then
            TextBox1.Text = " found"
        Else
         
            TextBox1.Text = " not found"

                End If


abushuber كتب:شكرا لك اخي العزيز..طبقت الكود لكن ظهرت لي مشكلة...اخي ممكن مساعدتي سارسل لك الملف الذي اعمل عليه وطبق انت الكود عليه...حيث توجد لست بوكس تحتوي اسماء بالعربي والانكليزي وبالحروف الصغيرة والكبيرة...اريد عند كتابة اول حرف بالتكست بوكس تظهر النتائج ع الليست بوكس اعتمادا ع اول حرف.... بغض النظر عن شكل الحرف كبير او صغير ...https://www.mediafire.com/file/31s692azv1700fo/%u0628%u062D%u062B_%u0628%u0627%u0644%u0627%u0633%u06451_-.rar/fileياريت المساعدة واعادة ارسال الملف لي..

استاذ هذا الرابط اذا لم يعمل....
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

abushuber كتب:شكرا لك اخي العزيز..طبقت الكود لكن ظهرت لي مشكلة...اخي ممكن مساعدتي سارسل لك الملف الذي اعمل عليه وطبق انت الكود عليه...حيث توجد لست بوكس تحتوي اسماء بالعربي والانكليزي وبالحروف الصغيرة والكبيرة...اريد عند كتابة اول حرف بالتكست بوكس تظهر النتائج ع الليست بوكس اعتمادا ع اول حرف.... بغض النظر عن شكل الحرف كبير او صغير ...https://www.mediafire.com/file/31s692azv1700fo/%u0628%u062D%u062B_%u0628%u0627%u0644%u0627%u0633%u06451_-.rar/fileياريت المساعدة واعادة ارسال الملف لي..

استاذ هذا الرابط اذا لم يعمل....
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

زهراء كتب:

abushuber كتب:شكرا لك اخي العزيز ..سؤالي هل تظهر نتائج البحث في الليست بوكس مثلا عند الكتابة بالحروف الصغيرة والكبيرة في التيست بوكس ام الكبيرة او الصغيرة فقط....في حال استخدام كود اللغة الانكليزية

لا تختلف نتيجة البحث فى بيئة الدوت نت سواء كانت الاحرف كبيرة أم صغير ....وهذا مثال بسيط للبحث عن نص فى مصوفة 

الكود:

 Dim strings() As String = {"b", "c"}
        If strings.Contains(TextBox1.Text.ToLower) Then
            TextBox1.Text = " found"
        Else
          
            TextBox1.Text = " not found"

                End If


النتيجة سواء قمنا بالبحث عن قيمة b أو B سوف تظهر نتيجة البحث ايجابية found

abushuber كتب:

السلام عليكم اخي العزيز...شاكر لك جدا للمساعدة التي قدمتها لي ...عندي طلب ثاني وهو سهل عليك اكيد...في نفس الملف السابق يوجد حقل خاص بالاسماء بعنوان الحالة الاجتماعية..(متزوج واعزب) احتاج اعزل واصنف كل حالة في ورقة حسب الحالة الاجماعية ...يعني بمجرد كتابة متزوج يتم ترحيل نسخة من نفس بيانات(كل الحقول) هذا الاسم الى شيت المتزوجين مع بقاء المعلومات في الشيت الاصلي وكذلك في حالة كتابة كلمة اعزب يتم ترحيل كل معلومات (كل الحقول) الاسم دو حالة اعزب الى شيت الغير متزوجين...وبالتسلسل...كيف اعمل هذا بالكود vba؟؟؟
بحيث عند الضغط على كوماندبوتن لاي حالة في اليوزر فورم يتم اظهار شيت الحالة المحددة...هذا بالنسبة للشق الاول..
اما الشق الثاني فهو عند كتابة متزوج تكنب الكلمة باللون الاخضر وعند كتابة كلمة اعزب تكتب الكلمة باللون الاحمر او اي لون اخر؟؟؟؟

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

abushuber

abushuber كتب:شكرا ع سرعة الرد اخي الفاضل...لكن الملف كما هو ...لم يرحل اي بيانات بامكانك تجربة ذلك..الاسماء القديمة بقيت في شيت الاول وعند اضافة اسماء اخرى لا ترحل الى الشيت المخصص لها...

الكود:

Public Sub CopyRows()
    
    Sheets(1).Select
    FinalRow = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
  
    For X = 1 To FinalRow
      
        ThisValue = TextBox7.Value
        If ThisValue = "متزوج" And Cells(X, 2).Value = TextBox2.Value Then
            Cells(X, 1).Resize(1, 33).Copy
            Sheets(2).Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets(1).Select
          
        ElseIf ThisValue = "اعزب" And Cells(X, 2).Value = TextBox2.Value Then
            Cells(X, 1).Resize(1, 33).Copy
            Sheets(3).Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets(1).Select
          
        End If
    Next X
End Sub

الكود:

Public Sub CopyRows()
    
    Sheets(1).Select
    FinalRow = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
  
    For X = 1 To FinalRow
      
        ThisValue = Cells(X, 7).Value
        If ThisValue = "متزوج" Then
            Cells(X, 1).Resize(1, 33).Copy
            Sheets(2).Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets(1).Select
          
        ElseIf ThisValue = "اعزب" Then
            Cells(X, 1).Resize(1, 33).Copy
            Sheets(3).Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets(1).Select
          
        End If
    Next X
End Sub


الكود:

Public Sub CopyRows()
    
    Sheets(1).Select
    FinalRow = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
  
    For X = 1 To FinalRow
      
        ThisValue = Cells(X, 7).Value
        If ThisValue = "متزوج" Then
            Cells(X, 1).Resize(1, 33).Cut
            Sheets(2).Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets(1).Select
          
        ElseIf ThisValue = "اعزب" Then
            Cells(X, 1).Resize(1, 33).Cut
            Sheets(3).Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets(1).Select
          
        End If
    Next X
End Sub


ولو اتعبتك لكن تحملني قليلا فما زلت صغيرا بهذا المجال...

NEXT كتب:

ولو اتعبتك لكن تحملني قليلا فما زلت صغيرا بهذا المجال...

أهلا بيك أخي ....لا عليك فنحن فى المنتدى للمساعدة حتى النهاية ولن نمل ابدا ....لكن عندى سؤال :

هل وجدت الكود فى المثال الذى ارسلة اليك الاخ [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] أم لا ؟

لانه ربما قد اختلط عليك الامر و فتحت نسخة من التطبيق غير الذى ارسلها اليك [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] وبالتالى لن يعمل ....لان فعلا الكود قد جربته ونقل بيانات من الشيت الاول الى الشيت الثاني و الثالث ....

 ولو اتعبتك لكن تحملني قليلا فما زلت صغيرا بهذا المجال...