返回列表 上一主題 發帖

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

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

TOP

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

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題