[發問] VBA 運算後自動換行 VBA

PaulDing

請教各位先進,小弟正在做模擬驗證,使用亂數產生器產生數據進行模擬驗證,

我在VBA上寫了一段程式產生了巨集按鈕可以在A1:A7產生一週的亂數,可是

我想要在每按一次巨集按鈕就再自動往下產生一週(A8:A14)的亂數該如何

編寫呢?

Sub Project1_Click()
Dim rTar As Range

Randomize
For Each rTar In Range("A1:A7")
rTar = Int((21 - 1) * Rnd + 1) * 0.01
Next
End Sub

a5007185

回復 1# PaulDing


如果你要增加你的亂數範圍的話，
你可以修改For迴圈的範圍，
For Each rTar In Range("A1:A7")

1. For Each rTar In Range("A1:A14")

複製代碼

naruto018

回復 1# PaulDing

參考看看

1. Sub Project1_Click()
   
2. 
   
3. Dim rTar As Range
   
4. 
   
5. Randomize
   
6. For Each rTar In Range("A1:A7").Offset(IIf(Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row = 1, IIf(Cells(1, 1) = "", 0, 1), Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row))
   
7. rTar = Int((21 - 1) * Rnd + 1) * 0.01
   
8. Next
   
9. 
   
10. End Sub   

複製代碼

准提部林

dim xEnd as range, xR as range
set xEnd=cells(rows.count,1).end(xlup)
if xEnd<>"" then set xEnd=xEnd(2)
for each xR in xEnd.resize(7)
    xR=???
next

a5007185

回復 4# 准提部林

請問這句語法的用意是什麼？

1. set xEnd=xEnd(2)

複製代碼

xEnd(2)的參數源自哪裡？

謝謝指教～

ikboy

1. Sub Project1_Click()
   
2. Dim rTar As Range, r&
   
3. r = Cells(Rows.Count, 1).End(3).Row
   
4. If Not r = 1 Then r = r + 1
   
5. Randomize
   
6. For Each rTar In Cells(r, 1).Resize(7)
   
7. rTar = Int((21 - 1) * Rnd + 1) * 0.01
   
8. Next
   
9. End Sub

複製代碼

准提部林

回復 5# a5007185

如果最後一格非空, 往下移一格
set xEnd=xEnd.CELLS(2, 1)  與這個意思相同
也可以 set xEnd=xEnd(2, 1)

同欄, 所以可省略第二參數