Excel 如何修复此特定代码行的应用程序定义或对象定义错误？

尽管在代码周围使用了空格和运算符，但似乎无法使代码正常工作，无法准确指出问题所在

多次尝试放置运算符，但仍然出现错误，例如Expected:end of statement，因此这是突出显示的代码行：

userMsheet.Cells(lastrow + 1, "A").Formula = "=HYPERLINK(" & "#" & 
ActiveSheet.Name & "!" & Cells(salesNo - 1, 3).Address & "," & 
usernameComboBox.Value & ")"

预期结果：当按下userform中的此按钮时，代码应在另一个工作表中创建超链接

userMsheet.Cells(lastrow + 1, "A").Formula = "=HYPERLINK(" & _
ActiveSheet.Name & "!" & Cells(salesNo - 1, 3).Address & "," & _
Chr(34) & usernameComboBox.Value & Chr(34) & ")"

子地址问题不是专长# 我认为你们两个想做的事根本不可能。因此，我建议您将超链接直接添加到单元格中，即如果您希望它指向某个内容

编辑：以下是我正在使用的内容：

Sub whatever()

  ActiveSheet.Hyperlinks.Add _
      anchor:=Range("A6"), _
      Address:="", _
      SubAddress:="'" & ActiveSheet.Name & "'!" & Cells(6, 3).Address, _
      TextToDisplay:="Whatever"

End Sub

您的代码：

With userMsheet
  lastrow = .Range("A" & Rows.Count).End(xlUp).Row
  .Hyperlinks.Add _
  anchor:=.Cells(lastrow + 1, "A"), _
  Address:="", _
  SubAddress:="'" & ActiveSheet.Name & "'!" _
      & Cells(salesNo - 1, 3).Address, _
  TextToDisplay:=usernameComboBox.Value
End With

---

抢手货我用value而不是variable测试代码，但忘了把variable放在这里。所以它应该是

salesNo

。我需要在超链接前面添加“#”，可以这样做吗？提前谢谢。更具体地说，我需要在activesheet.name前面添加“#”，否则，该代码将提示我一个我不需要的文件资源管理器want@beginnercoder123您可以添加，但它不会作为超链接工作。你能解释一下为什么需要添加hash符号吗？要添加hash，只需使用like

==HYPERLINK（#“&….

为什么它不能作为超链接使用？我在网上搜索了如何在VBA的公式中添加超链接，它显示了一个“#”工作表名称前的符号。该代码有效，但它将始终打开一个文件浏览器，声明更新值，我希望避免。希望这能澄清您的问题此链接指向何处？感谢反馈！现在将尝试该代码，由于圣诞节原因无法提前返回给您！圣诞快乐顺便说一句！代码声明无效时出错id过程调用或参数。在这种情况下，甚至可以进行超链接吗？我觉得这是不可能的…@初学者代码123：我已经仔细检查了，它必须工作。你检查了变量和工作表了吗？我已经编辑了答案。所以试试这个，如果它工作，用userMsheet lastrow调整你的变量、工作表等=userMsheet.Range（“A”和Rows.Count）.End（xlUp）.Row userMsheet.Hyperlinks.Add uu锚定：=userMsheet.Cells（lastrow+1，“A”），uu地址：=“”，uu子地址：=“”“&&ActiveSheet.Name&“！”和单元格（salesNo-1，3）.Address，\uTextToDisplay:=usernameComboBox.Value End WithError在userMsheet.hyperlinks.add……中高亮显示，直到TextToDisplay:=usernameCombo.Box。我已经定义了所有必要的变量，似乎无法解决此问题

With userMsheet
  lastrow = .Range("A" & Rows.Count).End(xlUp).Row
  .Hyperlinks.Add _
  anchor:=.Cells(lastrow + 1, "A"), _
  Address:="", _
  SubAddress:="'" & ActiveSheet.Name & "'!" _
      & Cells(salesNo - 1, 3).Address, _
  TextToDisplay:=usernameComboBox.Value
End With