µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excel£¸¯ë°Ï
» ¿z¿ï«á¥[Á`
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¿z¿ï«á¥[Á`
aa7551
µoµu®ø®§
¥[¬°¦n¤Í
aa7551
·í«eÂ÷½u
UID
2342
©«¤l
116
¥DÃD
5
ºëµØ
0
¿n¤À
190
ª÷¿ú
190
ÂI¦W
0
§@·~¨t²Î
xp
³nÅ骩¥»
office 2002
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Taiwan
¦b½u®É¶¡
328 ¤p®É
µù¥U®É¶¡
2010-11-17
³Ì«áµn¿ý
2024-11-15
¤¤¾Ç¥Í
©«¤l
116
¥DÃD
5
ºëµØ
0
¿n¤À
190
ÂI¦W
0
§@·~¨t²Î
xp
³nÅ骩¥»
office 2002
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Taiwan
µù¥U®É¶¡
2010-11-17
³Ì«áµn¿ý
2024-11-15
11
#
¸õÂà¨ì
»
µoªí©ó 2010-12-9 18:53
|
¥u¬Ý¸Ó§@ªÌ
¨ü±Ð¤F,¨S¦³¦X¥Îªº¤u¨ã,·Q¿ìªk²Õ¦X....«ä¦Ò¤è¦V¤Ó«],n¥[±j¾Ç²ß
TOP
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ª÷¿ú
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1428 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
12
#
µoªí©ó 2023-3-27 14:42
|
¥u¬Ý¸Ó§@ªÌ
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-3-27 14:49 ½s¿è
¦^´_
1#
0939875756
ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹¥DÃD´ú¸Õ¦r¨åªº¯S©Ê,¾Ç²ß¨ì«Ü¦hª¾ÃÑ,«á¾ÇVBAªº¸Ñ¨M¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
°õ¦æ«e:
¤U¸ü
(219.89 KB)
2023-3-27 14:41
°õ¦æµ²ªG:
¤U¸ü
(76.3 KB)
2023-3-27 14:41
'¦r¨å¸Ìªº°}¦C»ÝnÅܼƲ±¸Ë¥X¨Ó½s¿è,¦A©ñ¦^¦r¨å,¤~¦³®Ä
Option Explicit
Sub TEST()
Dim Y, i&, j&, °}¦C()
Set Y = CreateObject("Scripting.Dictionary")
Set Y(1) = Range([1B!I1], [1B!A1].End(xlDown))
Y(2) = Y(1): Y(5) = 1: °}¦C = Y(2)
For i = 2 To UBound(°}¦C)
If °}¦C(i, 4) Like "RH*" And °}¦C(i, 5) = "A36" Then
Y(5) = Y(5) + 1
For j = 1 To UBound(°}¦C, 2)
°}¦C(Y(5), j) = °}¦C(i, j)
Next
Y(0) = Y(0) + °}¦C(Y(5), 8)
End If
Next
Y(2) = °}¦C
Workbooks.Add
[A1].Resize(Y(5), UBound(Y(2), 2)) = Y(2)
Cells(Y(5) + 1, 3) = "¤pp"
Cells(Y(5) + 1, 8) = Y(0)
Cells.Columns.AutoFit
Set Y = Nothing: Erase °}¦C
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
¤Hªº²´·úªø¦b«e±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·