|
请教大神教一下小弟
产生新工作表,依每天日期产生
问题来了,在日期后面 "mmdd-" 要加上ABCD
-----------------------
2天AC、2天BD~这样一直365天排序下去产生新报表
这样子有办法产生新表单吗?请大神导师们指导,谢谢
3/14 08:00~20:00 是A
3/14 20:00~08:00 是C
3/15 08:00~20:00 是A
3/15 20:00~08:00 是C
3/16 08:00~20:00 是B
3/16 20:00~08:00 是D
3/17 08:00~20:00 是B
3/17 20:00~08:00 是D
3/18 08:00~20:00 是A
3/18 20:00~08:00 是C
3/19 08:00~20:00 是A
3/19 20:00~08:00 是C
3/20 08:00~20:00 是B
3/20 20:00~08:00 是D
3/21 08:00~20:00 是B
3/21 20:00~08:00 是D
TEST.rar
(11.37 KB, 下载次数: 5)
2天2天循环排下去....四班两运转:规律是 (A是08:00-20:00 C是20:00-08:00 B是08:00-20:00 D是20:00-08:00)循环排下去,
Sub test()
Dim ncount
ncount = Sheets.Count
Range("A3:w300").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = Format(Now() - 8 / 24, "mmdd-") & yy1y() & ncount
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub
Public Function yy1y()
x = Now - 8 / 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
|
|