大家过来帮忙看看这个送货单里公式怎么修改。

大理段誉

大家过来帮忙看看这个送货单里公式怎么修改。主要是送货单号哪里，想法是如果是同一天的，有多单的，那个送货单号在新增一个工作表自动加一，如一天只有一张单，最后二位数就是01。


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

大理段誉

没人知道吗，还是我表达得不够清楚。

citie

先回个贴挣2个银子 下来看看

citie

文件打不开

大理段誉

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

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

pureshadow

这题用函数......至少我做不到自动增加.....
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

定义两个名称,要启用宏.
新表必须在旧表右边且同日期的表应相连.
试做了个:

大理段誉

谢谢版主及楼上的朋友，你们的热情让我感动，borly刚试了下你的，基本可以满足要求，再次感谢你们。

joyark

谢谢版主及楼上的朋友

刘青梅

谢谢版主