Excel 檢查工作表後,再決定新增
Function Fn2_新增頁表()
Dim Sht9Star As Object
Next_Con=1
On Error GoTo create
Set Sht9Star = Sheets("九星下" & Next_Con)
Exit Function
create:
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "九星下" & Next_Con
End Function
Dim Sht9Star As Object
Next_Con=1
On Error GoTo create
Set Sht9Star = Sheets("九星下" & Next_Con)
Exit Function
create:
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "九星下" & Next_Con
End Function
留言
張貼留言