試圖添加隨機整數的總和，VBA

Question

我想總結所有的隨機整數值超過500，然後將它們呈現在文本框中，但它不工作，每當我運行代碼時，它總和零。這是使用VBA的用戶表單的內部。任何建議，將不勝感激。

Private Sub CommandButton1_Click() 
    Dim r As Double, c As Double, rand As Double, y As Double, x As Double, i As Double 
    r = TextBox1.Value 
    c = TextBox2.Value 
    rand = TextBox3.Value 
    Rnd [5] 
    i = 0 
     For x = 1 To r 
      For y = 1 To c 
       Cells(x, y).Value = Int(Rnd * rand) 
       If (ActiveCell.Value >= 500) Then 
        i = i + ActiveCell.Value 
       Else ' do nothing 
       End If 
      Next y 
     Next x 
     Cells(r + 1, c).Value = "SUM" 
     Cells(r + 1, c + 1).Value = i 
     MsgBox (i) 
End Sub 

Answer 1

我不知道很多關於VBA，但可以

Cells(x, y).Value = Int(Rnd * rand) 
If (ActiveCell.Value >= 500) Then 

..可以參照不同的細胞？