帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-11-16 01:57 | 只看該作者

[發問] 如何做選取範圍輸入亂數???

不知道是否能有大大幫忙寫一段VBA 再下還一知半解....

主要是想要設計一個按鈕垵下按鈕是對選取範圍的地方值入2~7的亂數
但因為選取範圍不是固定的...所以才頭痛...不知道是否能設計成按鈕模組
然後按下去就是對框起來的欄位輸入2~7的亂數跪求大大感恩

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2013-11-16 07:24 | 只看該作者

回復 1# a31075ha

Private Sub cbCreat_Click()
Dim rTar As Range
Randomize
For Each rTar In Selection
rTar = Int(6 * Rnd + 2)
Next
End Sub

複製代碼

Rnd-a.zip (8.07 KB)

TOP

a31075ha

中學生 Rank: 2

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

3^#

發表於 2013-11-17 22:41 | 只看該作者

感謝你受惠了
不知道大大可否教我程式碼的意思嗎??? 感恩...........

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2013-11-17 23:49 | 只看該作者

本帖最後由 luhpro 於 2013-11-17 23:52 編輯

回復 3# a31075ha
Private Sub cbCreat_Click()  ' 按鈕後執行, 此 Sub 程式碼開始
  Dim rTar As Range  ' 定義 rTar 為儲存格指標

  Randomize  ' 以目前時間為Rnd(亂數器) 計算時的基值.
  For Each rTar In Selection  ' 遍歷(亦即 rTar 會依序指向)集合中的每個元素, Selection 集合內則包含每個被 Mark 的儲存格
rTar = Int(6 * Rnd + 2)  指定 rTar 所指向的儲存格的值為 2 ~ 7 間的任一整數.
                  '  Int() 傳回括弧內數字去掉小數後的整數, Rnd 傳回一個大於等於 0 且小於 1 的小數
            '  Int(6 * rnd) 會傳回 0 ~ 5 的整數, 再 + 2 就變成 2 ~ 7 了.
  Next  '  切換 rTar 指向下一個元素, 直到所有元素都已套用過為止
End Sub  ' 此 Sub 結束

TOP

a31075ha

中學生 Rank: 2

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

5^#

發表於 2013-11-19 22:25 | 只看該作者

回復 4# luhpro

感謝受用了....正在研究這個只是還很弱.....謝謝大大的幫忙

TOP

a31075ha

中學生 Rank: 2

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

6^#

發表於 2013-12-1 21:18 | 只看該作者

回復 4# luhpro

想請問大大因為有些檔案不是我們部門的無權限改表格
是否有辦法讓再a檔案選取範圍然後再b檔案按按鈕執行自動再a檔案範圍內產生數值感恩
可跨檔案產生或者在新增一個加入檔案的按鈕讓該檔案內的工作表所選取範圍內都能產生作用感恩

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

7^#

發表於 2013-12-1 22:40 | 只看該作者

回復 luhpro
想請問大大因為有些檔案不是我們部門的無權限改表格
是否有辦法讓再a檔案選取範圍然後再b檔案按按鈕執行自動再a檔案範圍內產生數值 ...
a31075ha 發表於 2013-12-1 21:18

看不太懂你敘述的需求.
依你所述的功能, 必須在 a 與 b 兩檔案都有更改檔案的權限才能做到 :
※ 在 a 檔案產生數值 => 要有變更儲存格內容的權限.
※ 在 b 檔案按按鈕時可以執行功能,
要在 b 檔案有寫入程式與建立按鈕元件的權限.
這都不是你 "無權限改表格" 的情形下可以做到的事.

建議你提供範例檔案並將實際要做的事詳細述說一下,
這樣才好根據需求擬出程式.
另外對於各檔案的異動需求,
及對應此需求所可擁有的權限也要詳述,
不然做出來的程式很可能會因為權限不足而無法運作.

TOP

wl02353427