如何设定变动标题栏？

ljxlmq · 发表于 2005-7-19 09:43

CILPL8EV.rar (3.52 KB, 下载次数: 79)

“发货通知单”是根据“销售清单”做的，“发货通知单”中1-7行为标题栏，现在要求：

①标题栏中的“项目名称”、“收货单位”、“发货日期”能够自动取左边三栏的数据；

②标题栏中的“编号”设定为“XC＋年＋月＋顺序号（如XC200201001）”，根据发货日期的年月；

③每个项目打完后，自动换页。（打印时把前三列隐藏）

我现在不知道怎么处理，所以用最笨的办法，在每一个项目上加标题栏。请各位武林高手、大虾帮帮忙，谢谢！！！！

ljxlmq · 发表于 2005-7-19 11:25

没人知道吗？

ljxlmq · 发表于 2005-7-20 16:54

我不相信会没人知道[em06]

ljxlmq · 发表于 2005-7-29 10:52

我的问题真的有哪么难吗？

ljxlmq · 发表于 2005-8-17 08:14

???????????????

790830 · 发表于 2005-8-18 10:47

如果项目记录是单条或多条不连续得不到所要的结果

ljxlmq · 发表于 2005-9-20 12:36

谢谢龙兄弟，以后还得请多多指教！

VBA我还不太懂，有时间得抓紧学一学。

Long_III · 发表于 2005-8-18 11:59

单条的是有点问题，多条不连续是什么意思？能据个例子吗？我是一步一步循环的，当然要求格式是排好序的

.Cells(Imax + 8, 1).Resize(1, 5).Value = Cells(i, "d").Resize(1, 5).Value '赋值本行的5列数据到打印表里

这里的8改为7即可，我在7楼处更新，谢楼上的！

Long_III · 发表于 2005-8-17 10:20

帮你做了，附件中的代码已做了注释，由于比较长，就就不附代码了 A0rouYHi.rar (15.37 KB, 下载次数: 198)

在楼下的提醒下，已更新，请楼主验证！

[此贴子已经被作者于2005-8-18 12:00:06编辑过]

Long_III · 发表于 2005-8-17 09:06

兄台，不用急吗，之前没看到这个问题，一会我帮你做！

你也做无线通讯的啊，看到那些名称还真熟悉，呵呵

		自动登录	找回密码
密码			免费注册

龙三兄的程序有点问题