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

jx1680000 · 发表于 2007-4-13 11:56

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用pifeng在2007-4-13 1:13:22的发言： 謝謝您細心的指導，但是在單據錄入的代碼"For k = 5 To z - 2"有一個問題存在，就是錄入的數據不足5行時，將會少一行數據顯示在入庫或出庫中，因為此代碼考慮到合計那一行，沒有考慮數據沒有錄滿的問題，不知應如何加入判斷？</div>真的是很惭愧， 此表是从我单位的仓库表里截取出来的， 由于我的粗心，没有把表处理好， 原表中因有其它一些内容在其中， 我取过来的时候直接就是COPY了一下代码， 修改了一下，没有注意到这个问题。 对您学习的精神，认真的态度表示敬佩， 向您学习， 呵呵！ 给您加金币！

jx1680000 · 发表于 2007-4-13 11:44

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用pifeng在2007-4-13 1:13:22的发言： 謝謝您細心的指導，但是在單據錄入的代碼"For k = 5 To z - 2"有一個問題存在，就是錄入的數據不足5行時，將會少一行數據顯示在入庫或出庫中，因為此代碼考慮到合計那一行，沒有考慮數據沒有錄滿的問題，不知應如何加入判斷？</div>非常感谢您， 我为我工作中的失误向大家道歉， 这里是“For k = 5 To z - 1”， For k = 5 To z - 2的话会少录入一行， 这里还会有一个问题如果是5行满了的话， 会把合计录进去， 这个是这样的，把合计由B10格改成C10格 也就是说，始终让B10是空值，这样，合计 这一行不会录入进去了。  <img src="data/attachment/forum/dvbbs/2007-4/20074131144053575.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-13 12:21

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用wangchaowei在2007-4-12 17:23:24的发言： OK!,我就在大侠的指导下作一个.谢谢,你的鼓励![em23][em23][em24]</div> 我先上一个啊！

cai · 发表于 2007-4-13 22:16

[em17]<div style="MARGIN-TOP: 10px; FONT-SIZE: 9pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; WORD-WRAP: break-word;"><a href="http://www.excelpx.com/forum.php?mod=viewthread&tid=13644&replyID=63790&skin=1">多谢,己下载。</a></div>

cai · 发表于 2007-4-13 22:18

能否做个包含数量、金额的表呢！先谢了

楚楚的猫猫 · 发表于 2007-4-14 00:04

做得太好了，谢谢。。。

wangchaowei · 发表于 2007-4-14 00:16

请老师指点。附件（密码，123）是我在老师的指导下做的，请老师帮助。谢谢老师的无私奉献！致敬！对了，我在QQ里加了老师，望接纳。378517045

[此贴子已经被作者于2007-4-14 0:18:14编辑过]

yuhai0012 · 发表于 2007-4-14 14:02

太棒了![em01]

wangchaowei · 发表于 2007-4-13 22:46

谢谢老师！我作到“数据清空”时出现问题，需要指点：作好“数据清空”的按钮后，对按钮指定宏，然后对工作表加保护，但是加了保护后，我无法录入数据。这是什么原因？作好按钮的指定宏后，不加工作表的保护，可以输入数据，输入完，按“数据清空”按钮，全部清除，包括定义的单元格的公式都清除，请问这是什么地方出错了。附件在后面。谢谢老师的指点哈。

WLL7611 · 发表于 2007-4-14 15:26

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用jx1680000在2007-3-8 15:15:09的发言： Application.ScreenUpdating = False '这是关闭屏幕切换的命令 If Range("H4") = "入库" Then '这里是根据H4的内容决定数据的走向，是进入库还是出库。        x = 1     Do While Not (IsEmpty(Sheets("入库").Cells(x, 2).Value))         x = x + 1     Loop     '入库单的行数据统计，这是一个测量的情况，是以“入库”表的第 '二列为探测标准，目的是决定数据插入从那一行开始。要求是不为空值。 '有朋友用“range("b65536").end(xlup).row ”,这个不好啊，不建议使 '用，我在工作中遇过这样的麻烦，理由是会在筛选的情况下，不能正确 '统计已有行数，会覆盖原数据。         n = x     z = 5     With Sheets("单据录入")         Do While Not (IsEmpty(.Cells(z, 2).Value))             z = z + 1         Loop '这个是探测录入界面中可录入数据的行数，原理和上面的一样         For k = 5 To z - 2                 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)  '数量             x = x + 1         Next k     End With '这里是通过一个FOR...NEXT的循环把数据从录入界面向后表传递。     m = x - n     MsgBox "您已向“入库”中加入了" & m & "条记录，请在“入库”中进行确认！" end if后面的代码和前面的内容差不多，只是表名改了，不重复说了。 </div>请问老师上面的代码中： 1.Sheets("入库"). Cells(x, 1) = .Cells(2, 5) .Value))中的(x, 2)、(2, 5)代表什么？ 2.Sheets("入库"). Cells(x, 3) = .Cells(k, 5) .Value))中的(x, 3)、(k, 5)代表什么？

[此贴子已经被作者于2007-4-16 8:29:19编辑过]

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

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

回复：（wangchaowei）OK!,我就在大侠的指导下作一个....