前往小程序，Get更优阅读体验！
立即前往
文档建议反馈控制台
首页
学习
活动
专区
工具
TVP
最新优惠活动
文章/答案/技术大牛
发布
首页
学习
活动
专区
工具
TVP最新优惠活动
返回腾讯云官网
社区首页 >专栏 >VBA Excel数字时钟(表格填充式)

VBA Excel数字时钟(表格填充式)

作者头像
一线编程
发布于 2019-07-22 15:16:18
2.4K0
发布于 2019-07-22 15:16:18
举报
文章被收录于专栏：办公魔盒办公魔盒

ThisWorkbook代码

代码语言：javascript
复制
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call vbend_time
End Sub

Private Sub Workbook_Open()
    Sheets("数字时钟").Cells.ColumnWidth = 2
    Sheets("数字时钟").Cells.RowHeight = 14
    Call vb_time
End Sub

模块代码

代码语言：javascript
复制
Dim T As New 数字类

Sub vb_time()
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    Dim str As String
    Dim arr, A, B, C, D, E, F
    str = Format(Now, "hh:mm:ss")
    arr = Split(str, ":")
    
    A = Left(arr(0), 1)
    B = Right(arr(0), 1)
    C = Left(arr(1), 1)
    D = Right(arr(1), 1)
    E = Left(arr(2), 1)
    F = Right(arr(2), 1)
  ''********************
    Select Case A
        Case 0: T.A0
        Case 1: T.A1
        Case 2: T.A2
        Case 3: T.A3
        Case 4: T.A4
        Case 5: T.A5
        Case 6: T.A6
        Case 7: T.A7
        Case 8: T.A8
        Case 9: T.A9
    End Select
 ''*********************
    Select Case B
        Case 0: T.B0
        Case 1: T.B1
        Case 2: T.B2
        Case 3: T.B3
        Case 4: T.B4
        Case 5: T.B5
        Case 6: T.B6
        Case 7: T.B7
        Case 8: T.B8
        Case 9: T.B9
    End Select
 ''*********************
     Select Case C
        Case 0: T.C0
        Case 1: T.C1
        Case 2: T.C2
        Case 3: T.C3
        Case 4: T.C4
        Case 5: T.C5
        Case 6: T.C6
        Case 7: T.C7
        Case 8: T.C8
        Case 9: T.C9
    End Select
 ''*********************
    Select Case D
        Case 0: T.D0
        Case 1: T.D1
        Case 2: T.D2
        Case 3: T.D3
        Case 4: T.D4
        Case 5: T.D5
        Case 6: T.D6
        Case 7: T.D7
        Case 8: T.D8
        Case 9: T.D9
    End Select
 ''*********************
    Select Case E
        Case 0: T.E0
        Case 1: T.E1
        Case 2: T.E2
        Case 3: T.E3
        Case 4: T.E4
        Case 5: T.E5
        Case 6: T.E6
        Case 7: T.E7
        Case 8: T.E8
        Case 9: T.E9
    End Select
 ''*********************
    Select Case F
        Case 0: T.F0
        Case 1: T.F1
        Case 2: T.F2
        Case 3: T.F3
        Case 4: T.F4
        Case 5: T.F5
        Case 6: T.F6
        Case 7: T.F7
        Case 8: T.F8
        Case 9: T.F9
    End Select
 ''*********************
    Application.OnTime Now + TimeValue("00:00:01"), "vb_time", Schedule:=True
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub

Sub vbend_time()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "vb_time", Schedule:=False
End Sub

类模块代码

代码语言：javascript
复制

Function lqclear()
     Sheets("数字时钟").Range("l:q").Interior.TintAndShade = 0
End Function

Function A0()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("L19:q19").Interior.Color = 15773696
        .Range("L7:L19").Interior.Color = 15773696
        .Range("Q7:q19").Interior.Color = 15773696
    End With
End Function

Function A1()
    lqclear
    Sheets("数字时钟").Range("q7:q19").Interior.Color = 15773696
End Function

Function A2()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("q7:q13").Interior.Color = 15773696
        .Range("l13:q13").Interior.Color = 15773696
        .Range("l13:l19").Interior.Color = 15773696
        .Range("l19:q19").Interior.Color = 15773696
    End With
End Function

Function A3()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("l13:q13").Interior.Color = 15773696
        .Range("l19:q19").Interior.Color = 15773696
        .Range("q7:q19").Interior.Color = 15773696
    End With
End Function

Function A4()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:l13").Interior.Color = 15773696
        .Range("q7:q19").Interior.Color = 15773696
        .Range("l13:q13").Interior.Color = 15773696
    End With
End Function

Function A5()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("l7:l13").Interior.Color = 15773696
        .Range("l13:q13").Interior.Color = 15773696
        .Range("q13:q19").Interior.Color = 15773696
        .Range("L19:q19").Interior.Color = 15773696
    End With
End Function

Function A6()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("l7:l19").Interior.Color = 15773696
        .Range("l13:q13").Interior.Color = 15773696
        .Range("q13:q19").Interior.Color = 15773696
        .Range("L19:q19").Interior.Color = 15773696
    End With
End Function

Function A7()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("Q7:q19").Interior.Color = 15773696
    End With
End Function

Function A8()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("l13:q13").Interior.Color = 15773696
        .Range("L19:q19").Interior.Color = 15773696
        .Range("L7:L19").Interior.Color = 15773696
        .Range("Q7:q19").Interior.Color = 15773696
    End With
End Function

Function A9()
    lqclear
    With Sheets("数字时钟")
        .Range("l7:q7").Interior.Color = 15773696
        .Range("l13:q13").Interior.Color = 15773696
        .Range("L19:q19").Interior.Color = 15773696
        .Range("L7:L13").Interior.Color = 15773696
        .Range("Q7:q19").Interior.Color = 15773696
    End With
End Function

''***********************

Function lqclearb()
     Sheets("数字时钟").Range("s:x").Interior.TintAndShade = 0
End Function

Function B0()
    lqclearb
    With Sheets("数字时钟")
        .Range("s7:x7").Interior.Color = 15773696
        .Range("s19:x19").Interior.Color = 15773696
        .Range("s7:s19").Interior.Color = 15773696
        .Range("x7:x19").Interior.Color = 15773696
    End With
End Function

Function B1()
    lqclearb
    Sheets("数字时钟").Range("X7:X19").Interior.Color = 15773696
End Function

Function B2()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:X7").Interior.Color = 15773696
        .Range("X7:X13").Interior.Color = 15773696
        .Range("S13:X13").Interior.Color = 15773696
        .Range("S13:S19").Interior.Color = 15773696
        .Range("S19:X19").Interior.Color = 15773696
    End With
End Function

Function B3()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:X7").Interior.Color = 15773696
        .Range("S13:X13").Interior.Color = 15773696
        .Range("S19:X19").Interior.Color = 15773696
        .Range("X7:X19").Interior.Color = 15773696
    End With
End Function

Function B4()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:S13").Interior.Color = 15773696
        .Range("X7:X19").Interior.Color = 15773696
        .Range("S13:X13").Interior.Color = 15773696
    End With
End Function

Function B5()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:X7").Interior.Color = 15773696
        .Range("S7:S13").Interior.Color = 15773696
        .Range("S13:X13").Interior.Color = 15773696
        .Range("X13:X19").Interior.Color = 15773696
        .Range("S19:X19").Interior.Color = 15773696
    End With
End Function

Function B6()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:X7").Interior.Color = 15773696
        .Range("S7:S19").Interior.Color = 15773696
        .Range("S13:X13").Interior.Color = 15773696
        .Range("X13:X19").Interior.Color = 15773696
        .Range("S19:X19").Interior.Color = 15773696
    End With
End Function

Function B7()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:X7").Interior.Color = 15773696
        .Range("X7:X19").Interior.Color = 15773696
    End With
End Function

Function B8()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:X7").Interior.Color = 15773696
        .Range("S13:X13").Interior.Color = 15773696
        .Range("S19:X19").Interior.Color = 15773696
        .Range("S7:S19").Interior.Color = 15773696
        .Range("X7:X19").Interior.Color = 15773696
    End With
End Function

Function B9()
    lqclearb
    With Sheets("数字时钟")
        .Range("S7:X7").Interior.Color = 15773696
        .Range("S13:X13").Interior.Color = 15773696
        .Range("S19:X19").Interior.Color = 15773696
        .Range("S7:S13").Interior.Color = 15773696
        .Range("X7:X19").Interior.Color = 15773696
    End With
End Function

''***********************

Function lqclearC()
     Sheets("数字时钟").Range("AC:AH").Interior.TintAndShade = 0
End Function

Function C0()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AC19:AH19").Interior.Color = 15773696
        .Range("AC7:AC19").Interior.Color = 15773696
        .Range("AH7:AH19").Interior.Color = 15773696
    End With
End Function

Function C1()
    lqclearC
    Sheets("数字时钟").Range("AH7:AH19").Interior.Color = 15773696
End Function

Function C2()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AH7:AH13").Interior.Color = 15773696
        .Range("AC13:AH13").Interior.Color = 15773696
        .Range("AC13:AC19").Interior.Color = 15773696
        .Range("AC19:AH19").Interior.Color = 15773696
    End With
End Function

Function C3()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AC13:AH13").Interior.Color = 15773696
        .Range("AC19:AH19").Interior.Color = 15773696
        .Range("AH7:AH19").Interior.Color = 15773696
    End With
End Function

Function C4()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AC13").Interior.Color = 15773696
        .Range("AH7:AH19").Interior.Color = 15773696
        .Range("AC13:AH13").Interior.Color = 15773696
    End With
End Function

Function C5()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AC7:AC13").Interior.Color = 15773696
        .Range("AC13:AH13").Interior.Color = 15773696
        .Range("AH13:AH19").Interior.Color = 15773696
        .Range("AC19:AH19").Interior.Color = 15773696
    End With
End Function

Function C6()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AC7:AC19").Interior.Color = 15773696
        .Range("AC13:AH13").Interior.Color = 15773696
        .Range("AH13:AH19").Interior.Color = 15773696
        .Range("AC19:AH19").Interior.Color = 15773696
    End With
End Function

Function C7()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AH7:AH19").Interior.Color = 15773696
    End With
End Function

Function C8()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AC13:AH13").Interior.Color = 15773696
        .Range("AC19:AH19").Interior.Color = 15773696
        .Range("AC7:AC19").Interior.Color = 15773696
        .Range("AH7:AH19").Interior.Color = 15773696
    End With
End Function

Function C9()
    lqclearC
    With Sheets("数字时钟")
        .Range("AC7:AH7").Interior.Color = 15773696
        .Range("AC13:AH13").Interior.Color = 15773696
        .Range("AC19:AH19").Interior.Color = 15773696
        .Range("AC7:AC13").Interior.Color = 15773696
        .Range("AH7:AH19").Interior.Color = 15773696
    End With
End Function


''////////////////////////

Function lqclearD()
     Sheets("数字时钟").Range("AJ:AO").Interior.TintAndShade = 0
End Function

Function D0()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AJ19:AO19").Interior.Color = 15773696
        .Range("AJ7:AJ19").Interior.Color = 15773696
        .Range("AO7:AO19").Interior.Color = 15773696
    End With
End Function

Function D1()
    lqclearD
    Sheets("数字时钟").Range("AO7:AO19").Interior.Color = 15773696
End Function

Function D2()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AO7:AO13").Interior.Color = 15773696
        .Range("AJ13:AO13").Interior.Color = 15773696
        .Range("AJ13:AJ19").Interior.Color = 15773696
        .Range("AJ19:AO19").Interior.Color = 15773696
    End With
End Function

Function D3()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AJ13:AO13").Interior.Color = 15773696
        .Range("AJ19:AO19").Interior.Color = 15773696
        .Range("AO7:AO19").Interior.Color = 15773696
    End With
End Function

Function D4()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AJ13").Interior.Color = 15773696
        .Range("AO7:AO19").Interior.Color = 15773696
        .Range("AJ13:AO13").Interior.Color = 15773696
    End With
End Function

Function D5()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AJ7:AJ13").Interior.Color = 15773696
        .Range("AJ13:AO13").Interior.Color = 15773696
        .Range("AO13:AO19").Interior.Color = 15773696
        .Range("AJ19:AO19").Interior.Color = 15773696
    End With
End Function

Function D6()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AJ7:AJ19").Interior.Color = 15773696
        .Range("AJ13:AO13").Interior.Color = 15773696
        .Range("AO13:AO19").Interior.Color = 15773696
        .Range("AJ19:AO19").Interior.Color = 15773696
    End With
End Function

Function D7()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AO7:AO19").Interior.Color = 15773696
    End With
End Function

Function D8()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AJ13:AO13").Interior.Color = 15773696
        .Range("AJ19:AO19").Interior.Color = 15773696
        .Range("AJ7:AJ19").Interior.Color = 15773696
        .Range("AO7:AO19").Interior.Color = 15773696
    End With
End Function

Function D9()
    lqclearD
    With Sheets("数字时钟")
        .Range("AJ7:AO7").Interior.Color = 15773696
        .Range("AJ13:AO13").Interior.Color = 15773696
        .Range("AJ19:AO19").Interior.Color = 15773696
        .Range("AJ7:AJ13").Interior.Color = 15773696
        .Range("AO7:AO19").Interior.Color = 15773696
    End With
End Function



''***********************

Function lqclearE()
     Sheets("数字时钟").Range("AT:AY").Interior.TintAndShade = 0
End Function

Function E0()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AT19:AY19").Interior.Color = 15773696
        .Range("AT7:AT19").Interior.Color = 15773696
        .Range("AY7:AY19").Interior.Color = 15773696
    End With
End Function

Function E1()
    lqclearE
    Sheets("数字时钟").Range("AY7:AY19").Interior.Color = 15773696
End Function

Function E2()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AY7:AY13").Interior.Color = 15773696
        .Range("AT13:AY13").Interior.Color = 15773696
        .Range("AT13:AT19").Interior.Color = 15773696
        .Range("AT19:AY19").Interior.Color = 15773696
    End With
End Function

Function E3()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AT13:AY13").Interior.Color = 15773696
        .Range("AT19:AY19").Interior.Color = 15773696
        .Range("AY7:AY19").Interior.Color = 15773696
    End With
End Function

Function E4()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AT13").Interior.Color = 15773696
        .Range("AY7:AY19").Interior.Color = 15773696
        .Range("AT13:AY13").Interior.Color = 15773696
    End With
End Function

Function E5()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AT7:AT13").Interior.Color = 15773696
        .Range("AT13:AY13").Interior.Color = 15773696
        .Range("AY13:AY19").Interior.Color = 15773696
        .Range("AT19:AY19").Interior.Color = 15773696
    End With
End Function

Function E6()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AT7:AT19").Interior.Color = 15773696
        .Range("AT13:AY13").Interior.Color = 15773696
        .Range("AY13:AY19").Interior.Color = 15773696
        .Range("AT19:AY19").Interior.Color = 15773696
    End With
End Function

Function E7()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AY7:AY19").Interior.Color = 15773696
    End With
End Function

Function E8()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AT13:AY13").Interior.Color = 15773696
        .Range("AT19:AY19").Interior.Color = 15773696
        .Range("AT7:AT19").Interior.Color = 15773696
        .Range("AY7:AY19").Interior.Color = 15773696
    End With
End Function

Function E9()
    lqclearE
    With Sheets("数字时钟")
        .Range("AT7:AY7").Interior.Color = 15773696
        .Range("AT13:AY13").Interior.Color = 15773696
        .Range("AT19:AY19").Interior.Color = 15773696
        .Range("AT7:AT13").Interior.Color = 15773696
        .Range("AY7:AY19").Interior.Color = 15773696
    End With
End Function


''********************

Function lqclearF()
     Sheets("数字时钟").Range("BA:BF").Interior.TintAndShade = 0
End Function

Function F0()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BA19:BF19").Interior.Color = 15773696
        .Range("BA7:BA19").Interior.Color = 15773696
        .Range("BF7:BF19").Interior.Color = 15773696
    End With
End Function

Function F1()
    lqclearF
    Sheets("数字时钟").Range("BF7:BF19").Interior.Color = 15773696
End Function

Function F2()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BF7:BF13").Interior.Color = 15773696
        .Range("BA13:BF13").Interior.Color = 15773696
        .Range("BA13:BA19").Interior.Color = 15773696
        .Range("BA19:BF19").Interior.Color = 15773696
    End With
End Function

Function F3()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BA13:BF13").Interior.Color = 15773696
        .Range("BA19:BF19").Interior.Color = 15773696
        .Range("BF7:BF19").Interior.Color = 15773696
    End With
End Function

Function F4()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BA13").Interior.Color = 15773696
        .Range("BF7:BF19").Interior.Color = 15773696
        .Range("BA13:BF13").Interior.Color = 15773696
    End With
End Function

Function F5()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BA7:BA13").Interior.Color = 15773696
        .Range("BA13:BF13").Interior.Color = 15773696
        .Range("BF13:BF19").Interior.Color = 15773696
        .Range("BA19:BF19").Interior.Color = 15773696
    End With
End Function

Function F6()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BA7:BA19").Interior.Color = 15773696
        .Range("BA13:BF13").Interior.Color = 15773696
        .Range("BF13:BF19").Interior.Color = 15773696
        .Range("BA19:BF19").Interior.Color = 15773696
    End With
End Function

Function F7()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BF7:BF19").Interior.Color = 15773696
    End With
End Function

Function F8()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BA13:BF13").Interior.Color = 15773696
        .Range("BA19:BF19").Interior.Color = 15773696
        .Range("BA7:BA19").Interior.Color = 15773696
        .Range("BF7:BF19").Interior.Color = 15773696
    End With
End Function

Function F9()
    lqclearF
    With Sheets("数字时钟")
        .Range("BA7:BF7").Interior.Color = 15773696
        .Range("BA13:BF13").Interior.Color = 15773696
        .Range("BA19:BF19").Interior.Color = 15773696
        .Range("BA7:BA13").Interior.Color = 15773696
        .Range("BF7:BF19").Interior.Color = 15773696
    End With
End Function

文件下载链接:

代码语言：javascript
复制
https://www.lanzous.com/i48ooid

谢谢关注与支持!!

本文参与 腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2019-05-21，如有侵权请联系 cloudcommunity@tencent.com 删除
编程算法

本文分享自 办公魔盒 微信公众号，前往查看

如有侵权，请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ，欢迎热爱写作的你一起参与！

编程算法
评论
登录后参与评论
0 条评论
热度
最新
登录 后参与评论
推荐阅读
LV.
文章
0
获赞
0
领券

腾讯云开发者

扫码关注腾讯云开发者

扫码关注腾讯云开发者

领取腾讯云代金券

热门产品

热门推荐

更多推荐

Copyright © 2013 - 2024 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有 

深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 深公网安备号 44030502008569

腾讯云计算（北京）有限责任公司 京ICP证150476号 |  京ICP备11018762号 | 京公网安备号11010802020287

问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档

Copyright © 2013 - 2024 Tencent Cloud.

All Rights Reserved. 腾讯云 版权所有

登录 后参与评论