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

[µo°Ý] [¨D§U]¿é¤J¤½¥qªí®æ¦p¦óÁpµ²

[µo°Ý] [¨D§U]¿é¤J¤½¥qªí®æ¦p¦óÁpµ²

¥»©«³Ì«á¥Ñ owen9399 ©ó 2012-2-11 15:33 ½s¿è

½Ð°Ý¦U¦ì¤j¤j:

§Ú¦³ »s§@¤@¥÷ ²©öªº¶i¾P¦s ¤½¥q²M³æ
¦ý¬O ¤£ª¾ ¦p¦ó¨Ï ¥¦­Ìªº¸ê®Æ Ápµ²

¤S ¦A«×³Â·Ð ¦U¦ì°ª¤â

¸Ô²Ó¹J¨ìªº°ÝÃD     ½d¥»¤¤¦³»¡©ú

·PÁÂ
¿é¤J¤½¥qªí®æ½d¥»¸Ñ»¡.rar (7.13 KB)
owen

1.¿é¤J¸ê®Æ  ¦@¤À¬° ¨â­Ó°Ï°ì:  ¤@­Ó¬O ¥æ±b¸ê®Æ ¿é¤J   ,¥t¤@­Ó  ¬O¶i³f¸ê®Æ ¿é¤J
2.¿é¤J«á ¤À§O¦s¤J ¦U°ÏªºÀx¦s¸ê®Æ®w
3.¤é³øªí »P ¦~³øªí ¤À§O ¥u¬O Åã¥Ü¤è¦¡¤£¦P
4.®w¦s²M³æ ¬O Á`À³¥I¥÷¼Æ »P ¶i³f¼Æ¶q    ªº¬Û¥[´î, ¦Ó²£¥Í °h¦^.¦h»â.©|¤íµ¥ ¶i¾P¦sªº­pºâ

§Æ±æ ¦³¤j¤j¯à°µ¥X¨Ó  
¥»¤H  «D±`·PÁÂ
owen

TOP

§Ú¦³·s¼W¹ïÀ³ªºµ{¦¡
©ó ¿é¤J¸ê®Æ  ¦@¤À¬° ¨â­Ó°Ï°ì:  ¤@­Ó¬O ¥æ±b¸ê®Æ ¿é¤J   ,¥t¤@­Ó  ¬O¶i³f¸ê®Æ ¿é¤J

¦ý¬O ¨ä¥L¸Ó¦p¦ó³]©w

¦pªþ¥ó ¿é¤J¤½¥qªí®æ(½m²ß0210).rar (14.39 KB)
owen

TOP

½Ð°Ý¦U¦ì¤j¤j ¥i¥H¥ý°µ¥X ¤é³øªíªº³sµ²¶Ü?

·P®¦!
owen

TOP

¦^´_ 4# owen9399
¤é³øªíªº³sµ²¶Ü?
¦p¦ó³sµ²?? ¨S»¡²M·¡

TOP

¦^´_ 5# GBKEE


    ¤j¤j§A¦n:

³sµ²ªº¤è¦¡:

·í¿é¤J¸ê®Æ«á,¸ê®Æ´N·|Àx¦s¦b ¥æ±b¸ê®Æ®w¤¤ ,¦Ó¤é³øªí ´N¬O §â¥æ±b¸ê®Æ®wªº¸ê®Æ ¥H¤é´Á°Ï¤À¥X¨Ó

°²³]:
¥æ±b¸ê®Æªí ¿é¤J¸ê®Æ¦p¤U
¤½¥q§Ç¸¹        ¤½¥q        ±i¼Æ        »ù®æ        À³¥I¥÷¼Æ        ¤é´Á        ³Æµù
101001        ¤ý«~        35        1500        35        2012/2/6       
101001        ¤ý«~        50        1450        50        2012/2/6       
101003        ¦è³ö        80        1300        80        2012/2/6       
101001        ¤ý«~        40        1450        40        2012/2/10       
101004        ³»¦n        60        1200        60        2012/2/10       
101001        ¤ý«~        10        1500        10        2012/2/13       
101005        ®a¼ÖºÖ        50        1300        50        2012/2/12       

¦Ó¤é³øªí ¤À§O¤ÀÃþ Åã¥Ü  ¦p¤U:

                        ¤é³øªí                2012/2/6       
¤½¥q§Ç¸¹        ¤½¥q        ±i¼Æ        »ù®æ        À³¥I¥÷¼Æ        ¤é´Á        ³Æµù
101001        ¤ý«~        35        1500        35        2012/2/6       
101001        ¤ý«~        50        1450        50        2012/2/6       
101003        ¦è³ö        80        1300        80        2012/2/6       
                                               


                        ¤é³øªí                2012/2/10       
¤½¥q§Ç¸¹        ¤½¥q        ±i¼Æ        ªÑ¼Æ        À³¥I¥÷¼Æ        ¤é´Á        ³Æµù
101001        ¤ý«~        40        1450        40        2012/2/10       
101004        ³»¦n        60        1200        60        2012/2/10       

¥H¦¹Ãþ±À...

¦Ó¥B ·í¿é¤J ·s¸ê®Æªº ¤½¥q ¤é´Á   ,´N¦Û°Ê²£¥Í·sªºªí®æ
owen

TOP

°²³] ¿é¤J¤½¥qµ¥¸ê®Æ ·s¼W3µ§ ´N²£¥Í  ·sªº¤é³øªí
¨Ã ¦Û°Êµe¦n ªí®æ + ¤é´Á + ·s¼Wªº¸ê®Æ3µ§
owen

TOP

¦^´_ 7# owen9399
Shets("¿é¤J¸ê®Æ")
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim xM
  3.     If Intersect(Target, Range("A2:A11")) Is Nothing Or Target(1) = "" Then Exit Sub
  4.     xM = Application.Match(Target, [¤½¥q§Ç¸¹].Columns(1), 0)
  5.     Target.Cells(1, 2) = [¤½¥q§Ç¸¹].Cells(xM, 2)
  6. End Sub
  7. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  8.     On Error Resume Next
  9.     [§Ç¸¹].Validation.Delete
  10.     If Intersect(Target, Range("A2:A11")) Is Nothing Then Exit Sub
  11.     Range("Q2", [Q2].End(xlDown)).Resize(, 2).Name = "¤½¥q§Ç¸¹"
  12.     Target.Name = "§Ç¸¹"
  13.     With [§Ç¸¹].Validation
  14.         .Delete
  15.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
  16.         Operator:=xlBetween, Formula1:="=" & [¤½¥q§Ç¸¹].Columns(1).Address
  17.     End With
  18. End Sub
½Æ»s¥N½X
¥æ±b¸ê®Æ®w : ¤é´Áªº®æ¦¡ ½Ð­×§ï¬° "yyyy/mm/dd" ®æ¦¡
  1. Sub «ö¶s3_Click()
  2.     Dim Rng As Range, S As String, xi As Integer
  3.     Dim Sh As Worksheet
  4.     Set Sh = Sheets("¤é³øªí")                                                 ' ¤é³øªí
  5.     Sh.Cells.Clear
  6.     With Sheets("¥æ±b¸ê®Æ®w")
  7.         If .AutoFilterMode Then .AutoFilterMode = False                         '¨ú®ø¿z¿ï
  8.         .Range("a1").AutoFilter                                                 '[¦Û°Ê¿z¿ï] ¿z¿ï¥X¤@­Ó²M³æ
  9.         Set Rng = .AutoFilter.Range.Columns(6).Cells                            '[¦Û°Ê¿z¿ï]ªº²Ä6Äæ
  10.         For xi = 2 To Rng.Count                                                  '³B¸Ì:  ²Ä¤GÄæ ³æ¤¸®æ
  11.             If InStr(S, "," & Rng(xi) & ",") = False Then                       'Àˬd Àx¦s®æ ¬O§_¤w¥X²{¹L
  12.                 .Range("a1").AutoFilter Field:=6, Criteria1:=Rng(xi).Text             '¨S¥X²{: «ü©w¬°¿z¿ï­È
  13.                 S = S & "," & Rng(xi) & ","                                          '¥[¤J¤w¥X²{¹Lªº¦r¦ê¤¤
  14.             .UsedRange.SpecialCells(xlCellTypeVisible).Copy Sh.Cells(Rows.Count, "b").End(xlUp).Offset(2)   '½Æ»s: ¸ê®Æªí¤¤¿z¿ï¥Xªº¸ê®Æ
  15.             End If
  16.         Next
  17.         .AutoFilterMode = False                                                  '¨ú®ø¿z¿ï
  18.     End With
  19.     Sh.Activate
  20. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-2-14 16:21 ½s¿è

¦^´_ 8# GBKEE


    ÁÂÁ¤j¤j«ü¾É  
'¦]¬°¦³´ú¸Õ¦ý¬Oµ{¦¡¥X²{ ¿ù»~ , ¤£ª¾¦p¦ó­×¥¿
Åv­­ §Ö¹F¦¨
owen

TOP

¦^´_ 9# owen9399
¶ÇÀɬݬÝ

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD