اذهب الي المحتوي

محمد الورفلي1

05 عضو ذهبي
  • Content Count

    1,087
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

129 Excellent

4 متابعين

عن العضو محمد الورفلي1

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس

اخر الزوار

1,925 زياره للملف الشخصي
  1. السلام عليكم كيف جعل التكسيت لا يقبل الا كلمة اعدادي او كلمة ثانوي تقييد تكست بوكس بكلمة.xls
  2. السلام عليكم اريد اخر طالب تم تسجيل وليس اكبر رقم وشكراً جلب اخر رقم في عمود بشرط.xls
  3. شكرا بارك الله فيكم -ابراهيم-الحداد/ -سليم-حاصبيا/
  4. السلام عليكم كيف يتم توزيع رقم دراسي تلقائي ومختلف بين المرحلة الاعدادية والمرحلة الثانوية بحيث يكون اول طالب قام بالتسجيل من المرحلة الاعدادي رقمة هو 19101و الثاني رقمة 19102 وا اول طالب في المرحلة الثانوية يكون رقمة19201 والثاني 19202 وهم في نفس العمود رقم دراسي.xls
  5. السلام عليكم عند تجربة الماكرو ووضع رقم في شريط البحث لم يستج لاستدعاء البيانات
  6. المقصود من التسريع "هو اذا اردت استدعاء الاسم الموجود في الصف رقم "65532 " يستغرق وقت طويا جدا ً لجلب بيانات هذا الاسم المطلوب ان كان يوجد كود اسرع من هذا الكود ااو تعديله بارك الله فيكم Private Sub ComboBox3_Change() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual On Error Resume Next III = 5 Do Until Sheet2.Cells(III, "c").Text = "" If Me.ComboBox3.Text = Sheet2.Cells(III, "c").Text Then Cells(III, "c").Activate Me.TextBox1.Text = ActiveCell.Offset(0, -1).Text Me.TextBox133.Text = ActiveCell.Offset(0, 0).Text Me.TextBox132.Text = ActiveCell.Offset(0, 1).Text Me.TextBox11.Text = ActiveCell.Offset(0, 2).Text Me.ComboBox2.Text = ActiveCell.Offset(0, 3).Text Me.TextBox3.Text = ActiveCell.Offset(0, 4).Text Me.TextBox4.Text = ActiveCell.Offset(0, 5).Text Me.TextBox7.Text = ActiveCell.Offset(0, 6).Text Me.TextBox130.Text = ActiveCell.Offset(0, 7).Text Me.TextBox131.Text = ActiveCell.Offset(0, 8).Text Me.TextBox22.Text = ActiveCell.Offset(0, -2).Text e.ComboBox22.Text = ActiveCell.Offset(0, -2).Text Exit Sub End If III = III + 1 Loop MsgBox ("الكود الذى ادخلته غير صحيح") 'Me.TextBox2.SetFocus Me.TextBox1.Text = "" 'Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" 'Me.TextBox5.Text = "" 'Me.TextBox6.Text = "" Me.TextBox7.Text = "" 'Me.TextBox8.Text = "" 'Me.TextBox9.Text = "" 'Me.TextBox10.Text = "" Me.TextBox11.Text = "" 'Me.TextBox12.Text = "" 'Me.TextBox13.Text = "" 'Me.TextBox14.Text = "" Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub Book1669.rar
  7. حتى لوكان قبل هذا الصف بــ 100 صف نفس النتيجة جرب للفائد لك
  8. السلام عليكم في الفورم عند اضافة عدد السجلات الي عدد 65536 لم يتم الاستجابة للتعديل من قبل الكود Private Sub CommandButton8_Click() Sheets("data").Select On Error Resume Next Dim i As Integer For i = 5 To 65536 If Val(Me.TextBox22) = Cells(i, 1) Then Cells(i, 2) = Me.TextBox1.Text Cells(i, 4) = Me.TextBox132.Text Cells(i, 3) = Me.TextBox133.Text Cells(i, 5) = Me.TextBox11.Text Cells(i, 6) = Me.ComboBox2.Text Cells(i, 7) = Me.TextBox3.Text Cells(i, 9) = Me.TextBox7.Text End If Next End Sub Book1669.xls
  9. بالنسبة لمنع الكتابة تعمل ولكن تقيد التكسيت بعدد 12 رقم لايعمل
  10. السلام عليكم كيف جعل التكسيت لايقبل اكثر من 12 رقم 1.xls
×
×
  • اضف...