- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
- Dim myrange, z, x1, a
- a = Array("品學兼優", "奮發向上", "聰明伶俐", "主動求知", "各科均優")
- z = 10
- For x1 = 1 To z
- Set myrange = Sheets("sheet1").Range("c" & x1)
- Select Case myrange
- Case 90 To 99
- Sheets("sheet1").Range("d" & x1) = a(Int(Rnd() * 5))
- End Select
- Next x1
|
|
發表於 2012-9-17 07:51
| 