mra63 قام بنشر فبراير 12, 2022 مشاركة قام بنشر فبراير 12, 2022 ارجوا من الاساتذة الكرام اختصار عدد التكسات في كود واحد خاصة وانه لدي 30 تكست ومرشحة للزيادة وهذا الكود كمثال Dim Last As Integer Last = Sheet4.Range("A100000").End(xlUp).Row + 1 Sheet4.Cells(Last, "A").Value = Me.TextBox2.Value Sheet4.Cells(Last, "B").Value = Me.TextBox3.Value Sheet4.Cells(Last, "C").Value = Me.TextBox4.Value Sheet4.Cells(Last, "D").Value = Me.TextBox5.Value Sheet4.Cells(Last, "E").Value = Me.TextBox6.Value Sheet4.Cells(Last, "F").Value = Me.TextBox7.Value Sheet4.Cells(Last, "G").Value = Me.TextBox8.Value رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 13, 2022 مشاركة قام بنشر فبراير 13, 2022 Sub Test() Dim Last As Long, i As Long Last = Sheet4.Range("A100000").End(xlUp).Row + 1 For i = 1 To 7 Sheet4.Cells(Last, i).Value = Me.Controls("TextBox" & i + 1).Value Next i End Sub 5 رابط هذا التعليق شارك More sharing options...
mra63 قام بنشر فبراير 13, 2022 الكاتب مشاركة قام بنشر فبراير 13, 2022 شكراً وبارك الله فيك . جعله الله في ميزان حسناتك . وزادك علماً ومعرفة . 1 رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 اخي mra63 لماذا لا تعطي من ساعدك حقة بألضغط علي افضل اجابه جزاك الله خيراً 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان