新表格依每天日期产生

cmo9020

请教大神教一下小弟
产生新表格是依每天日期产生
问题来了,在日期后面 "mmdd-" 要加上ABCD

-----------------------
2天AB、2天CD~这样一直365天排序下去产生新报表
这样子有办法产生新表单吗？请大神导师们指导，谢谢



Sub test()

Dim ncount
ncount = Sheets.Count
    Range("A3:w300").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
ActiveSheet.Name = Format(Now() - 8 / 24, "mmdd-") & ncount
    ActiveSheet.Paste
Application.ScreenUpdating = True

End Sub

fjmxwrs

猜了半天，有点明白你的意思了，就是想生成这个是工作表名？你是要生成365个工作表，并按你说的命名工作表吗？

YZC51

请参考
Sub test()
Dim ncount
ncount = Sheets.Count
    Range("A3:w300").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    xh = Chr(((Now() - 31 / 24) * 2 Mod 26) + 65)
    ActiveSheet.Name = Format(Now() - 7 / 24, "mmdd-") & xh 'ncount
    ActiveSheet.Paste
    Application.ScreenUpdating = True
End Sub

蓝桥玄霜

时间的例子：

cmo9020

谢谢大神们的帮助指导~

YZC51

cmo9020 发表于 2020-3-12 22:35
谢谢大神们的帮助指导~

不客气！优化下
Sub test()
    Dim ncount
    ncount = Sheets.Count
    Range("A3:w300").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Format(Now() - 7 / 24, "mmdd-") & yy1y() & ncount
    ActiveSheet.Paste
    Application.ScreenUpdating = True

End Sub

Public Function yy1y()
    x = Now - 7 / 24
    y = -Int(-(x - Int(x)) * 2)
    Z = Int(x) - (Int(x) Mod 2)
    z1 = (y + Z) Mod 4
    yy1y = Chr(z1 + 65)
End Function

cmo9020

[quote]YZC51 发表于 2020-3-12 23:26
不客气！优化下

YZC51

cmo9020 发表于 2020-3-14 16:03
请问一下,他的ABCD是如何控制的?
我要变成
3/14 08:00~20:00 是A

头天19点~今天早晨7点之前A,7~19点位B

YZC51

试试
'    x = Now - 7 / 24
修改为
    x = Now - 1 / 3

cmo9020

YZC51 发表于 2020-3-14 16:28
试试
'    x = Now - 7 / 24
修改为

请问一下,不能耶