[已解决]求助！怎么在一个模块里面组合两个VBA？

gonglu3446

现在已经在一个工作表里面编好了两个VBA，先执行1，再执行2，才能完成最终的运算，怎么样才能把这两个BVA合并，点一次按钮就能完成运算？
后面将附上表格附件
表格中，蓝色区域里面是原始数据，黄色结果里面是计算第一步的结果，绿色区域里面是最终的计算结果
              计算的结果的表达方式需要修改，以前面几行为例

最佳答案

月排行榜 / 总排行榜

youfang

2013-9-14 06:16

sub test1()
……
call test2
end sub
就是在程序test1的end sub前加call 调用test2程序

跳转到最佳答案楼层

gonglu3446

调整结果的目的不是后面的文字，而是前面的数据，把连续的数组表达成一个段落
例如：0    -173
         173-264
         264-714
       直接表达成0-714
         

youfang

在第一个程序的后面加call调用第二个程序行不行

gonglu3446

具体的代码是什么

youfang

sub test1()
……
call test2
end sub
就是在程序test1的end sub前加call 调用test2程序

我心飞翔410

不是很明白 你是要模块一中两个组合 还是什么的啊  

gonglu3446

youfang 发表于 2013-9-14 06:16
sub test1()
……
call test2

感谢你的解答，实验后成功了。以后再有问题还得请教你啊

gonglu3446

youfang 发表于 2013-9-14 06:16
sub test1()
……
call test2

Type MYST
    tag As Boolean
    开始 As Double
    结束 As Double
    名称 As String
    d01 As Double
    d02 As Double
    d11 As Double
    d12 As Double
    d21 As Double
    d22 As Double
    d31 As Double
    d32 As Double
    d41 As Double
    d42 As Double
    d1 As Double
    d2 As Double
End Type
Sub test2()
    Dim le
    Dim rng, i, i1, t, diff
    Dim Data(0 To 10000) As MYST
    '第一步  生成初始数据
    '见上面的test

    '第二步 数据读入内存
    Set rng = Range([F4], [h1000000].End(3))
    Data(0).d01 = 70
    Data(0).d02 = 100
    For i = 1 To rng.Rows.Count
        Data(i).开始 = rng.Cells(i, 1)
        Data(i).结束 = rng.Cells(i, 2)
        Data(i).名称 = rng.Cells(i, 3)
    Next

    '第三步 对数据进行处理
    For i = 1 To rng.Rows.Count
        diff = Data(i).结束 - Data(i).开始
        Data(i).d01 = IIf((Data(i).名称 = "高填") * (diff > 70), diff, 0)
        Data(i).d02 = IIf((Data(i).名称 = "其他") * (diff < 100), diff, 0)
        Data(i).d11 = IIf((Data(i).名称 = "高填") * (diff > 70), Data(i).开始, 0)
        Data(i).d12 = IIf((Data(i).名称 = "高填") * (diff > 70), Data(i).结束, 0)
        Data(i).d21 = IIf(Data(i).名称 = "高填" And diff > 30 And diff < 70, (Data(i).开始 + Data(i).结束) / 2 - 35, 0)
        Data(i).d22 = IIf(Data(i).名称 = "高填" And diff > 30 And diff < 70, (Data(i).开始 + Data(i).结束) / 2 + 35, 0)
    Next
    For i = 1 To rng.Rows.Count
        Data(i).d31 = IIf(Data(i - 1).d01 * Data(i + 1).d01 * Data(i).d02 > 0, Data(i - 1).开始, 0)
        Data(i).d32 = IIf(Data(i - 1).d01 * Data(i + 1).d01 * Data(i).d02 > 0, Data(i + 1).结束, 0)

    Next
    For i = 1 To rng.Rows.Count
        Data(i).d41 = IIf((Data(i).d02 <> 0) * (Data(i).d02 < 100) * (Data(i - 1).d11 + Data(i - 1).d21 + Data(i - 1).d31) * (Data(i + 1).d11 + Data(i + 1).d21 + Data(i + 1).d31), Data(i).开始, 0)
        Data(i).d42 = IIf((Data(i).d02 <> 0) * (Data(i).d02 < 100) * (Data(i - 1).d11 + Data(i - 1).d21 + Data(i - 1).d31) * (Data(i + 1).d11 + Data(i + 1).d21 + Data(i + 1).d31), Data(i).结束, 0)
        Data(i).d1 = Data(i).d11 + Data(i).d21 + Data(i).d31 + Data(i).d41
        Data(i).d2 = Data(i).d12 + Data(i).d22 + Data(i).d32 + Data(i).d42
        Data(i).tag = Data(i).d1 + Data(i).d2 > 0
    Next

    '第四步 输出数据
    [I4:K1000000].ClearContents
    t = 4
    For i = 1 To rng.Rows.Count
        If Data(i).tag = True Then
            Cells(t, "i") = Data(i).开始
            Cells(t, "j") = Data(i).结束
            Cells(t, "k") = Data(i).名称
            t = t + 1
        End If
    Next
End Sub





能帮我解释一下这段语句吗？

gonglu3446

youfang 发表于 2013-9-14 03:08
在第一个程序的后面加call调用第二个程序行不行

还有个问题
我的工作表里面，计算的结果是将没以段都列出来了，包括连续的段落也是依次列出的，怎么能让最后的结果显示连续的段落只当做一段列出？
例如：（0-234,234-423,423-516）里面的四个段落为连续的段落，直接记为（0-516）
把这种形式的段落排列：     0        234                改为这种形式  ：        0       516   
                                       234        423                                                  710    856
                                       423        516                                                   910    999
                                       710         822
                                       822         856
                                       910         999