Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

Excel日历

Excel设计的日历。打开显示当前的时间和本年的日历。通过上下两个按钮可以切换年份。按下为递减一年,按上显示增加一年的日历。周末显示为红色哦。


作者:Excel小子-Office中国

 

Excel日历操作动画

日历.gif

 


  Excel日历详细VBA代码:               

    

        Private Sub SpinButton1_Change()

            Cells(1, 2) = SpinButton1.Value

        End Sub        

        Private Sub SpinButton2_Change()

            Cells(1, 5) = SpinButton2.Value

        End Sub

                   

        Sub newti()      

            newtime

        End Sub

        Sub riqi()

        Application.EnableEvents = False

            Dim arr()

            Dim i

            Dim t

            Dim ar, a

            Dim x, y, j

            Dim first_day_weekday

            Dim last_day

            'arr = Range("a3:g8")

            For y = 1 To 4

                For x = 1 To 3

                j = j + 1

            first_day_weekday = Weekday(DateSerial([b1], j, 1), vbSunday)

            last_day = Day(DateSerial([b1], j + 1, 0))

            'Debug.Print DateSerial([b1], [e1] + 1, 0)

            'Stop

            ReDim arr(1 To 6, 1 To 7)

            For i = 1 To 6

                For t = 1 To 7

                    ar = ar + 1

                    

                    If first_day_weekday <= ar Then

                    a = a + 1

                    If a <= last_day Then

                    'Stop

                    arr(i, t) = a

                    Else

                    arr(i, t) = ""

                    End If

                    End If

                Next t

            Next i

            'Stop

            Cells((y - 1) * 9 + 4, (x - 1) * 8 + 1).Resize(6, 7) = arr

            a = 0

            ar = 0

            Next x

            Next y

        Application.EnableEvents = True

        End Sub


        模块函数:

        Sub newtime()

        Calculate

        Application.OnTime Now + TimeValue("00:00:01"), "newtime"

        End Sub


点击加入群:Excel部落 结识Excel大神
学好Excel,效率成倍提高,薪水稳步增长,职位快速提升
每天一个源创技巧,如觉得有用,请点上面 关注。更重要手机转发分享


如喜欢此技巧,手机右上角点开,分享到QQ空间,方便自己以后看



点击次数:  更新时间:2016-12-17 16:28:03  【打印此页】  【关闭】
上一条:CAD VBA入门教程  下一条:恢复或复位VBE界面的方法-适合所有Office
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2024 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn