- ©«¤l
- 248
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 314
- ÂI¦W
- 126
- §@·~¨t²Î
- XP / WIN7
- ³nÅ骩¥»
- 2003 / 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Tainan
- µù¥U®É¶¡
- 2013-10-18
- ³Ì«áµn¿ý
- 2024-6-28
![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) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![½×¾ÂÃÙ§U¾±³¹ ½×¾ÂÃÙ§U¾±³¹](images/common/medal3.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif)
|
¦^´_ 8# stillfish00
¤£ª¾¹D¬°¤°»ò°õ¦æ°_¨Ó·|»¡¥¨¶°¦³°ÝÃD
«¶}¤F¤]¬O¤@¼Ë
¤£²M·¡¿ù¦bþ
§Úªº°õ¦æ¤è¦¡¬O- Sub test()
- SetRangeFlashing Target:=Range("B2"), ColorIndex:=3
- End Sub
- Static Sub SetRangeFlashing(Optional Target, Optional ColorIndex, Optional bQuit As Boolean)
-
- '¨Ï¥Î¤èªk:
- ' n¶}©l°{Ã{½Ð©I¥s¡G
- 'SetRangeFlashing Target:=Range("B2"), ColorIndex:=3
- ' n°±¤î°{Ã{½Ð©I¥s¡GSetRangeFlashing bQuit:=True
- Dim dteNextTime As Date
- Dim bStatus As Boolean
- Dim RecordColor
- Dim rngFlash As Range
-
- If bQuit Then
- rngFlash.Interior.ColorIndex = RecordColor
- Application.OnTime dteNextTime, "SetRangeFlashing", , False
- Else
- If Not IsMissing(Target) Then Set rngFlash = Target
- If Not IsMissing(ColorIndex) Then RecordColor = ColorIndex
-
- rngFlash.Interior.ColorIndex = IIf(bStatus, RecordColor, xlColorIndexNone)
- bStatus = Not bStatus
- dteNextTime = Now + TimeValue("00:00:01")
- Application.OnTime dteNextTime, "SetRangeFlashing"
- End If
-
- End Sub
½Æ»s¥N½X ¤£ª¾¹D³o¼Ë¶]µ{¦¡¬O¤£¬O¥¿½Tªº
³Â·Ð¤j¤jÀ°§Ú¬Ý¬Ý
ÁÂÁÂ : ) |
|