返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2013-11-16 07:24 | 顯示全部帖子
回復 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)

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
3#
發表於 2013-12-1 22:40 | 顯示全部帖子
回復  luhpro
想請問大大 因為有些檔案不是我們部門的無權限改表格
  是否有辦法讓 再a檔案選取範圍 然後再b檔案按按鈕執行 自動再a檔案範圍內產生數值 ...
a31075ha 發表於 2013-12-1 21:18

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

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

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題