Question

此代码查看名为LoanProgram的单元并插入超链接。

我想为单元格B18分配一个链接，并为单元格C19分配另一个链接。

其搜索的值为“ HOMEREADY / HOMEPOSSIBLE”。

我尝试使用其他条件，但是它忽略了elseif语句。

If Range("LoanProgram").Value Like "*READY*" Then
    ActiveSheet.Hyperlinks.Add Range("C18"), Address:="https://homeready.com, TextToDisplay:="HOMEREADY"

ElseIf Range("LoanProgram").Value Like "*Possible*" Then
    ActiveSheet.Hyperlinks.Add Range("C19"), Address:="freddiemac.com", TextToDisplay:="HOMEPOSSIBLE"

end if

Answer 1

您必须将条件分为两个If。在您的原始代码中，即使LoadProgram同时包含READY和POSSIBLE，也只能执行两个If之一。

If Range("LoanProgram").Value Like "*READY*" Then
    ActiveSheet.Hyperlinks.Add Range("C18"), Address:="https://homeready.com, TextToDisplay:="HOMEREADY"
End If

If Range("LoanProgram").Value Like "*Possible*" Then
    ActiveSheet.Hyperlinks.Add Range("C19"), Address:="freddiemac.com", TextToDisplay:="HOMEPOSSIBLE"
End if

使用相同条件将超链接插入两个不同的单元格

1 个答案: