VBA:将工作表的超链接添加到单元格中

黑熊

我的目标是在添加新行时,我想将第一列中最后一行 + 1 中的单元格链接到与值同名的工作表。即添加了一个客户 ID 为 130 的新客户,并创建了一个同名的工作表。现在我想添加一个从客户 ID 到工作表的链接。从用户表单输入中检索数据。也许我应该注意到在我的用户表单中单击一个命令按钮后这个子运行。

当使用下面的代码时,我在最后一行 ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:=Sheets(cs_sht), TextToDisplay:=cs_sht 收到错误消息'5 Invalid procedure or argument'我尝试使用选择和不选择以及将工作表和锚点更改为 activecell 来摆弄锚点。

Private Sub CB_NewCS_Click()
'Copying data to table

Dim rng As Range
Dim LastRow As Long
Dim cs_sht As String
Dim ws As Worksheet
Dim Ws_K As Worksheet

NewCS.Hide

' Setting ranges and sheets
Set rng = Sheets("Kundeliste").ListObjects("Tabel_Kunde").Range
Set Ws_K = Sheets("Kundeliste")

' Searching for new input line
LastRow = rng.Find(What:=Ó * Ó, _
After:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row

' Inserting userform data
With rng.Parent
    .Cells(LastRow + 1, 1).Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1 ' Customer ID in ascending order
    .Cells(LastRow + 1, 2).Value = TB_Firstname.Value ' First name
    .Cells(LastRow + 1, 3).Value = TB_Lastname.Value ' Last name
    .Cells(LastRow + 1, 4).Value = TB_Phone.Value ' Phone number
    .Cells(LastRow + 1, 5).Value = TB_Address.Value ' Address
    .Cells(LastRow + 1, 6).Value = TB_Housenr.Value ' House / road number
    .Cells(LastRow + 1, 7).Value = TB_Floornr.Value ' Floor nr.
    .Cells(LastRow + 1, 8).Value = TB_Zipcode.Value ' Zipcode / postal code
    .Cells(LastRow + 1, 9).Value = TB_City.Value ' City / town
    .Cells(LastRow + 1, 10).Value = LB_Product.Value ' Product for the customer
    ' Checkbox values:
    .Cells(LastRow + 1, 12).Value = -Chb_Contact.Value
    .Cells(LastRow + 1, 13).Value = -Chb_Meet1.Value
    .Cells(LastRow + 1, 14).Value = -Chb_Accept.Value
    .Cells(LastRow + 1, 15).Value = -Chb_Meet2.Value
    .Cells(LastRow + 1, 16).Value = -Chb_Revision.Value
    .Cells(LastRow + 1, 17).Value = -Chb_Contact2.Value
    .Cells(LastRow + 1, 18).Value = -Chb_Followup.Value
    cs_sht = .Cells(LastRow + 1, 1).Value
End With

With ThisWorkbook
    Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
    ws.Name = cs_sht
End With
Ws_K.Activate
Ws_K.Range(Ws_K.Cells(LastRow + 1, 1), Ws_K.Cells(LastRow + 1, 1)).Select
' OBS OBS OBS ERROR OCCURS HERE vvvvvvvv
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:=Sheets(cs_sht), TextToDisplay:=cs_sht


End Sub
SJR

子地址必须是引用单元格的字符串,因此您需要这样的东西

SubAddress:=cs_sht & "!A1"

宏记录器对于计算这种语法很有用。

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

使用VBA将文本添加到Excel中的单元格

来自分类Dev

将超链接添加到d3.js表行和单元格

来自分类Dev

将单元格文本添加到VBA中的数组

来自分类Dev

将单元格的内容添加到VBA中的字符串变量中。另外,使用offset在其下方添加单元格

来自分类Dev

将链接添加到单元格内而不是整个单元格内的文本

来自分类Dev

在单元格VBA中创建超链接到工作表

来自分类Dev

如何使用Office-js以编程方式向工作表中的单元格添加超链接?

来自分类Dev

将超链接添加到Google幻灯片演示文稿中的表格单元格

来自分类Dev

从单元格VBA Excel中获取显式工作表超链接

来自分类Dev

当单元格和位置是动态的时,将超链接添加到单元格

来自分类Dev

将提交的值添加到Google工作表中的现有单元格值

来自分类Dev

如何将超链接添加到Google工作表侧边栏附件中的单元格

来自分类Dev

Excel VBA,用于将单元格中的超链接公式链接到宏

来自分类Dev

将超链接添加到仅用户界面受保护的工作表

来自分类Dev

根据搜索查找单元格,更改其值,然后添加到新工作表的列表中?

来自分类Dev

将超链接添加到d3.js表的行和单元格

来自分类Dev

将单元格值添加到Excel VBA中的“右键单击”菜单

来自分类Dev

将表单元格添加到仅克隆表中

来自分类Dev

将单元格文本添加到VBA中的数组

来自分类Dev

jQuery将动态单元格添加到表中的静态单元格

来自分类Dev

如何使用VBA将Excel单元格中的datetime值添加到SQL表中

来自分类Dev

将多个超链接添加到工作表中的多个单元格

来自分类Dev

将剪贴板中的文本作为超链接添加到单元格

来自分类Dev

excel将几天添加到日期,然后用它自动填充另一个工作表中的单元格

来自分类Dev

如何将UITapGestureRecognizer添加到表视图单元格中的UILabel?斯威夫特2

来自分类Dev

如何使用Office-js以编程方式向工作表中的单元格添加超链接?

来自分类Dev

需要帮助,尝试使用月中的天数将表中的单元格和行添加到表中

来自分类Dev

如何使用VBA将多个字符串值添加到Excel工作表中的单元格

来自分类Dev

将下面单元格中的值添加到上面的单元格

Related 相关文章

  1. 1

    使用VBA将文本添加到Excel中的单元格

  2. 2

    将超链接添加到d3.js表行和单元格

  3. 3

    将单元格文本添加到VBA中的数组

  4. 4

    将单元格的内容添加到VBA中的字符串变量中。另外,使用offset在其下方添加单元格

  5. 5

    将链接添加到单元格内而不是整个单元格内的文本

  6. 6

    在单元格VBA中创建超链接到工作表

  7. 7

    如何使用Office-js以编程方式向工作表中的单元格添加超链接?

  8. 8

    将超链接添加到Google幻灯片演示文稿中的表格单元格

  9. 9

    从单元格VBA Excel中获取显式工作表超链接

  10. 10

    当单元格和位置是动态的时,将超链接添加到单元格

  11. 11

    将提交的值添加到Google工作表中的现有单元格值

  12. 12

    如何将超链接添加到Google工作表侧边栏附件中的单元格

  13. 13

    Excel VBA,用于将单元格中的超链接公式链接到宏

  14. 14

    将超链接添加到仅用户界面受保护的工作表

  15. 15

    根据搜索查找单元格,更改其值,然后添加到新工作表的列表中?

  16. 16

    将超链接添加到d3.js表的行和单元格

  17. 17

    将单元格值添加到Excel VBA中的“右键单击”菜单

  18. 18

    将表单元格添加到仅克隆表中

  19. 19

    将单元格文本添加到VBA中的数组

  20. 20

    jQuery将动态单元格添加到表中的静态单元格

  21. 21

    如何使用VBA将Excel单元格中的datetime值添加到SQL表中

  22. 22

    将多个超链接添加到工作表中的多个单元格

  23. 23

    将剪贴板中的文本作为超链接添加到单元格

  24. 24

    excel将几天添加到日期,然后用它自动填充另一个工作表中的单元格

  25. 25

    如何将UITapGestureRecognizer添加到表视图单元格中的UILabel?斯威夫特2

  26. 26

    如何使用Office-js以编程方式向工作表中的单元格添加超链接?

  27. 27

    需要帮助,尝试使用月中的天数将表中的单元格和行添加到表中

  28. 28

    如何使用VBA将多个字符串值添加到Excel工作表中的单元格

  29. 29

    将下面单元格中的值添加到上面的单元格

热门标签

归档