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

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

12^#

發表於 2013-12-3 21:52 | 只看該作者

回復 11# Hsieh

感謝你大大我試試看

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^#

發表於 2013-12-3 14:28 | 只看該作者

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

學海無涯_不恥下問

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

10^#

發表於 2013-12-2 23:13 | 只看該作者

回復 8# wl02353427

感謝你

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

9^#

發表於 2013-12-2 23:13 | 只看該作者

回復 7# luhpro

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

wl02353427

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 新北市
註冊時間: 2013-11-30
最後登錄: 2023-1-12

8^#

發表於 2013-12-1 23:01 | 只看該作者

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

亂數.png (22.44 KB)

亂數.rar (22.61 KB)

初新者~指教囉~

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 檔案有寫入程式與建立按鈕元件的權限.
這都不是你 "無權限改表格" 的情形下可以做到的事.

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

帖子: 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檔案範圍內產生數值感恩
可跨檔案產生或者在新增一個加入檔案的按鈕讓該檔案內的工作表所選取範圍內都能產生作用感恩

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

5^#

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

回復 4# luhpro

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

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 結束