VBA之六--EXCEL VBA两则

函数作用:自动获取指定月的工作日

'################################################################

Sub 自动填充工作日(month1 As Integer)

    '获取指定月份天数

    Dim days As Integer

    Dim xdate As Date

    xdate = CDate("2008-" + CStr(month1))

    '初始化公共变量Col2的值

    col2 = 4

    '调用自定义Mday()函数获取指定月份的天数

    days = MDay(xdate)

    '循环获取指定月份的工作日

    For i = 1 To days

        '声明变量保存指定日期

        Dim Curdate As String

        Curdate = "2008-" + CStr(month1) + "-" + _

                  CStr(i)

        '判断指定日期是否为工作日

        If Weekday(CDate(Curdate)) <> vbSaturday _

                   And Weekday(CDate(Curdate)) <> vbSunday Then

            Cells(2, col2) = i

            col2 = col2 + 1

        End If

    Next i

End Sub

'获取指定月份的天数

Public Function MDay(Optional xdate _

                     As Variant = 0) As Integer

    If IsDate(xdate) Then

        MDay = Day(DateSerial(Year(xdate), _

               Month(xdate) + 1, 0))

    Else

        MDay = 0

    End If

End Function

转载于:https://www.cnblogs.com/djcsch2001/archive/2011/07/26/2117617.html

VBA之六--EXCEL VBA两则相关推荐

陈表达VBA笔记-Excel VBA 编程-在表格做自动筛选的功能
Excel VBA 编程,在表格做自动筛选的功能下面的例子是自动筛选85列的内容,筛选内容为处方 Private Sub CommandButton11_Click() '筛选处方 ...
计算机vba函数,excel vba求平均值_求VBA编程或EXCEL公式(函数)
最佳答案 =IF(AND(--SUBSTITUTE($C$2,MID($B4,1,1),"")=$C$2,--SUBSTITUTE($C$2,MID($B4,2,1)," ...
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格（友好版）
上一篇文章我们提到:更好的处理方式就是读取将每一行,按照空格再分为不同的单元格代码实现如下: Sub bb() Dim a, b, k%, i%, j%, q% Open "a.txt&q ...
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格
我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下: 1111 222 222 333 333 444 接着我们进行文件的读取,并且写入到Excel中,代码如下: Sub bb() ...
【Excel VBA和Python对照学习】创建字典
Excel VBA和Python双语对照学习我们从小学习语文,都用过字典.查字典时可以从第一页开始,一页一页地往下找,直到找到为止.这样做明显效率低下,特别是字的位置比较靠后的时候.所以查字典时不这 ...
Excel VBA教程–如何使用Visual Basic在电子表格中编写代码
介绍 (Introduction) This is a tutorial about writing code in Excel spreadsheets using Visual Basic for ...
VBA操作Excel
VBA基础语法 Function ReadPoint(xlSheet As Worksheet) As Point() ReadPoint = astrPoint Function 函数 End Fu ...
html分列代码,实现分列的两段excel vba 分列代码
excel vba 分列多用于一般常规的分列操作完成不了的情况. Excel内置的分列,仅用于有规律的数据进行分列.比如下面的截图,这样的数据源,分列就可以考虑使用excel vba 分列完成. A列 ...
python openpyxl + VBA控制Excel批量绘制两两散点图
尽管R语言是进行生态环境数据探索的首选,但Excel无疑在我们搜集.整理以及初步数据探索中依旧有着十分重要的作用.绘制环境因子间的两两散点图是探索因子关系的常见步骤,当环境因子较多时scatter ...

VBA之六--EXCEL VBA两则

VBA之六--EXCEL VBA两则相关推荐

最新文章

热门文章