Question

我正在创建一个工作簿，该工作簿将跟踪临时人员进入商店及其通过培训计划的进度。

我有两页，一个主要工作表，在以下标题下列出了临时人员：姓名，开始日期和结束日期。还有一个用于创建新图纸的按钮。第二张纸是用于格式化新纸的模板。

当前有效的是：

“添加新工作表”按钮-创建新工作表，提示用户命名工作表并使用模板设置新工作表的格式。

我要添加的内容：

用户输入临时人员的信息后，他们单击“添加新工作表”按钮。除了已经可以使用的功能之外，我还希望按钮使用户刚刚输入信息的“名称”单元超链接，以便该单元将用户带到该人的训练跟踪器表。

此外，我希望该按钮获取该人的信息（姓名，开始日期和结束日期）并复制到新工作表中。

我在编码方面没有太多的背景知识，我设法获取了一些示例代码，并做了一些小的更改以使现在的代码有效。我不知道我要问的事情是否可行。主要的事情是确保每次用户输入新人的信息并单击“添加新工作表”按钮时，正确人的信息都将被复制到新工作表中，并且超链接会将用户带到正确人的培训跟踪器。 / p>

感谢您的帮助。

以下是到目前为止我正在工作的代码。

Private Sub AddSheet_Click()
Dim DefaultSheetName As String


Worksheets("Template").Copy Before:=Worksheets("Template")

DefaultSheetName = ActiveSheet.Name
Application.Dialogs(xlDialogWorkbookName).Show

If ActiveSheet.Name = DefaultSheetName Then
    MsgBox "You didn't name the new sheet." & vbCrLf & _
           "Processing cancelled", vbExclamation
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End If

End Sub

到创建工作表的顺序单元格超链接

0 个答案: