麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 如何做選取範圍輸入亂數??? [打印本頁]

作者: a31075ha 時間: 2013-11-16 01:57 標題: 如何做選取範圍輸入亂數???

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

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

作者: luhpro 時間: 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

複製代碼

[attach]16723[/attach]

作者: a31075ha 時間: 2013-11-17 22:41

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

作者: luhpro 時間: 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 結束

作者: a31075ha 時間: 2013-11-19 22:25

回復 4# luhpro

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

作者: a31075ha 時間: 2013-12-1 21:18

回復 4# luhpro

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

作者: luhpro 時間: 2013-12-1 22:40

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

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

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

作者: wl02353427 時間: 2013-12-1 23:01

我覺得內建RAND+LARGE+MATCH+LOOKUP這些函數可以做出來欸，本來是拿來排考試座位的。

作者: a31075ha 時間: 2013-12-2 23:13

回復 7# luhpro

好的感謝大大我明白了因為需要亂數抽樣工作表太多....才想說是否可以跨檔案或者工作表產生..不過看來還是可以做的表單就做按鈕不能的還是自己亂數KEY上去...

作者: a31075ha 時間: 2013-12-2 23:13

回復 8# wl02353427

感謝你

作者: Hsieh 時間: 2013-12-3 14:28

回復 9# a31075ha
要在不同檔案做相同動作，建議將巨集存成增益集
在你的EXCEL中載入增益集後
以後開啟任何檔案均可操作該巨集

[attach]16939[/attach]

作者: a31075ha 時間: 2013-12-3 21:52

回復 11# Hsieh

感謝你大大我試試看

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)