- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
3#
發表於 2016-4-19 22:58
| 只看該作者
回復 2# chaoyiho
===Module===- Public vD
- Option Explicit
- ...
複製代碼- Private Sub Workbook_Open()
- Set vD = CreateObject("Scripting.Dictionary")
- EXCEL表單處理介面.Show vbModeless
- End Sub
複製代碼- Private Sub CommandButton1_Click()
- If Application.FindFile = False Then
- MsgBox "您沒有開啟母檔"
- End If
- Dim lRow&
-
- lRow = 3
- vD.RemoveAll
- While Cells(lRow, 1) <> ""
- If Not vD.Exists(CStr(Cells(lRow, 1))) Then
- EXCEL表單處理介面.ListBox1.AddItem CStr(Cells(lRow, 1))
- vD(CStr(Cells(lRow, 1))) = lRow
- End If
- lRow = lRow + 1
- Wend
- End Sub
複製代碼 因為時間上來不及, 這裡只做加到 ListBox 的方法,
你可以參照改成動態新增為你要的 CheckBox 元件.
表單處理系統3.2(PLS)-a.zip (614.78 KB)
|
|