一個 ComboBox 的問題

jesscc

附件中有五個 ComboBox 分別控制著A欄位和F欄位的值，我想要在任何一個 ComboBox 只有被選擇為bb時，它對應的F欄位儲存格顯示空白，而其他的所有的儲存格皆不變，該如何做?

bsy4life

我沒有權限下載，這樣試試看@@
Private Sub ComboBox1_Change()
If ComboBox1.Text = "bb" Then
Sheets("sheet1").Cells(1, 1) = "" '設定你Combobox要對應的儲存格，設定為空值
End If

jesscc

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. ComboBox1.List = Array("aa", "bb", "cc", "dd", "ee")
   
3. ComboBox2.List = Array("aa", "bb", "cc", "dd", "ee")
   
4. ComboBox3.List = Array("aa", "bb", "cc", "dd", "ee")
   
5. ComboBox4.List = Array("aa", "bb", "cc", "dd", "ee")
   
6. ComboBox5.List = Array("aa", "bb", "cc", "dd", "ee")
   
7. 
   
8. A = ComboBox1.Value
   
9. B = ComboBox2.Value
   
10. C = ComboBox3.Value
    
11. D = ComboBox4.Value
    
12. E = ComboBox5.Value
    
13. 
    
14. [A1].Value = A
    
15. [A3].Value = B
    
16. [A5].Value = C
    
17. [A7].Value = D
    
18. [A9].Value = E
    
19. 
    
20. With Sheets("工作表1")
    
21. Dim MyDate, MyWeekDay
    
22. MyDate = Now
    
23. MyWeekDay = Weekday(MyDate)
    
24. 
    
25.     If MyWeekDay > 3 Then
    
26.     ContainerDay = Format(Date + 4 - Weekday(Date, 2) + 7, "e.m.d")
    
27.     Else
    
28.     ContainerDay = Format(Date + 4 - Weekday(Date, 2), "e.m.d")
    
29.     End If
    
30. 
    
31. 
    
32. .[F1,F3,F5,F7,F9] = ContainerDay
    
33. End With
    
34. End Sub

複製代碼

回復 2# bsy4life

c_c_lai

回復 3# jesscc
試試看：

下載 (52.34 KB)

2016-6-16 07:29

下載 (44.23 KB)

2016-6-16 07:29

ABC.rar (21.7 KB)

下載次數: 3

2016-6-16 07:29

jesscc

回復 4# c_c_lai


我的意思是任何一個 ComboBox 的值被選為 bb 時，只有對應的F欄位儲存格變成空白，其他所有的控制顯示不受影響
譬如 ComboBox 3 選為 bb 時，只有 F3 變成空白，其他任何部分都不變，
效果如下圖

下載 (113.64 KB)

2016-6-16 08:46

c_c_lai

回復 5# jesscc
我只是想提示讓你知道該如何達成你的需求，
至於如何實務應用則需要你自己來構想了。
換句話說，我給的是方法，而不是你最終之答案。