返回列表 上一主題 發帖

[發問] 自訂表單~選擇的OptionButton~成立後跳該資料表~(完成~謝謝大大的幫忙)

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-5-29 13:27 | 只看該作者
回復 1# av8d


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

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 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

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-5-29 13:50 | 只看該作者
回復 3# av8d

工作表名稱可為數字
1.gif

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題