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

WLL7611 · 发表于 2007-4-9 15:47

请您将数据录入的宏也单独写下来并解释它的语法，行吗？正在学习中，如有不懂的再向老师请教．从你这增长了知识，今后还要多向你学习．耽误了你宝贵的休息时间！

[此贴子已经被作者于2007-4-9 16:13:47编辑过]

WLL7611 · 发表于 2007-4-9 18:55

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用jx1680000在2007-4-9 15:47:15的发言： <img src="data/attachment/forum/dvbbs/2007-4/20074915471285345.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="" /> </div>您能将数据录入的宏单独写下来并做个视频演示吗？谢谢！！

[此贴子已经被作者于2007-4-9 18:56:33编辑过]

jx1680000 · 发表于 2007-4-10 12:48

以下是引用WLL7611在2007-4-9 15:47:25的发言： 请您将数据录入的宏也单独写下来并解释它的语法，行吗？正在学习中，如有不懂的再向老师请教．从你这增长了知识，今后还要多向你学习．耽误了你宝贵的休息时间！ 关于录入数据的代码在23楼已有说明，如果你还觉的说的不细的话，呵呵，也只有再说一遍了。<hr/>Application.ScreenUpdating = False '这是关闭屏幕切换的命令 If Range("H4") = "入库" Then '这里是根据H4的内容决定数据的走向，是进入库还是出库。如果是的话 '就进行下面的操作         x = 1     Do While Not (IsEmpty(Sheets("入库").Cells(x, 2).Value))  'do while 是一个当满足什么条件时进入循环，WHILE后面跟条件  '这里通过一个NOT反过来判断,也就是说只要"入库"表中的第二列  '不是空值就满足循环条件.  'ISEMPTY是一个判断是否是空值的命令.         x = x + 1  '这个X是关键,是一个累加器,也是可以探测第2列长度的原因.  '这里有一个连续赋值的过程,可能难理解一些     Loop '用“range("b65536").end(xlup).row ”在筛选的情况下，不能正确 '统计已有行数，会覆盖原数据。     n = x '这里把统计出的（入库表）第二列长度X给另一个变量N，这是因为后面给提示 '信息时统计的需要         With Sheets("单据录入")         z = 5         Do While Not (IsEmpty(.Cells(z, 2).Value))             z = z + 1         Loop '这个是探测录入界面中可录入数据的行数，原理和上面的一样 '不过要说明的是,录入界面由于格式的关系,是从第5行开始计算的.         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        m = x - nm = x - n '这里就是对录入了多少行数据进行一个统计 MsgBox "您已向“入库”中加入了" & m & "条记录，请在“入库”中进行确认！" end if<hr/><hr/>后面的代码和前面的内容差不多，只是表名改了，不重复说了。你说的要完整的代码,这个在一楼的文件中是有代码的.再有，你上传的文件我看了，不谈录入界面和宏命令，SUMIF求和没有做好，你再试一试，应是根据产品编码进行统计求和，而不根据入库单号。两个条件格式做的很好，达到要求了。

WLL7611 · 发表于 2007-4-10 19:07

老师帮帮忙！！！！谢谢！！！

[此贴子已经被作者于2007-4-11 17:17:59编辑过]

wangchaowei · 发表于 2007-4-12 14:12

先谢谢了!我想在增加2列,其中单价手工输入,金额自动生成,在单据录入完成后,希望在入库,出库,汇总表里能自动生成金额.谢谢了.

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

录制数据录入代码时ＶＢ编辑器命令、指定宏命令都为灰色，不出现输入代码的界面？请老师帮我指正表格中的错误，谢谢！！<hr/><hr/><ul><li>关于宏代码和控件按钮联接执行宏命令。</li></ul>这里的宏不是录入的，是需要手输入的。当然你也可以 随便录入一个宏，然后在VBE编辑器中去更改，变成你需要的。在你上传的文件中没宏代码在后面，这样如何能建立联系。您的EXCEL版面的控制能力，是有一定基础的，现在也做的 不错，你的函数运用能力也看的出不错，VBA可能从来没接触过。<ul><li>关于版面中存在的一些问题</li></ul> 1）如果设置的背景色是深色，那么字体色是浅色，反差大了后 才会醒目。  2）控件按钮也是可以COPY的，你可以做好一个进行属性设定后 进行复制，这样的好处是，大小一样，而且也不需要一个一个去调整它们的属性了，一次就可以到位了。  3）象有下拉键的地方，可以再进行一些外观上的修定，例如：字体 大一些，改在有三维效果的边框，另外有提示语出来等等，主要是让使用者一看就明了。当然,美观也是我们追求的目标。 <ul><li>建议 </li></ul>您的学习效果很好，要继续努力，在VBA上面加强学习，其实这个东西不需要了解很多，只要在工作中够用就好。而且一但用好了，那就是“如虎添翼”了。

wangchaowei · 发表于 2007-4-12 14:31

谢谢.我想增加点项目,请大侠帮忙.谢谢,问题在附件里.主要是想增加金额.

jx1680000 · 发表于 2007-4-12 14:48

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用wangchaowei在2007-4-12 14:31:41的发言： 谢谢.我想增加点项目,请大侠帮忙.谢谢,问题在附件里.主要是想增加金额. </div>这样！ 你自己来做一做，遇到不懂的就问， 我给你做一个可以，但如果你以后又要加什么，或做什么调整， 再就是在实际工作中出现了什么问题， 如果你不能对这个表有所驾驭，你会用的很累的， 我一直有一句话：用的不好，不如不用， 工作不是开玩笑的事，出不得一点差错的。 你真正的吃透了它，你才可能随心所欲，形式是可以多样，去应对那些 不同企业不格式的要求。 我给个折中的方法。 如果你要学好，一定要自己动手做， 过几天我再上传我的，我们来碰一碰，再来相互学习好吗？

pifeng · 发表于 2007-4-13 01:13

謝謝您細心的指導，但是在單據錄入的代碼"For k = 5 To z - 2"有一個問題存在，就是錄入的數據不足5行時，將會少一行數據顯示在入庫或出庫中，因為此代碼考慮到合計那一行，沒有考慮數據沒有錄滿的問題，不知應如何加入判斷？

wangchaowei · 发表于 2007-4-12 17:23

OK!,我就在大侠的指导下作一个.谢谢,你的鼓励![em23][em23][em24]

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

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

回复：（WLL7611）[upload=rar]viewFile.asp?ID=10179...