仓库进销存表[“EXCEL应用技巧班”版块培训教程]

aiqean · 发表于 2007-4-14 15:48

要慢慢消化啊

jx1680000 · 发表于 2007-4-16 08:51

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用cai在2007-4-13 22:18:22的发言： 能否做个包含数量、金额的表呢！先谢了</div>这个在92楼，已给出了数量、金额的表， 建议您先做一下，然后在对一对， 呵呵， 有什么好的方法记得和我说一下， 先谢了！

jx1680000 · 发表于 2007-4-16 09:01

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用wangchaowei在2007-4-13 22:46:47的发言： 谢谢老师！我作到“数据清空”时出现问题，需要指点：作好“数据清空”的按钮后，对按钮指定宏，然后对工作表加保护，但是加了保护后，我无法录入数据。这是什么原因？作好按钮的指定宏后，不加工作表的保护，可以输入数据，输入完，按“数据清空”按钮，全部清除，包括定义的单元格的公式都清除，请问这是什么地方出错了。附件在后面。谢谢老师的指点哈。 </div>您等一下，我正在给您写说明，我怕问题说不清，正在截图！

jx1680000 · 发表于 2007-4-16 09:27

版面设计  <ul><li>字体大小控制一下，物品明细和抬头要有区别，要不很难看。 </li><li> 金额用公式写出来，让它自动生成，“=数量*单价” </li><li> 抬头单元格底色和字体底色太接近了，不好看。</li></ul>关于清空的区域<ul><li>“Range("C2,G2,B5:B9,G5:G9").ClearContents”</li></ul>这是您定义的区域，<img src="data/attachment/forum/dvbbs/2007-4/20074169245454657.bmp" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />这里我用淡黑色把您的区域给标出来了，这里有二个问题，其一是，这个区域是不对的，其二是没有给这些区去除“锁定”，这个是您运行宏时报错的原因。

[此贴子已经被作者于2007-4-16 12:43:57编辑过]

jx1680000 · 发表于 2007-4-16 09:32

现在我假定我你选定的区域是正确的，我要让宏正常运行是这样的，<img src="data/attachment/forum/dvbbs/2007-4/20074169323099171.gif" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

jx1680000 · 发表于 2007-4-16 09:36

Sub 清空数据2()     If MsgBox("您将清空表单内的数据，请确认您的操作！", 64 + 4) = 6 Then         Range("C2,E2,B5:B9,E5:F9").ClearContents     End If End Sub<hr/>这个是正确的区域代码，

jx1680000 · 发表于 2007-4-16 09:39

这里还有一点没有考虑到，那就是“出库”“入库”那个单元格要去除“锁定”属性，要不又要报错了，（上面的我没改！）原因？呵呵，这个你想一想就明白了！

wgxfhi11 · 发表于 2007-4-16 10:23

[em01]非常感谢!

jx1680000 · 发表于 2007-4-16 10:03

<ul><li>抬头把字体颜色和单元格底色反差拉大一些，</li></ul>这样好看一些 <ul><li>注意一下“DATA”这个是我们已经定义好的区域，</li></ul>这个是在“进销存”工作表中的“A1：F9”这个区域，这个定义好以后公式向下拖动后，这个区域是不会变的。但是，你从C6格开始就改变了，你用了相对引用的区域，而这个区域是会随你公式拖动会改变的，您对“相对引用”“绝对引用”和“自定义区域”这三个知识点没有掌握好。<img src="data/attachment/forum/dvbbs/2007-4/20074161022432988.gif" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

jx1680000 · 发表于 2007-4-16 10:18

With Sheets("单据录入")         Do While Not (IsEmpty(.Cells(z, 2).Value))             z = z + 1         Loop         For k = 5 To z - 1                 Sheets("入库").Cells(x, 1) = .Cells(2, 5)  '入库单号码                 Sheets("入库").Cells(x, 2) = .Cells(2, 3) '入库日期                 Sheets("入库").Cells(x, 3) = .Cells(k, 2)  '物品代码                 Sheets("入库").Cells(x, 4) = .Cells(k, 3)  '物品名称                 Sheets("入库").Cells(x, 5) = .Cells(k, 4)  '规格                 Sheets("入库").Cells(x, 6) = .Cells(k, 5)  '数量                 Sheets("入库").Cells(x, 7) = .Cells(k, 7)  '金额             x = x + 1         Next k     End With<hr/>您提出的问题，代码中的CELLS（2，5），CELLS（K，2）等是代表什么？这里有一个知识点就是，“WITH”的用法，请注意一下，整个循环是在With Sheets("单据录入")。。。END  WITH控制之下的，如果你是引用这个表的内容直接用“.CeLL(行,列)”就可以了注意前面的“.”系统不会认错表的，要是引用这个表外的内容，那就要注明了，如“Sheets("入库").Cells(x, 1) = .Cells(2, 5)  '入库单号码”前面的Sheets("入库").Cells(x, 1)就一定要注明表名。

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

[技巧] 仓库进销存表[“EXCEL应用技巧班”版块培训教程]

回复“”wangchaowei”

回复“WLL7611”

回复“WLL7611”（2）