- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 1
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2024-8-23
|
¦^´_ 3# ahsiek
³o¼Ë¤l¥i¥H¶Ü¡H- Sub test()
- t = Now + TimeSerial(0, 0, 1)
- ELR = [e65536].End(3).Row
- If [b3] > 1 Then
- If [e3] = "" Then
- [e3] = 1
- Else: Range("E" & ELR + 1) = 1
- End If
- ElseIf [b3] <= 1 Then
- Range("e3:e" & ELR) = ""
- End If
- If Application.Count([e:e]) >= 60 Then
- [a1].Interior.ColorIndex = 3
- Else: [a1].Interior.ColorIndex = 0
- End If
- Application.OnTime t, "test"
- End Sub
½Æ»s¥N½X |
|