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

[µo°Ý] ¦p¦óÃѧO¯S©w±ø¥óªº¼Æ­È¨Ã§ï¦rÅé¤j¤p©MÃC¦â?

1RANGE("A1")Àx¦s®æ¤º=23.06 +0.34 22.14 -0.14 24.14 -0.99
  «Øij¥Î»áªR±N¸ê®ÆÂà¦ÜRANGE("A1") RANGE("B1") RANGE("C1") ........µM«á ³]©w®æ¦¡¤Æ±ø¥ó§Y¥i
2­Yµw­n¦P¤@­ÓÀx¦s®æ¤ºÀ³¸Ó­n¼gVAB©Ô.
ù

TOP

1RANGE("A1")Àx¦s®æ¤º=23.06 +0.34 22.14 -0.14 24.14 -0.99
  «Øij¥Î»áªR±N¸ê®ÆÂà¦ÜRANGE("A1") RANGE("B ...
rouber590324 µoªí©ó 2018-9-13 16:17



    ÁÂÁ®v¥S¼ö¤ßÀ°¦£
¬Ý¨Ó­n¾Ç¾ÇVBA¤F

TOP

¦^´_ 1# yahoohk1314

­Y¤£¦Ò¼{§ï¦rÅé¤j¤pªº¸Ü¡Aª½±µ¥Î¦Û­q®æ¦¡¥i¥H¹F¨ìÅܦ⪺®ÄªG¡C
    [ºñ¦â]+ #,##0;[¬õ¦â]- #,##0

TOP

¦^´_ 10# yahoohk1314
¬O¦P¤@Àx¦s®æ¤ºªº¼Æ­È²£¥Í¤£¦PÃC¦â»P¦rÅé¤j¤p¶Ü?


   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ yahoohk1314 ©ó 2018-12-8 13:32 ½s¿è
¦^´_  yahoohk1314
¬O¦P¤@Àx¦s®æ¤ºªº¼Æ­È²£¥Í¤£¦PÃC¦â»P¦rÅé¤j¤p¶Ü?
Hsieh µoªí©ó 2018-9-25 14:55



    «D±`¹ï¤£°_, ¤§«e¤@ª½§Ñ¤F¤W¨Ó
°Ý¤F«Ü¦h³£¤£¤ÓÀ´«ç°µ, ©Ò¥H¤@ª½³£¥H¤â°Ê§ï¤å¦r¤j¤p©MÃC¦â
¦³Hsiehª©¤j¿Ë¦Û¦^µª¯u¬O·P®¦¸U¤À!!

¬Oªº, ¦P¤@Àx¦s®æ
²³æ»¡ §Ú­nªº®ÄªG¬O³o¼Ë

±q¤U¹Ï¤¤ ¤U­±ªºÀx¦s®æÅܦ¨¤W­±ªºÀx¦s®æ
0©Î+¼ÆÅܺñ¦â ¦rÅé¤j¤p¬°10
-¼ÆÅܬõ¦â ¦rÅé¤j¤p¬°10
¤£³Ó·P¿E!

321321.jpg (11.31 KB)

321321.jpg

TOP

¦^´_ 15# yahoohk1314


Sub TEST_02()
Dim i%, C%, U%, T$
With Range("A1")
     For i = 1 To Len(.Value) + 1
         T = Trim(Mid(.Value, i, 1))
         If T = "+" Then U = i: C = 43
         If T = "-" Then U = i: C = 3
         If T = "" Then With .Characters(U, i - U).Font: .Size = 10: .ColorIndex = C: End With
     Next i
End With
End Sub

TOP

¥»©«³Ì«á¥Ñ yahoohk1314 ©ó 2018-12-9 13:35 ½s¿è
¦^´_  yahoohk1314


Sub TEST_02()
Dim i%, C%, U%, T$
With Range("A1")
     For i = 1 To Len(. ...
­ã´£³¡ªL µoªí©ó 2018-12-9 12:05



    ·PÁª©¤j«ü±Ð
¦¹¦æ°µ¨ì§Ú·Q­nªº®ÄªG¤F
¦ý´±°Ý¦p¦ó³]©w­×§ï»Ý­n§ó§ïªº¦ì¸m
¨Ò¦p H1 ¦Ü H100
¸Õ¤F±N¤W­zªºA1§ï°µH1:H100
¦ý·|¥X²{¿ù»~, ¥¼ª¾¬O¥X²{¤°»ò°ÝÃD

¤£³Ó·P¿E!

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-12-9 21:07 ½s¿è

¦^´_ 17# yahoohk1314


¦]¬°¥»¨Ó¥u¦³¤@­ÓÀx¦s®æ¡A³Q§A§ï±¼¤§«á¡A
.value¨ú¥Xªº¸ê®Æ¤w¸g¤£¬O³æ¤@¦r¦ê¡AÅܦ¨°}¦C¤F

¸Õ¸Õ¤U­±ªºµ{¦¡§a!

Sub TEST_02()
Dim i%, C%, U%, T$
For Each rg In [H1:H100]: With rg
     For i = 1 To Len(.Value) + 1
         T = Trim(Mid(.Value, i, 1))
         If T = "+" Then U = i: C = 43
         If T = "-" Then U = i: C = 3
         If T = "" Then With .Characters(U, i - U).Font: .Size = 10: .ColorIndex = C: End With
     Next i
End With: Next
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ yahoohk1314 ©ó 2018-12-10 03:29 ½s¿è
¦^´_  yahoohk1314


¦]¬°¥»¨Ó¥u¦³¤@­ÓÀx¦s®æ¡A³Q§A§ï±¼¤§«á¡A
.value¨ú¥Xªº¸ê®Æ¤w¸g¤£¬O³æ¤@¦r¦ê¡AÅÜ ...
n7822123 µoªí©ó 2018-12-9 21:05



    ·PÁªüÀs«ü±Ð
³o­Ó«ü¥O¹F¨ì§Úªº­n¨D¤F
¦ý¬O¥X²{¤F¨Ç°ÝÃD, ¥¼ª¾¬O­ì¦]¬°¦ó
¦p¤U¹Ï¤¤, ¨C¦C¤¤ªº­º¦æ¼Æ­È·|¹F¤£¨ì§Úªº­n¨D(ÂÅ°é¦ì¸m)
¦ý¬O©_©Ç¦a¨C¦C²Ä2¦C¶}©lªº¼Æ­È¯à¥¿±`¹F¨ì§Ú­n¨D

TOP

¦^´_ 19# yahoohk1314


½Ð½T»{+,- ²Å¸¹«á»Ý­nÅÜÃC¦âªº¼Æ¦r ¨ì ¤£»ÝÅÜÃC¦âªº¼Æ¦r¡A¤¤¶¡¬O§_¦³ªÅ®æ

«Øij¤W¶ÇÀɮסA¤j®a¤ñ¸û¦nÀ°§ADebug
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD