如何在excel表格自动新建一个工作表
发布网友
发布时间:2022-02-25 02:24
我来回答
共4个回答
热心网友
时间:2022-02-25 03:53
1、SHIFT+F11键
2、或点击表下面的按钮,如下图
热心网友
时间:2022-02-25 05:11
插入两个模块分别粘贴代码1、2代码1: Sub 用活动单元格值命名新工作表()
If Len(ActiveCell.Value) = 0 Then
MsgBox "请选择非空单元格"
Else
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Trim(ActiveCell.Value) Then
MsgBox "不能创建重名和工作表"
Exit Sub
End If
Next
Dim wsNewWorksheet As Worksheet
Dim k, sheetname As String
sheetname = Application.ActiveSheet.Name
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
Sheets(sheetname).Activate
wsNewWorksheet.Name = Trim(ActiveCell.Value)
End If
End Sub 代码2: Sub 设置快捷键()
Application.OnKey "^+d", "用活动单元格值命名新工作表"
End Sub 粘贴好后按快捷键Ctrl+Shift+d
热心网友
时间:2022-02-25 06:46
用VBA自己写函数吧。
热心网友
时间:2022-02-25 08:37
你想多了