帮忙修改

cqz1314 · 发表于 2017-4-27 14:20

代码修改.rar (121.66 KB, 下载次数: 13)

代码中生成的日期是周一到周日的，
我想生成周一到周五

不要周六周日

麻烦老师，帮忙修改，谢谢。

蓝桥玄霜 · 发表于 2017-4-27 16:46

把周六、周日的行删除即可。

lv_king_2017 · 发表于 2017-4-27 17:02

周六，日的日期不需要，筛选后删掉

zax010 · 发表于 2017-4-27 18:27

Sub zz()
Application.ScreenUpdating = False
Application.Calculation = xlManual
a = Cells(2, 2)
For i = 1 To 80
      a = a + 1: k = Format(a, "[$-804]aaa;@")
      If k <> "星期六" And k <> "星期日" Then
         Cells(3 + n, 2) = a
         Cells(3 + n, 1).FormulaR1C1 = "=WEEKDAY(RC[1],2)"
         n = n + 1
      End If
Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub

zax010 · 发表于 2017-4-27 18:32

代码修改.rar (123.87 KB, 下载次数: 7)

cqz1314 · 发表于 2017-4-27 21:34

zax010 发表于 2017-4-27 18:32

谢谢

还是周一到周日呀

zax010 · 发表于 2017-4-27 21:43

cqz1314 发表于 2017-4-27 21:34
谢谢

还是周一到周日呀

怎么会？？？

下载5楼的附件，打开文件，按 “学习计划表” 中的日期按钮，看A、B两列的效果。

cqz1314 · 发表于 2017-4-28 07:08

zax010 发表于 2017-4-27 21:43
怎么会？？？

下载5楼的附件，打开文件，按 “学习计划表” 中的日期按钮，看A、B两列的效果。

老师我想要的是只添周1到周5的日期和星期，
看看能实现吗？

zax010 · 发表于 2017-4-28 07:27

cqz1314 发表于 2017-4-28 07:08
老师我想要的是只添周1到周5的日期和星期，
看看能实现吗？

你那里是怎么回事？

我这里完全没有你的情况，一切运行正常。

发一个正常结果的附件给你看看。

代码修改.rar (125.11 KB, 下载次数: 1)

尼古丁vs乙醇 · 发表于 2017-4-28 13:13

本帖最后由尼古丁vs乙醇于 2017-4-28 13:24 编辑

<div class="blockcode"><blockquote>Sub 日期()
Dim d, w, dd, n
n = 2
Date_Data = Date
'默认当天时间为开始时间:Date_Data = Date
'如果指定时间则：例如， Date_Data =#12/31/92# 表示 1992 年 12 月 31 日
For d = 0 To 80
dd = Date_Data + d
w = Weekday(dd)
If w < 7 And w > 1 Then
Cells(n, 1) = Format(w, "[$-804]aaa;@")
Cells(n, 2) = dd
n = n + 1
End If
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

帮忙修改

最新热点 /1