- ©«¤l
- 6
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2018-5-23
- ³Ì«áµn¿ý
- 2019-4-30
|
[µo°Ý] VBA§PÂ_§ä¥X²Å¦X±ø¥ó³Ì¤jÈ
ª©¤W¦U¦ì«e½ú¦n¡A§Ú¤w¸gºÉ¶qª¦¤å§ä¸ê®Æ¤F¡AÁÙ¬O¨S¸ê¤u¤Hûªº¸£³UÂण¹L¨Ó¡A±o¨Ó³o½Ð±Ð¤j®a.....
¤p¤½¥q·Q°µÓexcel²³æªº·|p¨t²Î¡A§Ú¦Û¤v¬ã¨sVBA¨ì¥Ø«e¤w§¹¦¨±o®t¤£¦h¡A°ß¿Wµn¿ý¶Ç²¼®É¡A¤£ª¾¹D«ç»ò¥s¹q¸£§PÂ_·í¤é¬O§_¤w¦³¨ä¥Lµn¿ýªºµ§¼Æ
½Ð±Ð±Ð§Ú¦p¦óÅýVBA¦Û°Ê§PÂ_µ§¼Æ¡A±qDATA¸ê®Æ®w¸Ì·j´M·í¤Ñ¬O§_¦³µn¿ý¶Ç²¼¹L¡A¨S¦³´N±q1¶}©l¡A¦pªG·í¤Ñ¦³¨ä¥Lµn¿ý¡A´N±q¶Ç²¼¸¹½X¸Ì¥½¨â½Xªºµ§¼Æ¬Ý¨ì²Ä´Xµ§¡A±q³oӼƦr+1
¥Ø«e¼gªºµ{§Ç¥u¯à§PÂ_³Ì«á¤@µ§...n¸Éµn´X¤Ñ«eªº¶Ç²¼´N¨S¿ìªk§PÂ_¤F....
javascript:;
javascript:;
'«Ø¥ß·í¤éµ§¼Æ
Dim v As Integer 'Integer¾ã¼ÆÃþ«¬
Dim Q As Integer
v = Sheets("data").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row '³Ì«á¤@Äæ¬O²ÄvÄæ
'¬YÄæ³Ì©³¦C Cells(Rows.Count, Äæ).End(xlUp).Row
'End(xlUp)¬°ctrl+¦V¤U
Q = Sheets("data").Cells(v, "D")
If Sheets("¶Ç²¼µn¿ý").Cells(5, "C") = Sheets("data").Cells(v, "D") Then '¤é´Á¦b¸ê®Æ®w¸Ì¦³«½Æªº¸Ü
'´N§â²{¦bªºµ§¼Æ¦A+1
Sheets("¶Ç²¼µn¿ý").Cells(6, "C") = Sheets("¶Ç²¼µn¿ý").Cells(6, "C") + 1
Else
Sheets("¶Ç²¼µn¿ý").Cells(6, "C") = 1 '¨S¦³«½Æªº¸Ü¡A¿é¤J1
End If
ªí¹F¦p¦³¤£²M·¡Ãl¨¥Âئr³¡¤À½Ð¦h¥]²[¡A·PÁ¦U¦ì«e½ú¬Û§U~
³Ì«áªþ¤WÀÉ®×
javascript:; |
-
-
2018-07-09_174314.png
(90.63 KB)
¶Ç²¼µn¿ý¤¶±¡AÂǥѶDz¼©ßÂà¨Ó¦Û°Ê²£¥Íµ§¼Æ¤Î¬y¤ô¸¹¡A¨Ã§â¸ê®Æ©ßÂà¨ìdata¤À¶
-
-
2018-07-09_174320.png
(147.57 KB)
±qdata¤À¶§PÂ_¤é´Á¤Î¥Ø«eµ§¼Æ
-
-
°]·|¨t²Î½Ð±Ð.rar
(123.61 KB)
|