设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 4033|回复: 9
打印 上一主题 下一主题

[VBA编程/宏] 大家过来帮忙看看这个送货单里公式怎么修改。

[复制链接]
跳转到指定楼层
1#
发表于 2008-10-16 08:38:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
大家过来帮忙看看这个送货单里公式怎么修改。主要是送货单号哪里,想法是如果是同一天的,有多单的,那个送货单号在新增一个工作表自动加一,如一天只有一张单,最后二位数就是01。


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2008-10-16 23:08:22 | 只看该作者
没人知道吗,还是我表达得不够清楚。
3#
发表于 2008-10-17 18:36:43 | 只看该作者
先回个贴挣2个银子 下来看看
4#
发表于 2008-10-17 18:49:45 | 只看该作者
文件打不开
5#
 楼主| 发表于 2008-10-18 09:08:49 | 只看该作者
原帖由 citie 于 2008-10-17 18:49 发表
文件打不开


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

点击这里给我发消息

6#
发表于 2008-10-18 12:26:28 | 只看该作者
这题用函数......至少我做不到自动增加.....
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
7#
发表于 2008-10-18 15:53:36 | 只看该作者
定义两个名称,要启用宏.
新表必须在旧表右边且同日期的表应相连.
试做了个:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
8#
 楼主| 发表于 2008-10-19 08:45:33 | 只看该作者
谢谢版主及楼上的朋友,你们的热情让我感动,borly刚试了下你的,基本可以满足要求,再次感谢你们。
9#
发表于 2011-6-23 01:46:51 | 只看该作者
谢谢版主及楼上的朋友

点击这里给我发消息

10#
发表于 2016-12-4 21:37:42 | 只看该作者
谢谢版主
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 02:01 , Processed in 0.108228 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表