麻烦老师帮忙怎样把俩个宏合并成一个？感谢。。

明天会更好11

怎么把宏1和宏2合并成一个工作簿，老师麻烦帮忙！
宏一代码如下：
Function FillOneRow(url As String, r As Integer) As Integer
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", url, False
        .send
        sp = Split(.responsetext, "~")
        If UBound(sp) > 3 Then
            FillOneRow = 1
            Cells(r, 2).Value = sp(1) '名称
            Cells(r, 3).Value = sp(3) '当前价格
            Cells(r, 4).Value = sp(4) '昨日收盘价
            Dim zhangDie As Double
            zhangDie = sp(32)
            Cells(r, 5).Value = zhangDie
            If zhangDie > 0 Then
                '上涨使用红色
                Cells(r, 5).Font.Color = vbRed
                Cells(r, 3).Font.Color = vbRed
            Else
                '下跌使用绿色
                Cells(r, 5).Font.Color = &H228B22
                Cells(r, 3).Font.Color = &H228B22
            End If
        Else
            FillOneRow = 0
        End If
    End With
End Function

Sub GetData()
    Dim succeeded As Integer
    Dim url As String
    Dim row As Integer
    Dim code As String
    For row = 2 To Range("A1").CurrentRegion.Rows.Count '从第二行开始
        code = Cells(row, 1).Value
        If code <> "" Then
            url = "http://qt.gtimg.cn/q=sh" & code '沪市
            succeeded = FillOneRow(url, row)
            
            If succeeded = 0 Then
                url = "http://qt.gtimg.cn/q=sz" & code '深市
                succeeded = FillOneRow(url, row)
            End If
            
            If succeeded = 0 Then
                MsgBox ("获取失败")
            End If
        End If
    Next
End Sub


宏2代码如下：

'Option Explicit

Sub test()
    For r = 3 To Range("A1").CurrentRegion.Rows.Count
        dm = Cells(r, 1).Value
        If Val(dm) < 600000 Then
            url = "http://qt.gtimg.cn/q=sz" & dm
        Else
            url = "http://qt.gtimg.cn/q=sh" & dm
        End If
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", url, False
            .send
            sp = Split(.responsetext, "~")
            If UBound(sp) > 3 Then
                Cells(r, 3).Value = sp(3)
                Cells(r, 4).Value = Format(sp(30), "0000-00-00 00:00:00")
            Else
                Cells(r, 3).Value = "证券代码错啦！"
            End If
        End With
    Next
End Sub

ykcbf1100

GetData()代码最后加上一句就行了：call test

明天会更好11

ykcbf1100 发表于 2024-4-1 16:03
GetData()代码最后加上一句就行了：call test

是这样吗？显示错误怎么搞？把2复制到1这位置

ykcbf1100

明天会更好11 发表于 2024-4-1 18:48
是这样吗？显示错误怎么搞？

你还真是小白啊，这都不会。
你如果上传附件，问题早解决了。

明天会更好11

ykcbf1100 发表于 2024-4-1 18:50
你还真是小白啊，这都不会。
你如果上传附件，问题早解决了。

好的我上传？哪我上传你帮我搞好，谢谢老师了！！
在哪上转啊，看到了，麻烦老师了，哈哈哈，真的是小白！

ykcbf1100

明天会更好11 发表于 2024-4-1 18:54
好的我上传？哪我上传你帮我搞好，谢谢老师了！！
在哪上转啊。。。

工作簿压缩后才能上传。
回复时点高级模式，点附件，选择文件上传。

杨建营

明天会更好11 发表于 2024-4-1 18:54
好的我上传？哪我上传你帮我搞好，谢谢老师了！！
在哪上转啊。。。

选择这个图标，选择文件，确定。OK。

明天会更好11

杨建营 发表于 2024-4-1 18:57
选择这个图标，选择文件，确定。OK。

嗯，找到了，哈哈哈，谢谢老师麻烦了，我太笨了！！向老师们学习。。。

ykcbf1100

明天会更好11 发表于 2024-4-1 18:54
好的我上传？哪我上传你帮我搞好，谢谢老师了！！
在哪上转啊，看到了，麻烦老师了，哈哈哈，真的是小白 ...

附件供参考。。。

明天会更好11

ykcbf1100 发表于 2024-4-1 19:01
附件供参考。。。

老师没能合并啊，我意思是把俩个表格合成一个，再麻烦下，谢谢！！