Board logo

標題: [發問] 下拉式選單的更新 [打印本頁]
作者: bridetobe    時間: 2014-7-8 14:14     標題: 下拉式選單的更新

想請問下拉式選單的更新
若在清單裡面已經改了資料
但是在下拉式裡面並不會自己去更新已經更新過的資料
而要重新拉
這有辦法可以解決嗎
作者: 小華    時間: 2014-7-8 20:12

你是指Combobox(下拉式選單)裡面的資料不會自動更新嗎?
作者: bridetobe    時間: 2014-7-9 08:12

回復 2# 小華

意思是原本有一筆資料"123"在清單裏
我現在把123改成456
可是下拉式選單沒有更新
[attach]18658[/attach]
要手動重拉
作者: Hsieh    時間: 2014-7-9 09:36

回復 3# bridetobe

不會有這樣情形才對，上傳檔案來看看
作者: bridetobe    時間: 2014-7-9 09:43

回復 4# Hsieh
[attach]18661[/attach]

這個部份~
作者: Hsieh    時間: 2014-7-9 10:11

回復 5# bridetobe

會自動更新丫!你怎麼操作的?

    [attach]18663[/attach]
作者: bridetobe    時間: 2014-7-9 10:29

回復 6# Hsieh


阿我的意思是...
如果你把#702改702
那像7/7號的第一筆還是顯示#702而不是702
這樣子還要把從7/1~7/7的#702拉成702
作者: Hsieh    時間: 2014-7-9 10:46

回復 7# bridetobe
要更改已經輸入內容就必須重新寫入
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range
  3. If Target.Column <> 2 Then Exit Sub
  4. With Sheet3
  5. ThisWorkbook.Names.Add "清單", "=OFFSET(" & .Name & "!$A$1,,,COUNTA(" & .Name & "!$A:$A),)"
  6. With Range("B:B").Validation
  7.    .Delete
  8.    .Add xlValidateList, , , "=清單"
  9. End With
  10. Select Case Target.Value
  11. Case "新增"
  12. newitem = InputBox("輸入新增項目")
  13. If Application.CountIf([清單], newitem) = 0 Then
  14.    Set A = .Columns("A:A").Find("新增", lookat:=xlWhole)
  15.    A.Insert xlShiftDown
  16.    A.Offset(-1) = newitem
  17.    Target = newitem
  18. Else
  19.    MsgBox "項目已存在清單內"
  20. End If
  21. Case "刪除"
  22. delitem = InputBox("輸入刪除項目")
  23. Set A = .Columns("A:A").Find(delitem, lookat:=xlWhole)
  24. If A Is Nothing Then
  25.    MsgBox delitem & "不存在清單內"
  26.    Else
  27.    A.Delete xlShiftUp
  28. End If
  29. Case "修改"
  30. chitem = InputBox("輸入修改項目")
  31. Set A = .Columns("A:A").Find(chitem, lookat:=xlWhole)
  32. If A Is Nothing Then
  33.    MsgBox chitem & "不存在清單內"
  34.    Else
  35.    A.Value = InputBox("輸入更正項目", , chitem)
  36.    Target = A
  37.    Range("B:B").Replace chitem, A  'B欄所有已經輸入的資料一起替換
  38. End If
  39. End Select
  40. End With
  41. With Range("B:B").Validation
  42.    .Modify xlValidateList, , , "=清單"
  43. End With
  44. End Sub
複製代碼
作者: bridetobe    時間: 2014-7-9 10:59

回復 8# Hsieh

原來是這樣 謝謝!
我以為要另外寫或是怎樣的~~~



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