Question

我会优化投资组合的资产配置。我是一个数据库，希望找到最好的资产做多个装配工，直到我们找到合适的。我想这样做几个成熟，所以我想知道是否可以在VBA中完全使用高级过滤器，而不是使用Excel表我想做所有的排序过程，只打印所选资产的名称这个过程的结束。

Answer 1

断开连接的记录集有一些过滤。这显示了如何使用一个进行排序。

Set Inp = WScript.Stdin
Set Outp = Wscript.Stdout
Sub Randomise
    Randomize 
    Set rs = CreateObject("ADODB.Recordset")
    With rs
        .Fields.Append "RandomNumber", 4 

        .Fields.Append "Txt", 201, 5000 
        .Open
        Do Until Inp.AtEndOfStream
            .AddNew
            .Fields("RandomNumber").value = Rnd() * 10000
            .Fields("Txt").value = Inp.readline
            .UpDate
        Loop
        .Sort = "RandomNumber"
        Do While not .EOF
            Outp.writeline .Fields("Txt").Value

            .MoveNext
        Loop
    End With
End Sub

VBA编程，带滤波器/高级滤波器的排序算法

1 个答案: