循環通過團隊和使用子例程

我必須在團隊名稱爲a-h的特定工作表上運行循環範圍a4：a13。當這個循環遍歷團隊名稱時，我需要它來運行我目前只有團隊A通用的其他代碼。我如何使用循環和子程序，使這個自動所以它的運行所有球隊無需複製代碼循環通過團隊和使用子例程

到目前爲止，我已經

Sub Looproutine() 

Dim i As Integer 

Dim TeamName As String 

TeamName = Sheets("Parametres") 
("A"&(str(i)).value 

For i = 4 To 13 

Call tidydata(Team(i))

感謝

來源

2016-06-09 user3018495

好像你可以去如下所示：

Option Explicit 

Sub Looproutine() 

    Dim cell As Range 

    For Each cell In Worksheets("Parametres").Range("A4:A13") '<~~ loop through every cell of your relevant range 

     tidydata cell.Value '<~~ call "tidydata()" passing it the current cell value 

    Next cell 

End Sub

來源

2016-06-09 06:53:24 user3598756

我需要定義什麼tidydata是第一個？ – user3018495

好吧，因爲你已經有了'Call tidydata（Team（i））'我假設你已經有了一些Sub Subididata（teamName as String）...（處理給定團隊名稱的數據的代碼）... End Sub '在你的項目中！ – user3598756

是的，我不太確定把它放在哪裏，但現在一切都有意義，歡呼！ – user3018495

循環通過團隊和使用子例程

回答

相關問題