[原创][原创]鞋业进销存带颜色尺码选择，单行输入希望能帮完善成多行并行输入。

aaa9906

<p><font color="#f70909" size="7">只支持单行录入，希望高手能帮忙完善成多行同时过账。</font></p><p></p><p>psw=1</p><p>qq4 6 7 0 1 2 8 7,</p><p>&nbsp;</p><p></p><p></p><p></p><p>付关键代码：</p><p>If Range("p3").Value = "商品入库单" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; Cells(j, k).Value = Cells(j, k).Value + Cells(5, 9).Value</p><p>&nbsp;&nbsp;&nbsp;&nbsp; Call ad_data<br/>&nbsp;&nbsp;&nbsp;&nbsp; Cells(5, 9).Value = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "入库单已经过帐~!请进行下一笔.", vbOKOnly<br/>Else</p><p>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If Cells(5, 5).Value &lt; Cells(5, 9).Value Then<br/>&nbsp;&nbsp;&nbsp; MsgBox "步贤提示：库存不足！！！请输入小于库存的数量，并及时补货！", vbOKOnly<br/>&nbsp;&nbsp;&nbsp; Range("i5").Select<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Exit Sub<br/>Else<br/>&nbsp;&nbsp;&nbsp; If Range("p3").Value = "商品销售单" Then<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Cells(j, k).Value = Cells(j, k).Value - Cells(5, 9).Value</p><p>&nbsp;&nbsp; <br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Call ad_dataxs<br/>&nbsp;&nbsp;&nbsp; Cells(5, 9).Value = ""<br/>&nbsp;&nbsp;&nbsp; MsgBox "销售单已经过帐~!请进行下一笔.", vbOKOnly<br/>Else</p><p>If Range("p3").Value = "商品退货单" Then<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Cells(j, k).Value = Cells(j, k).Value - Cells(5, 9).Value</p><p>&nbsp;&nbsp; <br/>&nbsp; <br/>&nbsp;&nbsp;&nbsp; Call ad_datath<br/>&nbsp;&nbsp;&nbsp; Cells(5, 9).Value = ""<br/>&nbsp;&nbsp;&nbsp; MsgBox "退货单已经过帐~!请进行下一笔.", vbOKOnly<br/>&nbsp;&nbsp;&nbsp; <br/>End If<br/>End If<br/>End If<br/>End If<br/>&nbsp;&nbsp; If Cells(j, k).Value = 0 Then<br/>&nbsp;&nbsp; Cells(j, k).Clear<br/>&nbsp;&nbsp; End If</p><p></p><p>&nbsp;&nbsp;&nbsp; End Sub<br/>希望能多做几个像第五行那样几行能够同时过账。</p><p>第五行填入 货品 颜色&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 尺码</p><p><table cellspacing="0" cellpadding="0" width="266" border="0" style="WIDTH: 200pt; BORDER-COLLAPSE: collapse;"><colgroup><col width="92" style="WIDTH: 69pt; mso-width-source: userset; mso-width-alt: 2944;"></col><col></col><col width="108" style="WIDTH: 81pt; mso-width-source: userset; mso-width-alt: 3456;"></col><col></col><col span="2" width="33" style="WIDTH: 25pt; mso-width-source: userset; mso-width-alt: 1056;"></col><col></col></colgroup><tbody><tr height="60" style="HEIGHT: 45pt; mso-height-source: userset;"><td class="xl67" width="92" height="60" style="BORDER-RIGHT: blue 2pt double; BORDER-TOP: #ece9d8; BORDER-LEFT: blue 2pt double; WIDTH: 69pt; BORDER-BOTTOM: blue 2pt double; HEIGHT: 45pt; BACKGROUND-COLOR: transparent;"><font face="楷体_GB2312" color="#ff0000" size="5"><strong>try</strong></font></td><td class="xl66" width="108" style="BORDER-RIGHT: blue 2pt double; BORDER-TOP: #ece9d8; BORDER-LEFT: blue; WIDTH: 81pt; BORDER-BOTTOM: blue 2pt double; BACKGROUND-COLOR: transparent;"><strong><font face="楷体_GB2312" color="#ff0000" size="5">黑色</font></strong></td><td class="xl68" width="66" colspan="2" style="BORDER-RIGHT: blue 2pt double; BORDER-TOP: #ece9d8; BORDER-LEFT: blue; WIDTH: 50pt; BORDER-BOTTOM: blue 2pt double; BACKGROUND-COLOR: transparent;"><strong><font face="楷体_GB2312" color="#ff0000" size="5">38</font></strong></td></tr></tbody></table></p><p>能够自动出来库存。</p><p>然后填入数量过账即可。</p><p>但多行并行执行以上代码好像太困难<br/></p>

[此贴子已经被作者于2009-11-1 11:02:29编辑过]

雨狐

<p>进销存，我喜欢[em01]</p>

tyghgood1978

<p>我要学着怎样做</p>

aaa9906

<p>由于商品 ，颜色 ，尺码 三个条件定位到某一单元格，所以好像多行执行有点麻烦。也就是说现在</p><p>只能一双一双的卖鞋。希望高手</p><p>给点建议。代码密码1</p>

dengyf

代码比较多,最后把你的问题分解出来,简单一点,看的人好理解.

凤凰天

如果一下子卖200对鞋，不是要狂K200次？那我不如直接出个EX表？