- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 2# chaoyiho
===Module===- Public vD
- Option Explicit
- ...
½Æ»s¥N½X- Private Sub Workbook_Open()
- Set vD = CreateObject("Scripting.Dictionary")
- EXCELªí³æ³B²z¤¶±.Show vbModeless
- End Sub
½Æ»s¥N½X- Private Sub CommandButton1_Click()
- If Application.FindFile = False Then
- MsgBox "±z¨S¦³¶}±Ò¥ÀÀÉ"
- End If
- Dim lRow&
-
- lRow = 3
- vD.RemoveAll
- While Cells(lRow, 1) <> ""
- If Not vD.Exists(CStr(Cells(lRow, 1))) Then
- EXCELªí³æ³B²z¤¶±.ListBox1.AddItem CStr(Cells(lRow, 1))
- vD(CStr(Cells(lRow, 1))) = lRow
- End If
- lRow = lRow + 1
- Wend
- End Sub
½Æ»s¥N½X ¦]¬°®É¶¡¤W¨Ó¤£¤Î, ³o¸Ì¥u°µ¥[¨ì ListBox ªº¤èªk,
§A¥i¥H°Ñ·Ó§ï¦¨°ÊºA·s¼W¬°§Anªº CheckBox ¤¸¥ó.
ªí³æ³B²z¨t²Î3.2(PLS)-a.zip (614.78 KB)
|
|