麻辣家族討論版版 » Excelㄧ般區 » VBA 運算後自動換行

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2018-8-12
最後登錄: 2018-10-11

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-8-12 21:18 | 只看該作者

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

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

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

收藏

小丁

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-8-13 07:53 | 只看該作者

回復 1# PaulDing

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

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

複製代碼

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

3^#

發表於 2018-8-13 09:44 | 只看該作者

回復 1# PaulDing

參考看看

Sub Project1_Click()
Dim rTar As Range
Randomize
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))
rTar = Int((21 - 1) * Rnd + 1) * 0.01
Next
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

4^#

發表於 2018-8-13 10:05 | 只看該作者

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

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2018-8-13 10:20 | 只看該作者

回復 4# 准提部林

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

set xEnd=xEnd(2)

複製代碼

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

謝謝指教～

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-10-26

2016猴年全勤獎章

6^#

發表於 2018-8-13 11:32 | 只看該作者

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

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

7^#

發表於 2018-8-13 16:39 | 只看該作者

回復 5# a5007185

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

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

靜思自在 : 君子立恆志，小人恆立志。

返回列表下一主題上一主題