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

a31075ha

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

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

luhpro

回復 1# a31075ha

1. Private Sub cbCreat_Click()
   
2.   Dim rTar As Range
   
3.   
   
4.   Randomize
   
5.   For Each rTar In Selection
   
6.     rTar = Int(6 * Rnd + 2)
   
7.   Next
   
8. End Sub

複製代碼

Rnd-a.zip (8.07 KB)

下載次數: 12

2013-11-16 07:24

a31075ha

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

luhpro

回復 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

回復 4# luhpro


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

a31075ha

回復 4# luhpro


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

luhpro

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

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

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

wl02353427

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

a31075ha

回復 7# luhpro


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

a31075ha

回復 8# wl02353427


感謝你