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

[µo°Ý] ³]©w³æ¤¸®æ¦rÅé²Å¦X±ø¥óªºÃC¦â ??

[µo°Ý] ³]©w³æ¤¸®æ¦rÅé²Å¦X±ø¥óªºÃC¦â ??

Characters
1.³o¨ç¼ÆµLªk¿ì§O¤¤¤å....
2.¥¦¥u¯à«ü©w²Å¦X±ø¥ó¶}©lªº¦r¨ú´X­Ó¦rÅܦâ
¨Ò¦p
ABC-123ABC-123
«ü©w - ¨ú4 «h«ü -123 «á­±ÁÙ¦³-123´N¤£°µ¤F
³Ì¥D­nµLªk¿ë§O¤¤¤å.....
¤£ª¾¦³¨ä¥L¿ìªk¸Ñ¨M???

§Úªº·Qªk¬O¥ý¥ÎLen­pºâ¥X¦r¼Æ¡AµM«á¥ÎFor .. next ¨Ó¤ñ¹ï

TOP

¦¹ªk¤¤¤å¤]³q¥Î

1.jpg (62.54 KB)

1.jpg

TOP

¦¹ªk¤¤¤å¤]³q¥Î
tyrone123456 µoªí©ó 2015-4-19 00:10

³Ò·Ð±zÀ°§Ú¬Ý¤@¤U¿ù»~¦b¦ó³B?
²Ä¤@­Ó¦r¶}©l¨ú¤T­Ó¦r¬°¬õ¦â¡Aµ²ªG¥þ³¡¬°¬õ¦â???
Book2.zip (23.64 KB)
ÁÙ¦³¥Îclear ²M°£¤w³]©wªº®æ¦¡¡A¦n¹³µL®Ä??

TOP

¥Ø«e§ÚÅv­­¤£¨¬¡A¤£¯à¤U¸üªF¦è¡A¥u¯à¬Ý¶K¹Ï¡A©Ò¥H§A»Ý­n§âµ{¦¡½X¤Î«ÝÅܧó®æ¦¡¸ê®Æ­¶­±¶K¥X¨Ó

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-4-19 08:44 ½s¿è
¥Ø«e§ÚÅv­­¤£¨¬¡A¤£¯à¤U¸üªF¦è¡A¥u¯à¬Ý¶K¹Ï¡A©Ò¥H§A»Ý­n§âµ{¦¡½X¤Î«ÝÅܧó®æ¦¡¸ê®Æ­¶­±¶K¥X¨Ó
tyrone123456 µoªí©ó 2015-4-19 07:52

¦P¼Ëªºµ{¦¡½X§Ú§â¥¦©ñ¦b¨ä¥Lªº¬¡­¶Ã¯¬O¥¿±`ªº
¦ý¦b³o­Ó¬¡­¶Ã¯´N¬O¤£¦æ«Ü¸Þ²§???
§A¦³«H½c¶Ü?§Ú±Hµ¹±z??

Sub abc()
Application.ScreenUpdating = False
' Application.EnableEvents = False

' -----------------------------------------------
With Workbooks("book2.xls").Sheets("Sheet3")
Dim ou, ddd, eee
For ou = 2 To 61
If .Cells(ou, "c") > 2.8 Then
ddd = ddd & "3" & .Cells(ou, "b") & ","
ElseIf .Cells(ou, "c") > 1.8 Then
ddd = ddd & "2" & .Cells(ou, "b") & ","
ElseIf .Cells(ou, "c") > 0.8 Then
ddd = ddd & .Cells(ou, "b") & ","
End If
Next
.Range("e65536").End(xlUp).Offset(1) = ddd

.Range("e65536").End(xlUp).Offset(0).Characters(1, 3).Font.ColorIndex = 3

End With
Workbooks("32.xls").Sheets("Sheet1").Range("a65536").End(xlUp).Offset(1) = ddd
' ¥[¤J¤W­±³o¦æ´ú¸Õ,¨S³]©wÃC¦â¡A¦ý¦rÅé½T¬O¬õ¦â???

End Sub

TOP

¦^´_ 6# t8899

¥Î³o­Ó§a   [email protected]

TOP

¦n¦h¿ù»~
1¡Bcellsªº¥Îªk¡A§A³£¼g¿ù¡ACells¸òRangeªº·§©À¬O¤££¸¼Ëªº
2¡BSelectionªº¨Ï¥Î«e´£¡A¤]¿ù»~
3¡BE5·|Åܬõ¡A»P§A¼gªºµ{¦¡§¹¥þµLÃö¡A²q´ú¥i¯à¨º­ÓÀx¦s®æ­ì¥»´N¤w¸g³]©w¦rÅé¬O¬õ¦âªº
4¡B¨Ì·Ó§A¼gªºµ{¦¡¡A©M§A·íªì¼gªº°ÝÃD¥DÃD¡A·Pı®t§O«Ü¤j.....

±q§A¼gªºµ{¦¡¨Ó¬Ý¡A§A¬O¤@¦ì«D±`ªì¶¥ªº½s¼gªÌ¡A´Á±æ§A¦A¦h¬Ý¨Çµ{¦¡¦A¨Ó¸Õ¸Õ½s¼g§Aªº´Á±æ
PS¡G®¤§Ú¤£¯àª½±µ¸ò§AÁ¿VBAµª®×¡A­Y«Üºò«æ¡A¥i¥H¨ì104¥~¥]ºôµo¥]¤uµ{¡A³oVBA¤£Ãø¡AÀ³¸Ó«Ü¦h¤H¥i¥H¸Ñ¨M§Aªº§xÂZ

TOP

¦n¦h¿ù»~
1¡Bcellsªº¥Îªk¡A§A³£¼g¿ù¡ACells¸òRangeªº·§©À¬O¤££¸¼Ëªº
2¡BSelectionªº¨Ï¥Î«e´£¡A¤]¿ù»~
3¡B ...
tyrone123456 µoªí©ó 2015-4-19 20:06

ÁÂÁ¡A§Ú¤w¸g§ä¨ìµª®×¤F!

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD