پرسش کمک در انتخاب worksheet

[amoomahal2004]

سلام
یک workbook دارم که از چندین worksheet تشکیل شده و می خواهم در برنامه در حلقه ای sheet های مختلف را انتخاب و تغییراتی بدهم.از چه دستوری باید استفاده کرد.
البته راههایی مثل sheet(i را امتحان کردم جواب نداده
ممنون

[Amir Ghasemiyan]

سلام
یک workbook دارم که از چندین worksheet تشکیل شده و می خواهم در برنامه در حلقه ای sheet های مختلف را انتخاب و تغییراتی بدهم.از چه دستوری باید استفاده کرد.
البته راههایی مثل sheet(i را امتحان کردم جواب نداده
ممنون

سلام دوست عزیز
تو این لینک دو روش رو خود ماکروسافت معرفی کرده

https://support.microsoft.com/en-gb/help/142126/macro-to-loop-through-all-worksheets-in-a-workbook

Sub WorksheetLoop()


Dim WS_Count As Integer
Dim I As Integer


' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count


' Begin the loop.
For I = 1 To WS_Count


	' Insert your code here.
	' The following line shows how to reference a sheet within
	' the loop by displaying the worksheet name in a dialog box.
	MsgBox ActiveWorkbook.Worksheets(I).Name


Next I


End Sub

Sub WorksheetLoop2()


' Declare Current as a worksheet object variable.
Dim Current As Worksheet


' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets


	' Insert your code here.
	' This line displays the worksheet name in a message box.
	MsgBox Current.Name
Next


End Sub