返回列表 上一主題 發帖

如何使用多個KeyCode~TextBox1.Activate能使用迴圈撰寫嗎?(已解決，感謝O大)

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-9-11 02:40 | 只看該作者

如何使用多個KeyCode~TextBox1.Activate能使用迴圈撰寫嗎?(已解決，感謝O大)

本帖最後由 av8d 於 2011-9-12 11:32 編輯

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    i = 49
    For j = 8 To 13
    If KeyCode = i Then
    工作表1.OLEObjects("TextBox" & j).Activate
    i = i + 1
    Next
    End If
End Sub


以上該如何撰寫才能寫出迴圈?(如下)
    If KeyCode = 49 Then
    TextBox8.Activate
    End If

    If KeyCode = 50 Then
    TextBox9.Activate
    End If

    If KeyCode = 51 Then
    TextBox10.Activate
    End If

以此類推~
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-9-11 12:59 | 只看該作者
  1. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2.   i = KeyCode
  3.   If i < 49 Or i > 57 Then Exit Sub
  4.   Me.OLEObjects("TextBox" & i - 41).Activate
  5. End Sub
複製代碼

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題