Excel vba 日期处理例子
2010-02-02 18:30
169 查看
Sub s()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Dim MyDate
Dim i, j As Integer
For i = 4 To 31
Set ws = wb.Worksheets(Trim(Str(i)))
MyDate = DateSerial(2010, 1, i)
If Weekday(MyDate) = vbMonday Or Weekday(MyDate) = vbWednesday Or Weekday(MyDate) = vbFriday Then
ws.Cells(29, 7).Value = 8
End If
For j = 47 To 53
ws.Cells(j, 1).Value = ""
ws.Cells(j, 3).Value = ""
ws.Cells(j, 6).Value = ""
ws.Cells(j, 8).Value = ""
Next
Next
End Sub
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Dim MyDate
Dim i, j As Integer
For i = 4 To 31
Set ws = wb.Worksheets(Trim(Str(i)))
MyDate = DateSerial(2010, 1, i)
If Weekday(MyDate) = vbMonday Or Weekday(MyDate) = vbWednesday Or Weekday(MyDate) = vbFriday Then
ws.Cells(29, 7).Value = 8
End If
For j = 47 To 53
ws.Cells(j, 1).Value = ""
ws.Cells(j, 3).Value = ""
ws.Cells(j, 6).Value = ""
ws.Cells(j, 8).Value = ""
Next
Next
End Sub
相关文章推荐
- poi-处理excel的单元格日期数据
- php 日期处理 例子
- 通过VBA将多个格式相同的Excel文件合并成一个文件,带文件处理
- 【VBA研究】Excel计算百分比时分母为0的处理
- java导入excel时处理日期格式
- Excel VBA 根据日期汇总统计另一字段非重复值的个数
- 照片采集信息 Excel表单处理 VBA
- POI处理Excel日期和时间
- 【初识VBA】用VBA简单处理excel数据
- 利用VBA处理Excel 2007中的表
- VBA 操作 Excel 生成日期及星期
- Excel VBA 常用文件处理
- Java处理Word, Excel, PDF文档的4种开源系统的代码例子
- VBA - Excel编程概念之:【单元格和区域】四、处理三维区域
- Java处理excel导入数据库日期格式的处理(24时制变为12时制问题的处理)
- Java通过jxl解析Excel文件入库,及日期格式处理方式 (附源代码)
- excel 中公式处理日期
- Excel VBA高效办公应用-第四章-用VBA处理市场调查问卷数据
- VBA 控制 Excel 制作表格的例子
- 只利用SQL日期变量的非时间信息进行处理的方法例子