excel - 用于解析来自用户的多行输入的 VBA 脚本

Question

我正在为 Excel 文档编写 VBA 脚本。这就是我想要发生的事情。

用户单击按钮以将新客户端添加到列表中。

弹出窗口指示用户复制另一个程序中的链接并将其粘贴到提供的文本字段中。

客户的姓名被添加到列表的底部，该名称是客户在线资料的超链接。

所需信息

从其他程序复制的链接会自动格式化，如下所示:
FirstName LastName
<link_to_client_in_program>
所以链接打印出客户的名字然后是最后一个，然后在下一行打印出嵌套在胡萝卜括号内的客户在线个人资料的超链接。

在提示用户添加链接的这一点上，我有工作代码，尽管用户可以粘贴链接的文本字段不显示多行，所以它只显示客户的名字和姓氏。

我需要帮助

在用户将其粘贴到
输入框。

在用户单击“确定”后，脚本应解析输入的文本以将名字和姓氏捕获为变量，并将在线个人资料的链接捕获为单独的变量。

然后，我想查看工作表上的表格，找到最后添加的客户之后的行，并在该单元格中添加客户的名称，并使该名称成为在线个人资料的超链接。

我当前的代码

Sub addClient()
   Dim clientInfo As String
   Dim clientName As String
   Dim clientURL As String

   clientInfo= InputBox("Click on the 'Copy a Link' in CRM for the Client and paste in the field below.", "Client Information")
   clientName  = Left(clientInfo, Application.WorksheetFunction.Find("<", clientInfo) - 1)
   clientURL  = Right(clientInfo, Application.WorksheetFunction.Find("<", clientInfo) - 1)
   Range("B7").Value = clientName 
End Sub

错误

当我运行脚本并单击按钮时，会出现弹出窗口并将链接粘贴到提供的文本框中。当我单击“确定”时，我收到一条错误消息，显示“运行时错误'1004':无法获取 WorksheetFunction 类的 Find 属性”。

如何

如何搜索表格并获取“B”列中没有客户数据的下一个单元格？

如何解决此解析问题？

如何将数据粘贴到正确的单元格并使其成为客户端 URL 的超链接？

Answer 1

你正在寻找这样的东西来做一个有效的Find - 与工作表函数 Find 不同

这在 A 列(自下而上)中查找单元格 B7 上的最后一个匹配项。

如果找到匹配项，它会将 B7 的内容添加到 A 中的该单元格中(因此您需要根据自己的目的对其进行一些调整)。

Sub UpdateMe()
Dim rng1 As Range
If Len([b7].Value) > 0 Then
Set rng1 = Columns("A:A").Find([b7].Value, [a1], xlFormulas, xlWhole, , xlPrevious)
    If Not rng1 Is Nothing Then
        rng1.Value = rng1.Value & " " & [b7].Value
    Else
        MsgBox "Client not find", vbCritical
    End If
Else
    MsgBox "No value to find", vbCritical
End If
End Sub