ارجو المساعد من اهل الخبره فى شرح هذا الكود

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

الاخوه الافاضل وجدت هاذا الكود فى نموذج للبحث عن البيانات مع امكانيه التعديل عليها ولكننى حينما حاولت التطبيق

فلم استطع ارجو شرح بعض المفاهيم لى

Private Sub CommandButton4_Click()

III = 6 'ـــــ ما ذا تشير اليه هذه

Do Until ورقة1.Cells(III, "J").Text = "" ' كيف اقوم بتغير عمود البحث ليصبح Dبدلا من ت

	If Me.ComboBox1.Text = ورقة1.Cells(III, "B").Text Thenـ 'هل استطيع تغير كلمه ورقه1 لتصبح اسم معينATA

		Cells(III, "B").Activate

	   Me.TextBox2 = ActiveCell.Offset(0, 0).Text

	   Me.TextBox3 = ActiveCell.Offset(0, 1).Text

	   Me.TextBox4 = ActiveCell.Offset(0, 2).Text

	   Me.TextBox5 = ActiveCell.Offset(0, 3).Text

	   Me.TextBox6 = ActiveCell.Offset(0, 4).Text

	   Me.TextBox7 = ActiveCell.Offset(0, 5).Text

	   Me.TextBox8 = ActiveCell.Offset(0, 6).Text

	   Me.TextBox9 = ActiveCell.Offset(0, 7).Text

	   Me.TextBox10 = ActiveCell.Offset(0, 8).Text

	   Me.TextBox11 = ActiveCell.Offset(0, 9).Text



		Exit Sub

	End If

	III = III + 1 ' ما ذا يعنى ذلك

MsgBox ("!!! عفوا .. اختر رقم السجل ")

Me.ComboBox1.SetFocus

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 = ""

End Sub

[عبدالله المجرب]

III = 6 'ـــــ ما ذا تشير اليه هذه

تم تعيين القيمة 6 للرمز III وتعني الصف السادس ===============

Do Until ورقة1.Cells(III, "J").Text = "" ' كيف اقوم بتغير عمود البحث ليصبح Dبدلا من ت

ستصبح هكذا

Cells(III, "D")

===========

   If Me.ComboBox1.Text = ورقة1.Cells(III, "B").Text Thenـ 'هل استطيع تغير كلمه ورقه1 لتصبح اسم معينATA

تستطيع ان تستبدل ورقة 1 لتصبح كالتالي

Sheets ("ATA").cells(III,"J")

=============

III = III + 1 ' ما ذا يعنى ذلك

طبعاً هذه حلقة تكرارية سيتم زيادة الصف بواحد حتى تحقق الشرط

================

ان شاء الله اكون وفقت في التوضيح

ويقصد بهذا السطر ان الحلقة تستمر حتى الخلية التي في العمود J وتبداء من الصف السادس تكون بلا بيانات (خالية)