返回列表 上一主題 發帖

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

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 
5#
發表於 2010-12-1 02:02 | 只看該作者
嗯嗯 謝謝版主幫忙
重算的時候也要避開手動輸入值
80 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-11-30 22:19 | 只看該作者
回復 3# jonlylovek
1. 出現錯誤原因應是你沒有引用分析工具箱增益集
而刪除該行後的程式又會出現因儲以0造成錯誤
請先勾選
工具/增益集
分析工具箱
然後再執行程式碼
2. 你在重算時也要避開手動輸入的值嗎?
學海無涯_不恥下問

TOP

jonlylovek

帖子
11 
主題
5 
精華
0 
積分
15 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-20 
最後登錄
2015-2-24 
3#
發表於 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2010-11-28 17:34 | 只看該作者
Private Sub Worksheet_Calculate()
Do
[a2:a6] = "=RandBetween(1, 42)"
Loop Until [sumproduct(1/countif(a1:a6,a1:a6))] = 6
End Sub

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題