返回列表 上一主題 發帖

[發問] 如何將OptionButton判斷改成TextBox判斷?

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-16 17:06 | 只看該作者

[發問] 如何將OptionButton判斷改成TextBox判斷?

  1.     On Error Resume Next

  3.     For I = 6 To 21

  5.         If Me.Controls("OptionButton" & I).Value = True Then

  7.             Set Ws = Sheets("" & I + 2006 & "")

  9.             If Ws Is Nothing Then

  11.                 ThisWorkbook.Sheets.Add().Name = "" & I + 2006 & ""
  12.             
  13.                 Sheets("2012").Select
  14.             
  15.                 Cells.Copy Sheets("" & I + 2006 & "").[A1]
  16.         
  17.                 Sheets("" & I + 2006 & "").Select
  18.         
  19.                 Range("A1").Formula = I + 2006

  21.                 Call test

  23.                 Unload Me
  24.             
  25.                 Call ShowMsgBox

  27.             Else
  28.         
  29.                 Ws.Select
  30.         
  31.                 Range("A1").Formula = I + 2006

  33.                 Call test

  35.                 Unload Me
  36.             
  37.                 Call ShowMsgBox

  39.             End If
  40.         End If

  42.     Next
複製代碼
以上是判斷OptionButton的程式碼~如果我將OptionButton改成TextBox~且不需要判斷
直接捨去
For I = 6 To 21

        If Me.Controls("OptionButton" & I).Value = True Then
直接判斷~該如何做?因為我修改後執行發現整個執行速度變得很慢~
收藏 分享

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題