- ©«¤l
- 26
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2019
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-10-12
- ³Ì«áµn¿ý
- 2022-7-25
|
¦^´_ 22# GBKEE
G¤j¤È¦w¡A¦]¬°§ÚÁÙ¦b¸ÕµÛ¾Ç²ß§ó§ï·sªº¦hªÅ§PÂ_±ø¥ó®M¥Î¦b³oºØ¬Û¹ï¸ô®|ªº¼gªk¡A©Ò¥H³oӮɶ¡©µ¿ðªº³¡¤À¥i¯à»Ýn©ú«á¤Ñ¤~¯à´ú¸Õ¡A
§Ú·Q¦b쥻ªº±ø¥ó- Do
- With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
- If ¦¨¥æ»ù < .Cells(1, 2) Then ¦h©ñ = ¦h©ñ + .Cells(1, 3) Else ¦hªÅ = ¦hªÅ + .Cells(1, 3)
- ¦¨¥æ»ù = .Cells(1, 2)
½Æ»s¥N½X §ó§ï¬°- Do
- With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
- If ¦¨¥æ»ù < .Cells(1, 2) Then ¤è¦V = "¡ô"
- If ¦¨¥æ»ù > .Cells(1, 2) Then ¤è¦V = "¡õ"
- If ¦¨¥æ»ù <= .Cells(1, 2) And ¤è¦V = "¡ô" Then ¦hÁ` = ¦hÁ` + .Cells(2, 3)
- If ¦¨¥æ»ù >= .Cells(1, 2) And ¤è¦V = "¡õ" Then ªÅÁ` = ªÅÁ` + .Cells(2, 3)
- ¦¨¥æ»ù = .Cells(1, 2)
½Æ»s¥N½X ·Q¸ß°Ý¬°¤°»ò³o¤@¦æ¤@ª½Åã¥Ü¿ù»~[/code]
¬d¤F¤@¤U·L³n»¡©úÅã¥Ü¡G¹Á¸Õ«ü¬£Èµ¹ With...End With ³¯z¦¡¤¤¨Ï¥Îªºµ²ºc¦¨û¡A±N·|¦¬¨ì¿ù»~¡A¦ýG¤j±z´£¨Ñªºªº¥N½X«o¤S¥¿±`:'( :'( |
|