Как исправить прикладную или объектно-определяемую ошибку для этой конкретной строки кода?

Question

Кажется, что не может заставить код работать, несмотря на использование пробелов и операторов вокруг кода, не может точно определить, где находится проблема

Попытка размещения операторов много раз, но все равно приводила к ошибкам, например Ожидается: конец оператора, как таковой, это строка кода, которая была выделена:

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

Ожидаемый результат: код должен создать гиперссылку на другом листе, когда эта кнопка в пользовательской форме нажата

Answer 1

SubAddress Issue not feat.#

Я не думаю, что то, что вы пытаетесь сделать, даже возможно.Поэтому я бы посоветовал вам добавить гиперссылку непосредственно в ячейку, т.е. если вы хотите, чтобы она указывала на что-то.

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

РЕДАКТИРОВАТЬ: Вот что я использую:

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

Answer 2

Попробуйте следовать

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