sh3esha3 قام بنشر يوليو 15, 2013 مشاركة قام بنشر يوليو 15, 2013 اريد عند الكتابه فى الخليه B1 بيانات تقوم الخليه A1 ببدء التسلل برقم واحد الى ار العمود تلقائيا 2 رابط هذا التعليق شارك More sharing options...
مصطفى كمال متولى قام بنشر يوليو 15, 2013 مشاركة قام بنشر يوليو 15, 2013 تفضل يااخى ملف ترقيم تلقائى ترقيم تلقائى.rar رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر يوليو 15, 2013 مشاركة قام بنشر يوليو 15, 2013 بعد اذن اخى مصطفى هذه طرق اخرى لعمل تسلسل ارجو ان تتقبلو مرورى ترقيم تلقائى.rar 1 رابط هذا التعليق شارك More sharing options...
مصطفى كمال متولى قام بنشر يوليو 15, 2013 مشاركة قام بنشر يوليو 15, 2013 افادكم الله ونفع بكم رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يوليو 15, 2013 مشاركة قام بنشر يوليو 15, 2013 لاثراء الموضوع وبعد اذن اساتذتى الافاضل المشاركين ترقيم تلقائى بالكود Dim x As Integer Private Sub CommandButton1_Click() Cells(6, 1) = 1 For i = 7 To 20 If Cells(i, 1) = "" And Cells(i, 2) = "" Then Exit Sub Else Cells(i, 1) = i - 2 End If Next i End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 6 Then MsgBox ("áä íÈÏÇ ÇáÊÑÞíã ãä åäÇ") Cells(6, 1) = 1 Exit Sub ElseIf Target.Row = 6 Then Cells(Target.Row, 1) = 1 Else Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1 End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub مرفق ملف به التطبيق رابط هذا التعليق شارك 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.