標題: [發問] 如何將OptionButton判斷改成TextBox判斷? [打印本頁]

---

作者: av8d    時間: 2012-7-16 17:06     標題: 如何將OptionButton判斷改成TextBox判斷?

1.     On Error Resume Next
   
2. 
   
3.     For I = 6 To 21
   
4. 
   
5.         If Me.Controls("OptionButton" & I).Value = True Then
   
6. 
   
7.             Set Ws = Sheets("" & I + 2006 & "")
   
8. 
   
9.             If Ws Is Nothing Then
   
10. 
    
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
    
20. 
    
21.                 Call test
    
22. 
    
23.                 Unload Me
    
24.             
    
25.                 Call ShowMsgBox
    
26. 
    
27.             Else
    
28.         
    
29.                 Ws.Select
    
30.         
    
31.                 Range("A1").Formula = I + 2006
    
32. 
    
33.                 Call test
    
34. 
    
35.                 Unload Me
    
36.             
    
37.                 Call ShowMsgBox
    
38. 
    
39.             End If
    
40.         End If
    
41. 
    
42.     Next

複製代碼

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

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

---

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