如何在excel表格自动新建一个工作表
现在的excel表首页有一个日期表，我在首页填写一个日期，那么就自动新建一个工作表，而且新工作表的名字就是这个日期。并且超链接上！有那位高手能够做到？
1ãSHIFT+F11é®
2ãæç¹å»è¡¨ä¸é¢çæé®ï¼å¦ä¸å¾
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-09-23
插入两个模块分别粘贴代码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本回答被网友采纳
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本回答被网友采纳
第2个回答 2013-09-23
用VBA自己写函数吧。
第3个回答 2013-09-23
你想多了
相似回答