標題: [發問] 自訂表單~選擇的OptionButton~成立後跳該資料表~(完成~謝謝大大的幫忙) [打印本頁]

---

作者: av8d    時間: 2012-5-29 12:55     標題: 自訂表單~選擇的OptionButton~成立後跳該資料表~(完成~謝謝大大的幫忙)

本帖最後由 av8d 於 2012-5-31 11:02 編輯

自訂表單~
For i = 6 To 21
If Me.Controls("OptionButton" & i).Value = True Then
Sheets("i+2006").Select
Range("A1").Formula = "i+2006"
Exit For
End If
Next
End Sub

i+2006這地方會出現"陣列索引超出範圍"~不知道為什麼!?

如果以上看不懂~我打個比方好了~
For i=1~5
Sheets("i+1").Select
Next i

答案最後會跑到
資料表名稱6這個位置，可是他卻出現i+1錯誤

---

作者: register313    時間: 2012-5-29 13:27

回復 1# av8d


Sheets("i+2006").Select
Range("A1").Formula = "i+2006"
改為
Sheets("" & i + 2006 & "").Range("A1").Formula = i + 2006

---

作者: av8d    時間: 2012-5-29 13:35

回復 2# register313


    大大的答案蠻明確的~我也覺得沒問題~可是依然出現陣列錯誤~(無解的系統)

我後來偷偷修改了一下~發現一件事情~
For i = 6 To 21
    If Me.Controls("OptionButton" & i).Value = True Then
        i = i + 2006
        Sheets("s" & i).Select
    End If
Next

資料表是否不能為純數字~我測試以上~就沒出現問題了~成功執行~也自動跑到該資料表

---

作者: register313    時間: 2012-5-29 13:50

回復 3# av8d

工作表名稱可為數字
[attach]11182[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)