在工作表執行另一格工作表的巨集

1^# 跳轉到 »

發表於 2016-4-30 11:59 | 顯示全部帖子

Sub 工作表_新增股票名稱()
Dim ShtN$, Sht As Worksheet
Set uRng = ActiveCell
If uRng.Column <> 3 Or uRng.Row < 5 Or uRng = "" Then MsgBox "※請先選取個股代號！": Exit Sub
ShtN = uRng.Value
On Error Resume Next
Set Sht = Sheets(ShtN)
If Not Sht Is Nothing Then MsgBox "工作表名稱已存在! ": Exit Sub
Sheets("格式").Copy after:=Sheets(2)
With ActiveSheet
.Name = ShtN
.[B1] = ShtN
.[D1] = uRng(1, 2)
End With
End Sub
Sub 工作表_刪除最後一個()
Application.DisplayAlerts = False
With Sheets(Sheets.Count)
If .Name <> "即時資訊" And .Name <> "格式" Then
If MsgBox("確定要刪除〔" & .Name & "〕工作表？ ", 1 + 32 + 256) = vbOK Then .Delete
End If
End With
End Sub

複製代碼

Xl0000354.rar (28.89 KB)

靜思自在 : 人生沒有所有權，只有生命的使用權。