- 帖子
- 354
- 主題
- 5
- 精華
- 0
- 積分
- 387
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-8-2
 
|
回復 1# papaya
你的敘述有點模糊
大致上先討論一下
如果我沒猜錯 實際上是
if Number = "1-49" then 寫錯 所以永遠這行不會執行
這行的意思是
如果Number 的文字 並非 ("1-49" 這個4個字元字串) 的情況下 就是false
那麼根據目前的狀況來說
表中並沒有"1-49"的國文字串
正確寫法應該要改成
if --Number >= 1 and --Number <= 49 then
這樣才是判斷 當前數字是否介於1~49的數字
if --Number >= 1 and --Number <= 49 then
ReDim Preserve INnum(48)
For i = 0 To 48
INnum(i) = i + 1
Next
ElseIf Number = 0 Then
ReDim Preserve INnum(6)
ReNumber = 1
ElseIf Number = "" Then
ReDim Preserve INnum(0)
ReNumber = 0
End If |
|
發表於 2021-7-17 02:10
| 
