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

[µo°Ý] ¦p¦ó­pºâÃöÁä¦r¥X²{¦¸¼Æ?

[µo°Ý] ¦p¦ó­pºâÃöÁä¦r¥X²{¦¸¼Æ?

¤£¦n·N«ä¤½¥qµLªk¤W¶Ç¹Ï¤ù©ÎÀɮשҥHª½±µ±NEXCEL ¶Kªñ¨Ó
¦U¦ì«Ó­ô¬ü¤k°ª¤â­Ì·Q½Ð°Ý¤@¤U¡A§Ú·Q­n­pºâ"B" ³o¤@¾ã¦CÃöÁä¦r"ADD"¥X²{¦¸¼Æ¦p¤U­±¸ê®Æ
¨Ò¦pADD ³o¦¸¦bLOG¤¤¥X²{¦¸¼Æ¨Ã±N¦¸¼Æ¼g¤J¦A"G"¦³¼gZ11557ªº¥kÃä"H"³o¤@Äæ
¦]¬°¨C¤Ñ­n³B²z¤W¦Ê¥óÃþ¦ü®×¨Ò¡A¨C¥ó®×¨Ò log ³£¶W¹L¤­¤Q¸Uµ§¡A·Q½Ð¦U¦ì±Ð¾Ç¦p¦ó¨Ï¥Î VBA ­pºâ¥X?

A                                                            B                  C                    D                  E                   F                   G                 H   
2013.08.15 00:02:50        505        CLKST        27         Kind 0         Count 10         Area 10         Z 11557    0
2013.08.15 00:02:56        509        CLKED        26.9                               
2013.08.15 00:02:58        409        ADD        26.9         X 29         Y 14               
2013.08.15 00:03:04        409        ADD        27         X 28         Y 14               
2013.08.15 00:03:09        409        ADD        27         X 27         Y 14               
2013.08.15 00:03:14        409        ADD        27         X 26         Y 14               
2013.08.15 00:07:28        505        CLKST        26.9         Kind 99         Count 0               
2013.08.15 00:07:28        509        CLKED        26.9                               
2013.08.15 00:07:29        505        CLKST        27         Kind 0         Count 10         Area 10         Z 11557    4
2013.08.15 00:07:35        509        CLKED        26.9                               
2013.08.15 00:07:37        409        ADD        26.9         X 25         Y 15               
2013.08.15 00:07:42        409        ADD        27         X 26         Y 15               
2013.08.15 00:07:47        409        ADD        26.9         X 27         Y 15               
2013.08.15 00:12:01        505        CLKST        26.9         Kind 99         Count 0         Z 11557       
2013.08.15 00:12:01        509        CLKED        26.9                               
2013.08.15 00:12:02        505        CLKST        27         Kind 0         Count 10         Area 10         Z 11557    3
2013.08.15 00:12:08        509        CLKED        27                               
2013.08.15 00:12:10        409        ADD        26.9         X 8                       
2013.08.15 00:12:15        409        ADD        26.9         X 7                       
2013.08.15 00:12:20        409        ADD        26.9         X 6                       
2013.08.15 00:12:26        409        ADD        26.9         X 5                       
2013.08.15 00:12:31        409        ADD        26.9         X 4                       
2013.08.15 00:12:36        409        ADD        26.9         X 3                       
2013.08.15 00:12:42        409        ADD        27         X 2                       
2013.08.15 00:12:47        409        ADD        26.9         X 2                       
2013.08.15 00:12:49        409        ADD        26.9         X 3                       
2013.08.15 00:12:55        409        ADD        26.9         X 4                       
2013.08.15 00:13:00        409        ADD        26.9         X 5                       
2013.08.15 00:13:05        409        ADD        26.9         X 6                       
2013.08.15 00:13:11        409        ADD        26.9         X 7                       
2013.08.15 00:13:16        409        ADD        26.9         X 8                       
2013.08.15 00:16:36        505         NPLST        27         Kind 99         Count 0         Z 11557       
2013.08.15 00:16:37        509         NPLED        27                               
2013.08.15 00:16:37        505         NPLST        27         Kind 0         Count 10         Area 10         Z 11557    14

2013.08.15 00:16:43        509         NPLED        26.9
hihi  = =

¦^´_ 1# bmw711208
À£ÁY¦A¤W¶ÇÀɮ׬ݬݧa¡A§Aªº´y­z©MÄæ¦ì¹ï¤£¤W

TOP

¦^´_ 2# stillfish00

¤£¦n·N«ä stillfish00 ¤j¤j ¶K¤W¨Ó¦h¤@­ÓÄæ¦ì§Ú­×¥¿¤@¤U¡AÀɮקڤU¯Z«á¸É¤W¨Ó·PÁÂ..
§Ú·Q­n­pºâ"C" ³o¤@¾ã¦CÃöÁä¦r" ADD"¥X²{¦¸¼Æ¦p¤U­±¸ê®Æ
¨Ò¦pADD ³o¦¸¦bLOG¤¤¥X²{¦¸¼Æ¨Ã±N¦¸¼Æ¼g¤J¦A"H"¦³¼gZ11557ªº¥kÃä"I"³o¤@Äæ
¦]¬°¨C¤Ñ­n³B²z¤W¦Ê¥óÃþ¦ü®×¨Ò¡A¨C¥ó®×¨Ò log ³£¶W¹L¤­¤Q¸Uµ§¡A·Q½Ð¦U¦ì±Ð¾Ç¦p¦ó¨Ï¥Î VBA ­pºâ¥X?

A                                                  B                  C          D           E                   F                                 G                 H             I
2013.08.15 00:02:50        505        CLKST      27         Kind 0         Count 10         Area 10         Z 11557    0
2013.08.15 00:02:56        509        CLKED    26.9                                
2013.08.15 00:02:58        409        ADD        26.9      X 29         Y 14               
2013.08.15 00:03:04        409        ADD        27         X 28         Y 14               
2013.08.15 00:03:09        409        ADD        27         X 27         Y 14               
2013.08.15 00:03:14        409        ADD        27         X 26         Y 14               
2013.08.15 00:07:28        505        CLKST        26.9         Kind 99         Count 0               
2013.08.15 00:07:28        509        CLKED        26.9                                
2013.08.15 00:07:29        505        CLKST        27         Kind 0         Count 10         Area 10         Z 11557    4
2013.08.15 00:07:35        509        CLKED        26.9                                
2013.08.15 00:07:37        409        ADD        26.9         X 25         Y 15               
2013.08.15 00:07:42        409        ADD        27         X 26         Y 15               
2013.08.15 00:07:47        409        ADD        26.9         X 27         Y 15               
2013.08.15 00:12:01        505        CLKST        26.9         Kind 99         Count 0         Z 11557        
2013.08.15 00:12:01        509        CLKED        26.9                                
2013.08.15 00:12:02        505        CLKST        27         Kind 0         Count 10         Area 10         Z 11557    3
2013.08.15 00:12:08        509        CLKED        27                                
2013.08.15 00:12:10        409        ADD        26.9         X 8                        
2013.08.15 00:12:15        409        ADD        26.9         X 7                        
2013.08.15 00:12:20        409        ADD        26.9         X 6                        
2013.08.15 00:12:26        409        ADD        26.9         X 5                        
2013.08.15 00:12:31        409        ADD        26.9         X 4                        
2013.08.15 00:12:36        409        ADD        26.9         X 3                        
2013.08.15 00:12:42        409        ADD        27         X 2                        
2013.08.15 00:12:47        409        ADD        26.9         X 2                        
2013.08.15 00:12:49        409        ADD        26.9         X 3                        
2013.08.15 00:12:55        409        ADD        26.9         X 4                        
2013.08.15 00:13:00        409        ADD        26.9         X 5                        
2013.08.15 00:13:05        409        ADD        26.9         X 6                        
2013.08.15 00:13:11        409        ADD        26.9         X 7                        
2013.08.15 00:13:16        409        ADD        26.9         X 8                        
2013.08.15 00:16:36        505         NPLST        27         Kind 99         Count 0         Z 11557        
2013.08.15 00:16:37        509         NPLED        27                                
2013.08.15 00:16:37        505         NPLST        27         Kind 0         Count 10         Area 10         Z 11557    14
2013.08.15 00:16:43        509         NPLED        26.9
hihi  = =

TOP

¦^´_ 3# bmw711208


¦^¨ì®a¤W¶ÇÀɮ׽ЦU¦ì«ü¾ÉÀ°¦£ÁÂÁÂ
    123.zip (11.19 KB)
hihi  = =

TOP

http://blog.bestdaylong.com/2013/09/excelsql.html

½Ð§Q¥Îexcel»Psqlºî¦X§Þ¥©¡A¤@¤U¤l´N¿ì¦n¤F

TOP

¦^´_ 4# bmw711208
  1. Sub TEST()
  2.   Dim r As Long, c As Range
  3.   
  4.   Application.ScreenUpdating = False
  5.   With ActiveSheet
  6.     .UsedRange.AutoFilter Field:=8, Criteria1:="Z 11557"  '¥ý¿z¿ï¡A´î¤Öloop¦¸¼Æ
  7.     r = 1
  8.     For Each c In .Range("H2:H" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
  9.       c.Offset(0, 1).Value = Application.WorksheetFunction.CountIf(.Range("C" & r & ":C" & c.Row), "= ADD")
  10.       r = c.Row
  11.     Next c
  12.     .[A1].AutoFilter
  13.   End With
  14.   Application.ScreenUpdating = True
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# stillfish00


  ¤Ó·PÁ§A¤F  stillfish00 ¤j¤j
¤µ¤Ñ¤@­Ó¤U¤È¤w¸g°µ§¹¤@­Ó¤ëªº¥÷¶q¤F!!
·P¿E¤£ºÉ:'(
hihi  = =

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD