- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
10#
發表於 2018-9-17 15:56
| 只看該作者
回復 7# Hsieh
版大,
請問這表單該如何可以修改成依照[類型不同]分去對應表單的分頁呢?
如3個類型就會有三個分頁這樣
目前是分不同欄位 輸出兩次一樣程式碼
可以變成一隻程式碼搞定嗎?- Private Sub UserForm_Initialize()
- Set d = CreateObject("Scripting.Dictionary")
- Set e = CreateObject("Scripting.Dictionary")
- Set f = CreateObject("Scripting.Dictionary")
- With Sheets("資料庫")
- For Each a In .Range(.[C2], .[C65536].End(xlUp))
- d(a.Value) = Array(a.Offset(, -2).Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
- Next
- End With
- For Each ky In d.keys
- With Me.MultiPage1.Pages(0)
- .Caption = "鮮炒時蔬"
- With .Controls.Add("forms.checkbox.1")
- .Top = s * 30
- .Width = 100
- .Height = 30
- .Left = k * 100
- .Caption = ky
- .Value = Not Sheets("選用資料").Columns("B").Find(ky, lookat:=xlWhole) Is Nothing
- End With
- m = m + 1
- s = (m) Mod 9
- k = Int(m / 9)
- End With
- Next
- '水果
- m = 0
- s = 0
- k = 0
- With Sheets("資料庫")
- For Each a In .Range(.[E2], .[E65536].End(xlUp))
- e(a.Value) = Array(a.Offset(, -2).Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
- Next
- End With
- For Each ky In e.keys
- With Me.MultiPage1.Pages(1)
- .Caption = "水果"
- With .Controls.Add("forms.checkbox.1")
- .Top = s * 30
- .Width = 100
- .Height = 30
- .Left = k * 100
- .Caption = ky
- .Value = Not Sheets("選用資料").Columns("B").Find(ky, lookat:=xlWhole) Is Nothing
- End With
- m = m + 1
- s = (m) Mod 9
- k = Int(m / 9)
- End With
- Next
- End Sub
|
|
發表於 2016-12-21 15:51
| 
