[發問] 大量複選表單的程式碼如何簡潔的操作?

starry1314

請問這種該如何可以較簡潔呢?
我原本的寫法是 要輸出的資料寫在程式碼裡面
但因品項上百種,變成一種寫一次 程式碼很長.....

下載 (29.13 KB)

2016-12-20 16:25

複選表單.rar (21.44 KB)

下載次數: 11

2016-12-20 16:25

Hsieh

回復 1# starry1314

試試看是這樣的意思嗎?
複選表單.zip (24.79 KB)

下載次數: 17

2016-12-21 15:51

starry1314

回復 2# Hsieh


完美.......
竟然有可以依條件自動建立核取方塊....
比我原本一個一個建立的好多了

另想再問一下,目前選完之後在點選第二次可以將上次勾選的項目顯示已勾選嗎?

舊有方式 是開啟在讀取一次
CheckBox1.Value = IIf(.Range("C100") = "牛、", True, False)

Hsieh

回復 3# starry1314
原設計在按下確定後輸入資料前會將原寫入資料清除然後填入目前勾選項目
至於您所提到第二次勾選的重複問題，不確定你的工作流程想法
現以檢查勾選項目是否存在於工作表內作判斷，提出重複勾選警告
由輸入者自行決定是否重複輸入，資料將繼續增加
請參考附件


    複選表單.zip (26.42 KB)

下載次數: 11

2016-12-22 08:44

starry1314

回復 4# Hsieh


    抱歉,說明的不夠詳細
流程是一筆訂單 填入選項之後
會做二度甚至三度更改,故須讓之前所選過的選項顯示已勾選,
才能讓修改人的確認之前選過什麼或是針對其中一項做取消,
填入的資料就都以最後一次點選的欄位,就不陸續新增了

c_c_lai

回復 3# starry1314
#2 資料不變，只需再增加一個按鈕就行了：

下載 (30.7 KB)

2016-12-23 07:11

1. Private Sub CommandButton3_Click()      '  比對選用資料
   
2.     Dim ct As Variant
   
3.    
   
4.     With MultiPage1.Pages(0)
   
5.         For Each ct In .Controls
   
6.             If Sheets("選用資料").Columns("B:B").Find(ct.Caption, lookat:=xlWhole) Is Nothing Then
   
7.                 ct.Object.Value = False
   
8.             Else
   
9.                 ct.Object.Value = True
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

複製代碼

Hsieh

回復 5# starry1314
選用資料工作表只儲存1張訂單?
將程序改為開啟表單時同時讀取材料是否已經選用，自動將已存在選用資料工作表的項目勾選顯示

    複選表單.zip (26.69 KB)

下載次數: 35

2016-12-23 16:12

starry1314

回復 6# c_c_lai


    感謝幫助,因為要讓使用者方便操作,都是以最快速為主~
改為開啟即自動按下比對,更方便使用者了

starry1314

回復 7# Hsieh

感謝版大的幫忙~~~完美解決！！
:victory:

starry1314

回復 7# Hsieh


    版大,
請問這表單該如何可以修改成依照[類型不同]分去對應表單的分頁呢?
如3個類型就會有三個分頁這樣
目前是分不同欄位 輸出兩次一樣程式碼
可以變成一隻程式碼搞定嗎?

1. Private Sub UserForm_Initialize()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set e = CreateObject("Scripting.Dictionary")
   
4. Set f = CreateObject("Scripting.Dictionary")
   
5. 
   
6. With Sheets("資料庫")
   
7.    For Each a In .Range(.[C2], .[C65536].End(xlUp))
   
8.       d(a.Value) = Array(a.Offset(, -2).Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
   
9.    Next
   
10. End With
    
11. For Each ky In d.keys
    
12.    With Me.MultiPage1.Pages(0)
    
13.    .Caption = "鮮炒時蔬"
    
14. 
    
15.        With .Controls.Add("forms.checkbox.1")
    
16.             .Top = s * 30
    
17.             .Width = 100
    
18.             .Height = 30
    
19.             .Left = k * 100
    
20.             .Caption = ky
    
21.             .Value = Not Sheets("選用資料").Columns("B").Find(ky, lookat:=xlWhole) Is Nothing
    
22.         End With
    
23.    m = m + 1
    
24.    s = (m) Mod 9
    
25.    k = Int(m / 9)
    
26.    End With
    
27. Next
    
28. '水果
    
29. m = 0
    
30. s = 0
    
31. k = 0
    
32. With Sheets("資料庫")
    
33.    For Each a In .Range(.[E2], .[E65536].End(xlUp))
    
34.       e(a.Value) = Array(a.Offset(, -2).Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
    
35.    Next
    
36. End With
    
37. For Each ky In e.keys
    
38.    With Me.MultiPage1.Pages(1)
    
39.    .Caption = "水果"
    
40. 
    
41.        With .Controls.Add("forms.checkbox.1")
    
42.             .Top = s * 30
    
43.             .Width = 100
    
44.             .Height = 30
    
45.             .Left = k * 100
    
46.             .Caption = ky
    
47.             .Value = Not Sheets("選用資料").Columns("B").Find(ky, lookat:=xlWhole) Is Nothing
    
48.         End With
    
49.    m = m + 1
    
50.    s = (m) Mod 9
    
51.    k = Int(m / 9)
    
52.    End With
    
53. Next
    
54. End Sub

複製代碼