VBA編寫求教 - 自動換行 - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

VBA編寫求教 - 自動換行

excel vba

jarpay 2018-08-12 16:32:35 ‧ 4607 瀏覽

分享至

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

我在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

Neish iT邦研究生 1 級 ‧ 2018-08-13 08:12:28 檢舉

A1:A7 要用變數表示
類似這樣Range("A" & i & ":A " & i + 6)

另外你只要做到A8:A14就好還是要一直無限點選加下去?

jarpay iT邦新手 5 級 ‧ 2018-08-13 10:47:26 檢舉

要一直無限的點下去，要做52週，所以會有個範圍不能超過。

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2018-08-13 09:35:17

最佳解答

Sub test()
  Dim r As Range, i As Integer
  
  Set r = Cells(Rows.Count, 1).End(xlUp).Cells
  If r.Address = Range("A1").Address Then
  Else
    Set r = r.Offset(1)
  End If
  
  Randomize
  For i = 0 To 6
    if r.offset(i).row > 52 then exit sub
    r.Offset(i).Value = Int((21 - 1) * Rnd + 1) * 0.01
  Next i
End Sub