回覆列表
-
1 # Xccelerator
-
2 # 望月兄
有辦法的,這裡介紹3種引用Sheet的方法。
檢視結論請拖到最後看黑體字哦!
使用worksheet方法指定對應sheet,有幾種方法。
1、Sheet1.Range("A1").Value= "指定的值"引用的是這裡的名稱:
這裡要說明一下,如果採用的是Sheet1這樣的寫法,只能指定本工作簿即Thisworkbook的Sheet1。Sheet1前面不能有任何的父物件。即我們不能在前面加任何Workbook父物件,否則是會報錯的。
2、Sheets(index)的寫法這個寫法語言不知道如何表達,直接上圖。
這個簡單來說就是EXCEL前面是什麼順序,sheets(index)就是如何展示的。
3、sheets("sheet名")這個就是引用具體的名稱。
所以回到樓主的題目!
可以把Sheet和標號n拼接成字串,然後採取第3種寫法。
具體程式碼如下:
此處可以複製:
Option Explicit
Sub test()
Dim n As Integer
Dim numStr As String
For n = 1 To 10
numStr = "Sheet" & n
Sheets(numStr).Cells(1, 1).Value = n
Next
End Sub
獲取表單Sheet可以使用Worksheet.Sheets(index),for each 迴圈Sheet,但是順序都是按照物件的先後順序來獲取到的,如果要一定按照數字的順序來。只能是先獲取到所有的表單,再按照數字順序獲取表單進行處理