Board logo

標題: 一個 ComboBox 的問題 [打印本頁]
作者: jesscc    時間: 2016-6-10 23:02     標題: 一個 ComboBox 的問題

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

我沒有權限下載，這樣試試看@@
Private Sub ComboBox1_Change()
If ComboBox1.Text = "bb" Then
Sheets("sheet1").Cells(1, 1) = "" '設定你Combobox要對應的儲存格，設定為空值
End If
作者: jesscc    時間: 2016-6-15 19:05

  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")

  8. A = ComboBox1.Value
  9. B = ComboBox2.Value
  10. C = ComboBox3.Value
  11. D = ComboBox4.Value
  12. E = ComboBox5.Value

  14. [A1].Value = A
  15. [A3].Value = B
  16. [A5].Value = C
  17. [A7].Value = D
  18. [A9].Value = E

  20. With Sheets("工作表1")
  21. Dim MyDate, MyWeekDay
  22. MyDate = Now
  23. MyWeekDay = Weekday(MyDate)

  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


  32. .[F1,F3,F5,F7,F9] = ContainerDay
  33. End With
  34. End Sub
複製代碼
回復 2# bsy4life
作者: c_c_lai    時間: 2016-6-16 07:30

回復 3# jesscc
試試看：
[attach]24506[/attach]
[attach]24507[/attach]
[attach]24508[/attach]
作者: jesscc    時間: 2016-6-16 08:37

本帖最後由 jesscc 於 2016-6-16 08:47 編輯

回復 4# c_c_lai


我的意思是任何一個 ComboBox 的值被選為 bb 時，只有對應的F欄位儲存格變成空白，其他所有的控制顯示不受影響
譬如 ComboBox 3 選為 bb 時，只有 F3 變成空白，其他任何部分都不變，
效果如下圖
[attach]24511[/attach]
作者: c_c_lai    時間: 2016-6-16 10:45

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



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