Office中国论坛/Access中国论坛

标题: 大家过来帮忙看看这个送货单里公式怎么修改。 [打印本页]

作者: 大理段誉 时间: 2008-10-16 08:38
标题: 大家过来帮忙看看这个送货单里公式怎么修改。
大家过来帮忙看看这个送货单里公式怎么修改。主要是送货单号哪里，想法是如果是同一天的，有多单的，那个送货单号在新增一个工作表自动加一，如一天只有一张单，最后二位数就是01。
[attach]32674[/attach]

[ 本帖最后由大理段誉于 2008-10-16 08:43 编辑 ]

作者: 大理段誉 时间: 2008-10-16 23:08
没人知道吗，还是我表达得不够清楚。

作者: citie 时间: 2008-10-17 18:36
先回个贴挣2个银子下来看看

作者: citie 时间: 2008-10-17 18:49
文件打不开

作者: 大理段誉 时间: 2008-10-18 09:08

原帖由 citie 于 2008-10-17 18:49 发表
文件打不开

应该不会吧，刚下载了，可以打开的啊。

作者: pureshadow 时间: 2008-10-18 12:26
这题用函数......至少我做不到自动增加.....
SO 我用代码
Sub Ma()
Dim i As Long, m As Long
i = Sheets.Count
m = Right(Sheets(i).Range("f6"), 2)
Sheets(i).Copy After:=Sheets(i)
Sheets(i + 1).Range("f5") = Date
If Sheets(i).Range("f5") = Sheets(i + 1).Range("f5") Then
Sheets(i + 1).Range("f6") = Format(Range("f5"), "YYMMDD") & Format(m + 1, "00")
Else
Sheets(i + 1).Range("f6") = Format(Range("f5"), "YYMMDD") & "01"
End If
End Sub

作者: borly 时间: 2008-10-18 15:53
定义两个名称,要启用宏.
新表必须在旧表右边且同日期的表应相连.
试做了个:

作者: 大理段誉 时间: 2008-10-19 08:45
谢谢版主及楼上的朋友，你们的热情让我感动，borly刚试了下你的，基本可以满足要求，再次感谢你们。

作者: joyark 时间: 2011-6-23 01:46
谢谢版主及楼上的朋友

作者: 刘青梅 时间: 2016-12-4 21:37
谢谢版主

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)