تومي محمد قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 ما الفرق بين الكودين وايهما اكفا واامن في العمل وماذا يعني السطر الاخير الملون بالاحمر والسلام عليكم Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Sheet2") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox1.SetFocus Cells(1000, "a").End(xlUp).Offset(1, 0).Value = TextBox1.Value Cells(1000, "b").End(xlUp).Offset(1, 0).Value = TextBox2.Value Cells(1000, "c").End(xlUp).Offset(1, 0).Value = TextBox3.Value Cells(1000, "d").End(xlUp).Offset(1, 0).Value = TextBox4.Value رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 السلام عليكم الاستاذ الحبيب / تومي محمد بارك الله فيك بالنسبة للكودين الموجودين في مشاركتك الهدف والغرض منهما واحد حيث ان كلا الكودين يقومان بتسجيل محتويات التكستات بوكس الموجودة في الفورم في آخر صف به بيانات ولكن مع الاختلاف 1- الكود الاول يقوم بالتسجيل في آخر صف به بيانات ويعمل ويقوم بعملية التسجيل حتي آخر صف في شيت الاكسيل نفسه 2- اما بالنسبة للكود الثاني فيقوم بالتسجيل قيمة التكستات بوكس في آخر صف ولكن حتي الصف رقم 1000 فقط واري انه من الافضل استخدام الكود الاول في حالة ان البيانات المراد تسجيلها كبيرة وتحتاج اكثر من 1000 صف ولكن كلاهما يؤدي نفس الغرض بالنسبة للسطر Me.TextBox1.SetFocus يقوم الكود فيه بعد التسجيل وترحيل البيانات المحددة في التاكستات بوكس والقيان بمسح القيم الموجودة فيهم بجعل التكست بوكس 1 TextBox1 هو التكست بوكس الافتراضي SetFocus للادخال بعد تنفيذ الكود ... اي انك تجد المؤشر في تكست بوكس رقم 1 جاهز للادخال مباشرة ارجو ان اكون قد اوضحت لك الفكرة ويكون الشرح مفيد ... وكما تريد واي استفسار معك دائما باذن الله تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر أبريل 9, 2014 مشاركة قام بنشر أبريل 9, 2014 الأستاذ والأخ الفاضل/ حمادة عمر السلام عليكم ورحمة الله وبركاته شرح مميز ووافي كالعادة - جزاكم الله كل خير تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 9, 2014 مشاركة قام بنشر أبريل 9, 2014 الاخ الحبيب : حمادة باشا بارك الله فيك مرور طيب و كريم من اخ كريم وحبيب جعلني الله عند حسن ظنكم دائما وفي انتظار رد اخونا الاستاذ : تومي محمد تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر أبريل 9, 2014 الكاتب مشاركة قام بنشر أبريل 9, 2014 بارك الله فيك ووفيت في الشرح وكله مفهوم والسلام عليكم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 تقبل خالص تحياتي وجزاك الله خيرا رابط هذا التعليق شارك 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.