[已解决]修改表格中的VBA编程

zames

修改附件表格中的 VBA 编程，点 COPY 控件按钮，让 I 列生成的数据前缀都添加 https://q.did.sa/ ，而且这列的数据要取消超链接。

最佳答案

月排行榜 / 总排行榜

林木水

2021-12-10 15:57

在代码  End sub上面加上


      Dim x As Integer, mrr, h As Integer, Nrr(), z As Integer
      h = Sheet6.Cells(Rows.Count, "I").End(xlUp).Row
      mrr = Sheet6.Range("I3:I" & h)
      For x = 1 To UBound(mrr, 1)
            z = z + 1
            ReDim Preserve Nrr(1 To z)
            Nrr(z) = Sheet6.Range("R28").Value & mrr(x, 1)
      Next x
        Sheet6.Range("I3").Resize(z) = Application.Transpose(Nrr)

end sub
再添加一个取消超链接的模块，因为你这种双击会自动变成超链接，需要去删除超链接
Sub 取消超链接()
   Dim a As Integer, i As Integer
   a = Sheet6.Cells(Rows.Count, "I").End(xlUp).Row
   For i = 3 To a
        If Sheet6.Range("i" & i).Hyperlinks.Count > 0 Then
            Sheet6.Range("i" & i).Hyperlinks.Delete
        End If
   Next i
End Sub


以上。祝顺心

跳转到最佳答案楼层

林木水

在代码  End sub上面加上


      Dim x As Integer, mrr, h As Integer, Nrr(), z As Integer
      h = Sheet6.Cells(Rows.Count, "I").End(xlUp).Row
      mrr = Sheet6.Range("I3:I" & h)
      For x = 1 To UBound(mrr, 1)
            z = z + 1
            ReDim Preserve Nrr(1 To z)
            Nrr(z) = Sheet6.Range("R28").Value & mrr(x, 1)
      Next x
        Sheet6.Range("I3").Resize(z) = Application.Transpose(Nrr)

end sub
再添加一个取消超链接的模块，因为你这种双击会自动变成超链接，需要去删除超链接
Sub 取消超链接()
   Dim a As Integer, i As Integer
   a = Sheet6.Cells(Rows.Count, "I").End(xlUp).Row
   For i = 3 To a
        If Sheet6.Range("i" & i).Hyperlinks.Count > 0 Then
            Sheet6.Range("i" & i).Hyperlinks.Delete
        End If
   Next i
End Sub


以上。祝顺心

zames

若订单数量填写为空时点击控件按钮COPY，I3 I4 I5 单元格会有没有用的数据

zames

林木水 发表于 2021-12-10 18:29
在代码  End sub上面加上

若订单数量填写为空时点击控件按钮COPY，I3 I4 I5 单元格会有没有用的数据

林木水

这个你自己可以修改一下代码，基本逻辑不难。如果是我重新编写代码的应该改期来就比较轻松。
我这边只解决了后面2个步骤：
1.I列内容添加网址
2.取消超链接