إبراهيم ابوليله قام بنشر فبراير 19, 2012 مشاركة قام بنشر فبراير 19, 2012 الاخوه الافاضل وجدت هاذا الكود فى نموذج للبحث عن البيانات مع امكانيه التعديل عليها ولكننى حينما حاولت التطبيق فلم استطع ارجو شرح بعض المفاهيم لى 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 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 19, 2012 مشاركة قام بنشر فبراير 19, 2012 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 وتبداء من الصف السادس تكون بلا بيانات (خالية) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.