麻辣家族討論版版 » Excel程式區 » 請教有關亂數的語法問題？

返回列表下一主題上一主題發帖

請教有關亂數的語法問題？

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-9-16 22:01 | 只看該作者

請教有關亂數的語法問題？

各位論壇的先進大家好！不好意思。小弟又來請教大家問題了。這次的構想是『自動選擇評語系統』，當然這只是測試的性質，最後還是要由使用者也就是教師來選擇真正適合學生的評語。這語法會將老師所給的平時分數，挑選出預設的評語，語法如下：
Option Explicit
Sub 自動評語系統()
Dim a1, a2, a3, a4, a5 As String
Dim myrange, z, x1
a1 = "品學兼優"
a2 = "奮發向上"
a3 = "聰明伶俐"
a4 = "主動求知"
a5 = "各科均優"
z = 5
For x1 = 1 To z
Set myrange = Sheets("sheet1").Range("c" & x1)
Select Case myrange
      Case 90 To 99
         Sheets("sheet1").Range("c" & x1) = " a" & (Int(Rnd() * 5 + 1))
End Select
Next x1
  End Sub

問題：我是想由亂數去挑選預設的5個評語，但是表格內卻出現a2,a1,a5而不是中文的評語，真不知是哪裡出問題，請教一下？

樓主熱帖

收藏

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

6^#

發表於 2012-9-18 12:30 | 只看該作者

好東西，又學到東西了。

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

5^#

發表於 2012-9-17 22:17 | 只看該作者

回復 4# c_c_lai
真是太感謝了！我又學到一招了，多虧網路上有這麼多熱心的前輩。原本我以為很無趣的vba語法，沒想到在大家的熱心幫忙下，越來越有成就感。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-9-17 21:05 | 只看該作者

回復 3# skyutm
chin15 的範例是OK的。你試試這個，是不會有問題的。

有關亂數的語法問題.rar (8.92 KB)

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

3^#

發表於 2012-9-17 20:51 | 只看該作者

回復 2# chin15
chin15 謝謝你，可是語法在執行時，會出現錯誤訊息。「不正確的外部程序」。

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2012-9-17 07:51 | 只看該作者

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

複製代碼

靜思自在 : 站在半路，比走到目標更辛苦。

返回列表下一主題上一主題