- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-28 09:48 ½s¿è
¦^´_ 44# chaoyiho
²Ä¤@Ó°ÝÃD¡G Åܼƫŧi«e«á¤£¤@- Private Sub CommandButton1_Click()
- If Application.FindFile = False Then
- MsgBox "±z¨S¦³¶}±Ò¥ÀÀÉ"
- End If
- Dim lRow& ' Dim lRrow& (¿ù»~ªºÅܼƫŧi)
- lRow = 3 ' lRrow = 3 (¿ù»~ªºÅܼƫŧi)
-
- EXCELªí³æ³B²z¤¶±.ListBox1.Clear ' ÁקK«½Æ¶K»s¡A³y¦¨»P "¤â°Ê¿z¿ï" ¶µ¥Ø¤£²Å
-
- vD.RemoveAll
- While Cells(lRow, 5) <> ""
- If Not vD.Exists(CStr(Cells(lRow, 5))) Then
- EXCELªí³æ³B²z¤¶±.ListBox1.AddItem CStr(Cells(lRow, 5))
- vD(CStr(Cells(lRow, 5))) = lRow
- End If
- lRow = lRow + 1
- Wend ' ¤W¦³ While ¦ÓµLµ²§ô³B¸Ì (Wend)
- End Sub
½Æ»s¥N½X ²Ä¤@Ó°ÝÃD¡G ²£¥Í ActiveX ªºì¦]- Private Sub UserForm_Initialize()
- Dim hWndForm As Long ' LongPtr ¬O 64 ¦ì¤¸ªºªø¾ã¼Æ«ü¼Ð«Å§i
- Dim IStyle As Long
-
- ' Set vD = CreateObject("scripting.dictonary") ' ¤Ö¤@Ó i
- Set vD = CreateObject("Scripting.Dictionary")
-
- hWndForm = FindWindow("ThunderDFrame", Me.Caption)
- IStyle = GetWindowLong(hWndForm, GWL_STYLE)
- IStyle = IStyle Or WS_THICKFRAME '(ÁÙì)
- IStyle = IStyle Or WS_MINIMIZEBOX '(³Ì¤p¤Æ)
- IStyle = IStyle Or WS_MAXIMIZEBOX '(³Ì¤j¤Æ)
- SetWindowLong hWndForm, GWL_STYLE, IStyle
- End Sub
½Æ»s¥N½X jackyq ¤j¤j«üÃÒ¥X§A ActiveX ªº¿ù»~ÂI¤F¡Aì¦]¬O§A¿é¿ù¦r¤F
Set vD = CreateObject("scripting.dictonary") ¡A¤Ö¤@Ó i ¡A
»P¤j¤p¼gµLÃö¡A¦~¬ö¤j¤F²¦³ºµø¤O°h«Ü¦h¤F¡A¤£¥J²ÓÁÙ¯u¨S¬Ý¨ì©O¡I
ÁÂÁÂ jackyq ¤j¤j¡C |
|