River's Footmar And Note: 7月 2023

2023年7月31日星期一

VBA：變數配置Set

Set：將值指定給物件型別的時候，必須使用「Set」

程式碼：

Set myRange=Range(“a1:b1”) ；指定儲存格a1:b1為 myRange物件型別

Set myactive=Activesheet.usedRange ；指定作業中工作表使用範圍為 myactive物件型別

Set myRange = ws.Cells.Find(what:=“test”) ；指定找尋字串為 myRange物件型別

Set myRange= Nothing ；指定為 myRange物件型別作釋放

變數的有效範圍及有效期限

程序層級變數的有效範圍

模組層級變數

VBA：工作表屬性：COPY

第一種：

變數TEMP：存放要複製的工作表名稱
直接複製，會生成一頁一模一樣的工作表在獨立的工作簿當中
Private Sub CommandButton1_Click()
TEMP = ActiveSheet.Range("f7")
Sheets(TEMP).Copy
End Sub

第二種：

針對TEMP作工作頁複製，並複製到最後一頁

sheets. Count：總工作表
變數TEMP：存放要複製的工作表名稱
AFTER:=：用來控制位置之後的位置
Private Sub CommandButton1_Click()
TEMP = ActiveSheet.Range("f7")
Sheets(TEMP).Copy AFTER:=sheets.Item(sheets.Count)
End Sub
BEFORE:=：用來控制位置之前的位置
Private Sub CommandButton2_Click()
TEMP = ActiveSheet.Range("f7")
Sheets(TEMP).Copy BEFORE:=Worksheets.Item(1)
End Sub

第三種：

指定工作表，指定複製位置

Private Sub CommandButton3_Click()
TEMP1 = ActiveSheet.Range("f7")
TEMP2 = ActiveSheet.Range("f8")
Sheets(TEMP1).Copy AFTER:=Worksheets.Item(Sheets(TEMP2).Index)
End Sub
Private Sub CommandButton4_Click()
TEMP1 = ActiveSheet.Range("f7")
TEMP2 = ActiveSheet.Range("f8")
Sheets(TEMP1).Copy BEFORE:=Worksheets.Item(Sheets(TEMP2).Index)
End Sub