日记首页  | 列表 | 添加日记  | 管理登陆 标题：vba程序-写入星期 <div style=""><span style="font-size: 14px; font-family: Arial;">vba程序-写入星期：</span></div><div style=""><span style="font-size: 14px; font-family: Arial;">根据日期写出对应的星期，并改为周*，最后输出在D列</span></div><div style=""><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">Sub AddWeekdays()</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; ' 设置要处理的工作表</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; Dim ws As Worksheet</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; Set ws = ThisWorkbook.Worksheets("Sheet2")</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp;&nbsp;</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; ' 获取日期数据所在列和最后一行</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; Dim dateCol As Range</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; Dim lastRow As Long</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; With ws</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; &nbsp; &nbsp; lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; &nbsp; &nbsp; Set dateCol = .Range("B2:B" &amp; lastRow)</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; End With</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; ' 遍历日期数据并计算星期几，写入第3列</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; For Each cell In dateCol</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; &nbsp; &nbsp; Dim myDate As Date</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; &nbsp; &nbsp; myDate = cell.Value</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; &nbsp; &nbsp; Dim weekdayNum As Integer</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; &nbsp; &nbsp; weekdayNum = Weekday(myDate, vbMonday) ' 第二个参数指定一周的第一天（周一）</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; &nbsp; &nbsp; cell.Offset(0, 1).Value = Choose(weekdayNum, "周一", "周二", "周三", "周四", "周五", "周六", "周日") ' 根据星期几的数字值写入中文名称</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">&nbsp; &nbsp; Next cell</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;">End Sub</span></font></div>