返回列表 上一主題 發帖

請問我想排除隨機號碼該怎編寫

jonlylovek

帖子
11 
主題
5 
精華
0 
積分
15 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-20 
最後登錄
2015-2-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-11-28 15:21 | 顯示全部帖子

請問我想排除隨機號碼該怎編寫

Private Sub Worksheet_Activate()
For i = 1 To 6
    工作表2.Cells(i, 1).Value = ""
Next
Dim A(6)
For i = 1 To 6
    A(i) = WorksheetFuntion.RandBetween(1, 42)
Next

For i = 1 To 6
    工作表2.Cells(i, 1).Value = A(i)
Next

End Sub

這是六個號碼隨機選號

若我接下來要編寫其中一個號碼手打自選，其他五個號碼不重複於自選號碼，且按F9能自動更新隨機號碼，該怎麼做。
收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

jonlylovek

帖子
11 
主題
5 
精華
0 
積分
15 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-20 
最後登錄
2015-2-24 
2#
發表於 2010-11-30 10:49 | 顯示全部帖子
感謝oobird版大的協助
當我複製上去 他出現一個執行階段錯誤13 型態不符合
當我去除這段敘述 他出現執行階段錯誤424
請問我該如何解決

我想將a1:a6全隨機
b2:b6隨機且排除手打自選b1
c3:c6隨機且排除手打自選c1.c2
d4:d6隨機且排除手打自選d1.d2.d3
e5:e6隨機且排除手打自選e1.e2.e3.e4
f6隨機且排除手打自選f1.f2.f3.f4.f5
且按下f9能使隨機號碼更新

由於小弟剛入門 再尋求解決問題方法 希望大家能指導 感謝
80 字節以內
不支持自定義 Discuz! 代碼

TOP

jonlylovek

帖子
11 
主題
5 
精華
0 
積分
15 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-20 
最後登錄
2015-2-24 
3#
發表於 2010-12-1 02:02 | 顯示全部帖子
嗯嗯 謝謝版主幫忙
重算的時候也要避開手動輸入值
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題