Excel VBA和if语句中的超链接循环包含模式

我正在为一系列值创建简单的超链接，因为它们在原始模板的文本中。超链接部分不起作用，并且对foreach案例感到疑惑。我希望原始文本也被视为单元格中的超链接值。如何在VBA中实现这一点

另外，如果希望将if语句作为if包含模式（如“http://”）来使用，您将如何执行if语句

---

以下内容不起作用，我收到错误

Sub Convert_To_Hyperlinks()

    Dim Cell As Range
    Dim rng As Range
    Dim ws1 As Worksheet

    Set rng = Range("E5:E10")
    Set ws1 = Sheets("Sheet1")

    For Each Cell In rng

            If Cell <> "" Then
                ws1.Hyperlinks.Add Anchor:=ws1.Cell, Address:=ws1.Cell.Value, ScreenTip:="", TextToDisplay:=ws1.Cell
            End If
    Next Cell
End Sub

Sub-Convert_-To_-Hyperlinks（）
暗淡单元格作为范围
变暗rng As范围
将ws1设置为工作表
设置rng=范围（“E5:E10”）
设置ws1=图纸（“图纸1”）
对于rng中的每个单元
如果是单元格“”，则
ws1.Hyperlinks.Add锚点：=ws1.Cell，地址：=ws1.Cell.Value，屏幕提示：=“”，TextToDisplay:=ws1.Cell
如果结束
下一个细胞
端接头

您可以像操作符一样使用

：

Sub-Convert_-To_-Hyperlinks（）
将ws1标注为工作表、rng标注为范围、单元格标注为范围
Set ws1=thiswoolk.Sheets（“Sheet1”）
设置rng=ws1.范围（“E5:E10”）
对于rng中的每个单元
如果cell.Value像“http://*”那么
ws1.Hyperlinks.Add锚点：=单元格，地址：=单元格.Value，TextToDisplay:=单元格.Value
如果结束
下一个细胞
端接头
您可以像

操作符一样使用

：

Sub-Convert_-To_-Hyperlinks（）
将ws1标注为工作表、rng标注为范围、单元格标注为范围
Set ws1=thiswoolk.Sheets（“Sheet1”）
设置rng=ws1.范围（“E5:E10”）
对于rng中的每个单元
如果cell.Value像“http://*”那么
ws1.Hyperlinks.Add锚点：=单元格，地址：=单元格.Value，TextToDisplay:=单元格.Value
如果结束
下一个细胞
端接头
“不工作，我收到错误”-请详细说明。当前错误为“未找到方法或数据成员”，引用为“锚定：=ws1.Cell”“不工作，我收到错误”-请详细说明。当前错误为“未找到方法或数据成员”，引用为“锚定：=ws1.Cell”