標題: 關於ComboBox1清除問題... [打印本頁]

---

作者: steven    時間: 2010-6-10 18:01     標題: 關於ComboBox1清除問題...

如範例A001...
按清除時.姚如何將ComboBox1---ComboBox14內容也清除
以利下次執行時再重新挑選
請各位高手指點..
2..VBA程式碼可否精簡..
謝謝...

---

作者: GBKEE    時間: 2010-6-10 19:45

回復 1# steven

1. Private Sub CommandButton2_Click()
   
2.     Dim E As Object
   
3.     Application.EnableEvents = False
   
4.     ActiveWindow.SmallScroll Down:=24
   
5.     Range("B3:F32").Select
   
6.     Range("F32").Activate
   
7.     Selection.ClearContents
   
8.     ActiveWindow.SmallScroll Down:=-24
   
9.     Range("L2:L32").Select
   
10.      Selection.ClearContents
    
11.     Range("B1").Select
    
12.     For Each E In OLEObjects
    
13.         If E.Name Like "ComboBox*" Then E.Object.Value = ""
    
14.     Next
    
15.     Application.EnableEvents = True
    
16. End Sub

複製代碼

---

作者: steven    時間: 2010-6-10 20:03

回復 2# GBKEE


    謝謝大大指導..但若ComboBox14有挑選..為何執行後會停留在ComboBox14而不會
跳到b1..
請指導謝謝

---

作者: GBKEE    時間: 2010-6-11 06:31

回復 3# steven


11.    Range("B1").Select 移動
12.    For Each E In OLEObjects
13.        If E.Name Like "ComboBox*" Then E.Object.Value = ""
14.    Next
         Range("B1").Select 到此
15.    Application.EnableEvents = True
16.End Sub

說明
當 E.Name="ComboBox14"  執行 E.Object.Value = "" 時
會執行 Private Sub ComboBox14_Change()
             '第7組
        [d9] = ComboBox14.Value
            [e9].Select     '這裡有選指定一個儲存格，
          End Sub

---

作者: Hsieh    時間: 2010-6-11 07:48

回復 1# steven


    你的控制項應該還會再增加
清單資料也可能增加
這樣的表單建議用資料驗證

---

作者: steven    時間: 2010-6-11 13:56

回復 5# Hsieh


    謝謝兩位版大指導....
  1.用GBKEE所指導可以但有一事小弟不解
當我有挑選ComboBox1到ComboBox14時
按清除無法一次清除ComboBox13會一樣秀出
而再按一次清除時卻可以....全部清除..
2. Hsieh版大我有式過但挑選物件字體太小.....
請大大導謝謝..

---

作者: GBKEE    時間: 2010-6-11 14:20

回復 6# steven

DoEvents    將控制權交回作業系統,來處理 E.Object.Value = " " 的畫面
     For Each E In OLEObjects
        If E.Name Like "ComboBox*" Then E.Object.Value = " ": DoEvents
    Next

---

作者: steven    時間: 2010-6-11 17:02

回復 7# GBKEE


    了解..謝謝大熱心解說小弟由心感謝
尚有一事請教..
如Private Sub CommandButton2_Click()
執行後欲將CommandButton2暫時關閉而執行後要重新開啟CommandButton2執行後卻不行請大大指導.......
1.CommandButton2.Visible = False2.CommandButton4.Visible = TrueDim E As Object
    Application.EnableEvents = False
    ActiveWindow.SmallScroll Down:=24
    Range("B3:F32").Select
    Range("F32").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-24
    Range("L232").Select
     Selection.ClearContents
         For Each E In OLEObjects
        If E.Name Like "ComboBox*" Then E.Object.Value = " ": DoEvents
    Next
    Range("a1").Select  
    Application.EnableEvents = True
2.CommandButton2.Visible = True
End Sub

---

作者: GBKEE    時間: 2010-6-11 19:59

回復 8# steven
2.CommandButton2.Visible = True
下一列加上
CommandButton2.Enabled = True

---

作者: steven    時間: 2010-6-11 20:18

感謝大大指導..

---

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