¦p¦ó³]©wÀx¦s®æ³¡¤À¦r¦êªºÃC¦â
- ©«¤l
- 450
- ¥DÃD
- 110
- ºëµØ
- 0
- ¿n¤À
- 557
- ÂI¦W
- 183
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-9-10
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![½×¾ÂÃÙ§U¾±³¹ ½×¾ÂÃÙ§U¾±³¹](images/common/medal3.gif)
|
¦p¦ó³]©wÀx¦s®æ³¡¤À¦r¦êªºÃC¦â
Dear ¦U¦ì¥ý¶i,
¦bºô¸ô¤W¦³§ä¨ì³]©wÀx¦s®æ³¡¤À¦r¦êªºÃC¦âªºVBA»yªk(¦p¤U)
³o»yªkÃöÁä¦r¦ê¬° " / "
§Ú·Q§ï¦¨ÃöÁä¦r¦ê¬° " ÜºÞ½Ò " ¡A¨º§Úªº»yªk¸Ó¦p¦óקï©O¡HÁÂÁ¦U¦ì
'³oÓÅý§A·s¥´ªº¤º®e©Ò¦³"/"³£Åܬõ
Private Sub Worksheet_Change(ByVal Target As Range)
'¥ý±N¦rÅé³£§ï¦¨¶Â
Target.Font.ColorIndex = xlAutomatic
'±N©Ò¦³"/"³£Åܬõ
redSlash Target
End Sub
'§ó§ï"/"ÃC¦â¬°¬õ¦â
'¤Þ¼Æ¬°¿ï¾Ü°Ï©Î¿é¤J°ÏÀx¦s®æ
Sub redSlash(Target As Range)
Dim Rng As Range 'Àx¦s®æ¯Á¤Þ
Dim i As Long, j As Long 'i ¬°ªð¦^¦ì¸m, j ¬°·j´M¤ñ¹ï°_©l¦ì¸m
'¹M¾ú°Ï°ì©Ò¦³Àx¦s®æ
For Each Rng In Target.Cells
'·j´M°_©l¦ì¸m
j = 1
With Rng
Do '¤@ª½§ä¨ì¨S¦³"/"
'´M§ä"/"¦ì¸m
i = VBA.InStr(j, .Text, "/")
'¦pªG§ä¨ì±N¨ºÓ"/"¦r§ï¬°¬õ¦â
If i > 0 Then .Characters(i, 1).Font.ColorIndex = 3
'²¾°Ê¤U¦¸·j´M¦ì¸m
j = i + 1
Loop While i > 0
End With
Next
End Sub |
|
Just do it.
|
|
|
|
|
- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 1# jsc0518
i = VBA.InStr(j, .Text, "ܺ޽Ò")
If i > 0 Then .Characters(i, 3).Font.ColorIndex = 3 |
|
|
|
|
|
|
- ©«¤l
- 450
- ¥DÃD
- 110
- ºëµØ
- 0
- ¿n¤À
- 557
- ÂI¦W
- 183
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-9-10
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![½×¾ÂÃÙ§U¾±³¹ ½×¾ÂÃÙ§U¾±³¹](images/common/medal3.gif)
|
¦^´_ 2# jcchiang
±z¦n¡I·PÁ±zªº¦^ÂСATEST OK¡C
½Ð°Ý¤@¤U¡A¨º³o¤@¬q»yªk¤¤ªºredSlash Target¤£¬O«ü»¡±N©Ò¦³"/"³£Åܬõ
¬O§_»Ýקï©O¡H
Private Sub Worksheet_Change(ByVal Target As Range) '³oÓÅý§A·s¥´ªº¤º®e©Ò¦³"/"³£Åܬõ
Target.Font.ColorIndex = xlAutomatic '¥ý±N¦rÅé³£§ï¦¨¶Â
redSlash Target '±N©Ò¦³"/"³£Åܬõ
End Sub |
|
Just do it.
|
|
|
|
|
- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 3# jsc0518
¤£¥Î,¨º¥u¬Oµù¸Ñ³o¬qµ{¦¡ªº¥Îªk |
|
|
|
|
|
|
- ©«¤l
- 450
- ¥DÃD
- 110
- ºëµØ
- 0
- ¿n¤À
- 557
- ÂI¦W
- 183
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-9-10
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![½×¾ÂÃÙ§U¾±³¹ ½×¾ÂÃÙ§U¾±³¹](images/common/medal3.gif)
|
¦^´_ 4# jcchiang
¤F¸Ñ¡AÁÂÁ±zªº«ü¾É¡I |
|
Just do it.
|
|
|
|
|