ممكن كود يعمل مسلسل للشيتات VBA يعني يكتب في في الخليه a1 في شيت واحد رقم١ وفي شيت ٢ في رقم ٢

[Saadrafic]

ممكن كود يعمل مسلسل للشيتات VBA يعني يكتب في في الخليه a1 في شيت واحد رقم١ وفي شيت ٢ في رقم ٢

[ابراهيم الحداد]

السلام عليكم ورحمة الله

ضع هذا الكود فى حدث ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For i = 1 To Sheets.Count
Sheets(i).Range("A1").Value = i
Next
End Sub

 

[Saadrafic]

ممكن اخر طلب هوه الكود شغال وذي الفل انا عايز يعد شيتات معينه يعني من اول الشيت الخامس مثلا يبداء يعد ١٢٣٤٥٦٧ والي قبل كدا ميعتهوش ممكن لو سمحت شاكر تعب حضرتك

ممكن عمل نفس التسلسل دا بس بعد خمس شيتات منتظر رد حضرتك ضروري 

[حسين مامون]

بعد اذن استادي  ابراهيم الحداد

هذا المرفق

 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i
 i = 1
For Each Sh In Sheets
'يمكنك تغيير اسماء الشيتات التي لا تريد ترقيمها
If Sh.Name <> "Sheet1" And Sh.Name <> "Sheet2" And Sh.Name <> "Sheet3" And Sh.Name <> "Sheet4" Then
Sh.Range("A1").Value = i
i = i + 1
End If
Next
End Sub

 

test.xlsm