Question

好的，这里的交易：我需要对.csv文件进行全面检查（将当前工作表中的一个与外部工作表进行比较）。我决定将列表分成10个相等的部分（十分位数）。在每个十分位数中，我选择属于该部分的随机值，并使用该行号来比较两组数据。

在事物崩溃的地方是FOR功能。我正在寻找一种方法来遍历每个十分位数（从rand0开始）并让VBA检查此工作簿中.csv和数据表的值是否相等。如果不是 - 将执行一个函数（称为get_param）。

我不太明白如何让VBA从Dec = 0到9执行FOR函数 - 所以实质上从行号rand0到行号rand9并执行不等式检查（在第二个IF函数中）。兰特＆amp; Dec部分不起作用。我正在寻找关于如何解决这个问题的线索，或者寻找新的实现来做同样的事情。

更多细节： n是.csv文件中的行数（等于几千）。 np是此文件中的行数（应该等于n - 如果不是，则执行函数）。 ParamLocation是自动指定的 - 它应位于特定位置。

Sub check_changes_param()

Dim Dec As Integer
Call public_dims
Call deciles    

Set ParamBook = Workbooks.Open(ParamLocation)    

'==========CHECKS IF PARAMETERS.xlsm EXISTS IN THE CORRECT LOCATION==========
If ParamLocation = "" Then
    MsgBox "The Parameters.xlsm file does not exist or is in the incorrect location. Please ensure it is located in " & ParamLocation
    Else
        For Dec = 0 To Dec = 9
            If ThisWorkbook.Sheets("Data").Cells(rand & Dec, 11) <> ParamBook.Sheets("Data").Cells(rand & Dec, 11) Or n <> np Then
                Call get_param
                Exit For
            End If
        Next Dec
End If
End Sub

Public Sub deciles()

rand0 = Int((n / 10) * 1) * Rnd + 1
rand1 = Int((n / 10) * 2 - (n / 10) * 1 + 1) * Rnd + (n / 10) * 1
rand2 = Int((n / 10) * 3 - (n / 10) * 2 + 1) * Rnd + (n / 10) * 2
rand3 = Int((n / 10) * 4 - (n / 10) * 3 + 1) * Rnd + (n / 10) * 3
rand4 = Int((n / 10) * 5 - (n / 10) * 4 + 1) * Rnd + (n / 10) * 4
rand5 = Int((n / 10) * 6 - (n / 10) * 5 + 1) * Rnd + (n / 10) * 5
rand6 = Int((n / 10) * 7 - (n / 10) * 6 + 1) * Rnd + (n / 10) * 6
rand7 = Int((n / 10) * 8 - (n / 10) * 7 + 1) * Rnd + (n / 10) * 7
rand8 = Int((n / 10) * 9 - (n / 10) * 8 + 1) * Rnd + (n / 10) * 8
rand9 = Int(n - (n / 10) * 9 + 1) * Rnd + (n / 10) * 9

End Sub

Answer 1

请改为尝试：

Sub check_changes_param()

Dim Dec As Integer
Call public_dims
Dim deciles As Variant
deciles = decilesArray()

Set ParamBook = Workbooks.Open(ParamLocation)    

'==========CHECKS IF PARAMETERS.xlsm EXISTS IN THE CORRECT     LOCATION==========
If ParamLocation = "" Then
    MsgBox "The Parameters.xlsm file does not exist or is in the incorrect location. Please ensure it is located in " & ParamLocation
Else
    For Dec = 0 To UBound(deciles)
        If ThisWorkbook.Sheets("Data").Cells(deciles(Dec), 11) <> ParamBook.Sheets("Data").Cells(deciles(Dec), , 11) Or n <> np Then
            Call get_param
            Exit For
        End If
    Next Dec
End If
End Sub

Public Function decilesArray() As Variant
randomize()

rand0 = Int((n / 10) * 1) * Rnd + 1
rand1 = Int((n / 10) * 2 - (n / 10) * 1 + 1) * Rnd + (n / 10) * 1
rand2 = Int((n / 10) * 3 - (n / 10) * 2 + 1) * Rnd + (n / 10) * 2
rand3 = Int((n / 10) * 4 - (n / 10) * 3 + 1) * Rnd + (n / 10) * 3
rand4 = Int((n / 10) * 5 - (n / 10) * 4 + 1) * Rnd + (n / 10) * 4
rand5 = Int((n / 10) * 6 - (n / 10) * 5 + 1) * Rnd + (n / 10) * 5
rand6 = Int((n / 10) * 7 - (n / 10) * 6 + 1) * Rnd + (n / 10) * 6
rand7 = Int((n / 10) * 8 - (n / 10) * 7 + 1) * Rnd + (n / 10) * 7
rand8 = Int((n / 10) * 9 - (n / 10) * 8 + 1) * Rnd + (n / 10) * 8
rand9 = Int(n - (n / 10) * 9 + 1) * Rnd + (n / 10) * 9
decilesArray= Array(rand0,rand1,rand2,rand3,rand4,rand5,rand6,rand7,rand8,rand9)
End Sub

Answer 2

我提出这个更正，

公共暗淡语句应在子或函数之外定义。

使用数组而不是连接来引用变量rand＆amp; dec不是解决rand0, ... rand9变量的正确VBA语法。

Dim rand(9)
Sub check_changes_param()

Dim Dec As Integer, n
' Call public_dims ' put dim instructions as first instructions of this module
n = 10 'modify 10 to reflect correct value
Call deciles(n)

Set ParamBook = Workbooks.Open(ParamLocation)

'==========CHECKS IF PARAMETERS.xlsm EXISTS IN THE CORRECT  LOCATION==========
If ParamLocation = "" Then
MsgBox "The Parameters.xlsm file does not exist or is in the incorrect location. Please ensure it is located in " & ParamLocation
Else
    For Dec = 0 To 9
        If ThisWorkbook.Sheets("Data").Cells(rand(Dec), 11) <> ParamBook.Sheets("Data").Cells(rand(Dec), 11) Or n <> np Then
            Call get_param
            Exit For
        End If
    Next Dec
End If
End Sub   

Public Sub deciles(n)   
    rand(0) = Int((n / 10) * 1) * Rnd + 1
    For i = 1 To 8
        rand(i) = Int((n / 10) * (i + 1) - (n / 10) * (i + 1) + 1) * Rnd + (n / 10) *  i
    Next
    rand(9) = Int(n - (n / 10) * 9 + 1) * Rnd + (n / 10) * 9
End Sub

VBA在循环内按名称调用变量

2 个答案: