[發問] 請教如何簡化指令及在如何一般模組中使用

dino1978

請教各為先進, 小弟程式碼如下, 原本小弟想使用For.....Next迴圈來判斷C欄是否有資料並控制 CommandButton顯示與否
但是卡在 控制項物件的部份, 小弟不會使用For...Next來寫...再請各位先進指導一下.

另外因所有的sheet都會用到該程式, 因此小弟新增於一般模組, 可是每當執行後, 會出現"此處需要物件"的錯誤訊息
看Excel的說明說我少了指定的定位項, 小弟不太瞭解定位項的意思以及該放在那邊...有勞各位先進開導, 謝謝!!

1. Sub RemoveButton()
   
2. 
   
3. If [C3] <> "" Then
   
4.     CommandButton2.Visible = True
   
5.     Else
   
6.     CommandButton2.Visible = False
   
7. End If
   
8. 
   
9. If [C4] <> "" Then
   
10.     CommandButton3.Visible = True
    
11.     Else
    
12.     CommandButton3.Visible = False
    
13. End If
    
14. 
    
15. If [C5] <> "" Then
    
16.     CommandButton4.Visible = True
    
17.     Else
    
18.     CommandButton4.Visible = False
    
19. End If
    
20. 
    
21. If [C6] <> "" Then
    
22.     CommandButton5.Visible = True
    
23.     Else
    
24.     CommandButton5.Visible = False
    
25. End If
    
26. 
    
27. If [C7] <> "" Then
    
28.     CommandButton6.Visible = True
    
29.     Else
    
30.     CommandButton6.Visible = False
    
31. End If
    
32. 
    
33. If [C8] <> "" Then
    
34.     CommandButton7.Visible = True
    
35.     Else
    
36.     CommandButton7.Visible = False
    
37. End If
    
38. 
    
39. If [C10] <> "" Then
    
40.     CommandButton8.Visible = True
    
41.     Else
    
42.     CommandButton8.Visible = False
    
43. End If
    
44. 
    
45. If [C11] <> "" Then
    
46.     CommandButton9.Visible = True
    
47.     Else
    
48.     CommandButton9.Visible = False
    
49. End If
    
50. 
    
51. If [C12] <> "" Then
    
52.     CommandButton10.Visible = True
    
53.     Else
    
54.     CommandButton10.Visible = False
    
55. End If
    
56. 
    
57. If [C13] <> "" Then
    
58.     CommandButton11.Visible = True
    
59.     Else
    
60.     CommandButton11.Visible = False
    
61. End If
    
62. 
    
63. If [C14] <> "" Then
    
64.     CommandButton12.Visible = True
    
65.     Else
    
66.     CommandButton12.Visible = False
    
67. End If
    
68. 
    
69. If [C15] <> "" Then
    
70.     CommandButton13.Visible = True
    
71.     Else
    
72.     CommandButton13.Visible = False
    
73. End If
    
74. 
    
75. If [C16] <> "" Then
    
76.     CommandButton14.Visible = True
    
77.     Else
    
78.     CommandButton14.Visible = False
    
79. End If
    
80. 
    
81. If [C17] <> "" Then
    
82.     CommandButton15.Visible = True
    
83.     Else
    
84.     CommandButton15.Visible = False
    
85. End If
    
86. 
    
87. End Sub

複製代碼

dino1978

回復 11# GBKEE

GBKEE版大,
真的太感謝您了, 您真的是神人
謝謝!!

GBKEE

回復 10# dino1978
OLEObjects("CheckBox" & i).Object.Value = False

dino1978

回復 9# GBKEE

GBKEE 版大,
   我的意思是, 我想在Workbook開啟後, 自動將所有的CheckBox控制項取消核取,
所以我才會把程式改成 .Value=False,  不知這樣可不可行嗎?

GBKEE

回復 8# dino1978
.OLEObjects("CheckBox" & i).Value = False
改成
.OLEObjects("CheckBox" & i).Visible = False

dino1978

回復 7# GBKEE

GBKEE 版大
   不好意思, 我太豬頭了, 我忘了將舊的模組移除造成衝突, 現在問題已經解決了
太感謝您了~整個看起來就清爽多了!!

另外想請教的是 CheckBox 控制項是否也能夠像 CommandButton一樣用 OLEobjects的方式來做Loop呢?
我有自己小試了一下, 會出現 "物件不支援此屬性或方法"
是我的語法錯誤還是CheckBox控制項不能這樣使用?

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3. Dim i As Integer
   
4. 
   
5. i = 1
   
6. 
   
7. With Sheet1
   
8. .OLEObjects("CheckBox" & i).Value = False
   
9. End With
   
10. 
    
11. End Sub

複製代碼

GBKEE

回復 6# dino1978
請上傳你修改後的檔案看看

dino1978

回復 5# GBKEE


    GBKEE版大,
   原來還有這招可以用, 真的是學到了
   不過我將該程式碼應用在上面的時候, 發生如下圖的錯誤訊息,
   看了老半天還是不知道問題出在哪, 我並沒有動到其他的欄位
   但執行後就出現了這個錯誤訊息, 再請您幫我確認一下, 謝謝您
   (若改回原來的方式, 就不會出現這個問題了, 不太理解.....)

下載 (27.63 KB)

2012-1-28 06:03

下載 (14.85 KB)

2012-1-28 06:03

GBKEE

回復 4# dino1978
還有可簡化

1. Private Sub CommandButton10_Click()
   
2.     ASlotRemove [C12]   '傳送參數MyText : [C12]
   
3. End Sub
   
4. Private Sub CommandButton11_Click()
   
5.     ASlotRemove [C13]   '傳送參數MyText : [C13]
   
6. End Sub
   
7. Private Sub CommandButton12_Click()
   
8.     ASlotRemove [C14]    '傳送參數MyText : [C14]
   
9. End Sub

複製代碼

1. Sub SlotRemove(ByVal MyText As Range)   '接收參數 MyText
   
2.     Application.ScreenUpdating = False
   
3.     Dim Rng As Range, F_Address As String, TheFind As String, a As Range
   
4.     'MyText = [C12] ' Trim(InputBox("請輸入要尋找的值:"))
   
5.     If MyText <> "" Then
   
6.         Set Rng = Sheet3.Range("A1").CurrentRegion.EntireColumn.Find(MyText, lookat:=xlWhole)
   
7.         If Not Rng Is Nothing Then
   
8.             F_Address = Rng.Address
   
9.             Do
   
10.                 TheFind = IIf(TheFind = "", Rng.Address(0, 0), TheFind & "   " & Rng.Address(0, 0))
    
11.                 Set Rng = Sheet3.Range("A1").CurrentRegion.EntireColumn.FindNext(Rng)
    
12.             Loop Until F_Address = Rng.Address
    
13.         End If
    
14.         Else: GoTo err2
    
15.     End If
    
16.     If TheFind <> "" Then
    
17.         If Rng Is Nothing Then
    
18.             GoTo err
    
19.         Else
    
20.           Sheet2.Range("A65536").End(xlUp).Offset(1) = Rng
    
21.             With Rng.Resize(1, 3)
    
22.                 .Delete xlShiftUp
    
23.             End With
    
24.             With Range("B12")
    
25.                 .Resize(1, 2).ClearContents
    
26.                 .ClearContents
    
27.                 .Offset(, 1).Validation.Delete
    
28.             End With
    
29.         End If
    
30.     Else
    
31. err:
    
32.         MsgBox "沒有找到  " & MyText
    
33. err2:
    
34.     End If
    
35.     TheFind = ""
    
36.     Application.ScreenUpdating = True
    
37. End Sub

複製代碼

dino1978

TR6850 configure.zip (310.03 KB)

下載次數: 6

2012-1-27 06:27

回復 2# Hsieh
超版大大, 很抱歉這麼晚才回覆您, 我的附檔如附件, 已參照GBKEE大大的指令稍作修改完成, 謝謝您的協助

回復 3# GBKEE
GBKEE 版大, 謝謝您的幫忙, 程式照您的方法稍作修改已經可以使用  謝謝

並祝你們新春愉快!!