ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] «ç»ò¦bUSERFORM¤¤¥[¤J¥i¿z¿ï½Æ¿ï¤§¾ðª¬¹Ï

[µo°Ý] «ç»ò¦bUSERFORM¤¤¥[¤J¥i¿z¿ï½Æ¿ï¤§¾ðª¬¹Ï

¦U¦ì«e½ú¦n~
¤p§Ì·Q°Ý¤@¤UÃö©ó¾ðª¬¹Ïªº°ÝÃD
¦p¤U¹Ï(1)

³o¬O§Úªºªí³æ³B²z¤¶­±
§Ú·Q­n¦b¥k¤è¿z¿ï²î²íªº¦a¤è¥[¤J¾ðª¬¹Ï¡A¹ï§Ú¿é¯Ã¤ÀªR«áªº¼ÐÅÒ¦C°µVSLªº¿z¿ï¡A¨Ã¥B¥i¥H°µ½Æ¿ï°Ê§@
¦p¤U¹Ï(2) ¬°§Ú¿é¯Ã¹L«á¤§ÀɮסA§Ú·Q¦bUSERFORM¤º¥[¤J¿z¿ï¾ðª¬¹Ï¦p¹Ï(3)³Ì«áÅܦ¨¹Ï(4)ªº¼Ë¤l

¿z¿ï¾ðª¬¹Ï01.png


½Ð°Ý¦U¦ì«e½ú
§ÚÀ³¸Ó­n¦p¦ó°µ©O?
¥Ø«e¤½¥q¹q¸£µLªkÀ£ÁYÀÉ®× ¬GµLªk¤W¶ÇÀÉ®×´£¨Ñ¦U¦ì«e½ú´ú¸Õ µy«á¸É¤W:dizzy:

¦^´_ 1# chaoyiho

³o¬O§Ú¼gªºVBA
    ªí³æ³B²z¨t²Î3.2(PLS).rar (658.22 KB)

³o¬O´ú¸ÕÀÉ®×(½Ð¿ï¾Ü165ªí³æ)
FORM_REPORT.rar (277.59 KB)

«ô°U¤j®a¤F~~~~!!!!

TOP

¦^´_ 2# chaoyiho

===Module===
  1. Public vD

  2. Option Explicit
  3. ...
½Æ»s¥N½X
  1. Private Sub Workbook_Open()
  2.     Set vD = CreateObject("Scripting.Dictionary")
  3.     EXCELªí³æ³B²z¤¶­±.Show vbModeless
  4. End Sub
½Æ»s¥N½X
  1. Private Sub CommandButton1_Click()
  2.     If Application.FindFile = False Then
  3.         MsgBox "±z¨S¦³¶}±Ò¥ÀÀÉ"
  4.     End If

  5.     Dim lRow&
  6.    
  7.     lRow = 3
  8.     vD.RemoveAll
  9.     While Cells(lRow, 1) <> ""
  10.       If Not vD.Exists(CStr(Cells(lRow, 1))) Then
  11.         EXCELªí³æ³B²z¤¶­±.ListBox1.AddItem CStr(Cells(lRow, 1))
  12.         vD(CStr(Cells(lRow, 1))) = lRow
  13.       End If
  14.       lRow = lRow + 1
  15.     Wend
  16. End Sub
½Æ»s¥N½X
¦]¬°®É¶¡¤W¨Ó¤£¤Î, ³o¸Ì¥u°µ¥[¨ì ListBox ªº¤èªk,
§A¥i¥H°Ñ·Ó§ï¦¨°ÊºA·s¼W¬°§A­nªº CheckBox ¤¸¥ó.

ªí³æ³B²z¨t²Î3.2(PLS)-a.zip (614.78 KB)

TOP

¦^´_ 3# luhpro
½Ð°Ý«e½ú
§Ú«ö·Ó±zªº«ü¥Ü¥h°µ½m²ß¤§«á
µo²{
¥LªºvD.RemoveAll±`±`³£·|¥X²{¿ù»~°T®§
"»Ý­nª«¥ó"©Î¬O"¥¼©w¸q"
¦ÓµLªk¹B¦æ
½Ð°Ý³o¼Ë¤l¬O­n«ç»ò¸Ñ¨M©O?
ÁٷнÐÀ°¦£!!

TOP

«e½ú±z¥i¯à¦b¦£ ©Ò¥H¨S¦³¿ìªkÀ°§Ú¸Ñµª..
¥i¬O§Ú¯uªº«Ü·Qª¾¹D!
¤£ª¾¹D¦³¨S¦³¤H¥i¥H´À§Ú¸Ñµª©O?

TOP

¤j¤j¥i¯à ¦b module º|¼g   Public vD  ???

TOP

¦^´_ 5# chaoyiho

TOP

¦^´_ 6# jackyq

«e½ú¦n¡A§Ú¦³¦b¼Ò²Õ1¸Ì­±¼g¤J«Å§iPublic vD

¦ý¬O¤@¥¹°õ¦æ¤ÀªR
¦ý¬OÁÙ¬O¥X²{»Ý­nª«¥ó
¯uªº¤£ª¾¹D«ç»ò¿ì Q_Q

TOP

¦^´_ 7# c_c_lai

ÁÂÁ«e½ú´£¿ô¡A§Ú¤@ª½³£¦³¥[¤J
¦ý¬OÁÙ¬O«ùÄò¥X²{§ä¤£¨ìª«¥ó(«ö¤U¤ÀªR¤§«á)
´N·|¸õ¥X¿ù»~424
¨ì©³«ç»ò·|³o¼Ë?(±Y¼ì)

TOP

  Public vD  as object
'
    Private Sub CommandButton1_Click()
        If Application.FindFile = False Then
            MsgBox "±z¨S¦³¶}±Ò¥ÀÀÉ"
        End If

        Dim lRow&
      
      if vD is nothing then  Set vD = CreateObject("Scripting.Dictionary")
        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

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD