返回列表 上一主題 發帖

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

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
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錯誤
收藏 分享

av8d

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

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題