绝对拼装 仓库管理Excel2010控制台

wkbu

如果在其他电脑上运行正常，可能是我的系统有问题？

ROCK@

楼主辛苦，学学习习

nawong

原帖由 FXSHENG 于 2010-3-17 16:26 发表
测试问题:
用“入库打印”生成“入库单”点“保存”可以继续，
而用“出库打印”生成“出库单”点“保存”却不能继续
出现"不能保存"的画面：
但当清除选中区域的内容后点“保存”可以继续，请老师帮忙看看！

  Dim rowi As Integer
  rowi = Sheet5.[a65536].End(xlUp).Row
  With Sheet5
  For tq = 10 To 15
'//// If Sheet1.Cells(tq, 2) = "" Then Exit For
   If Sheet1.Cells(tq, 3) = "" Then Exit For

  .Cells(rowi + 1, 1) = Cells(5, 3).value
  .Cells(rowi + 1, 2) = Cells(5, 8).value
  .Cells(rowi + 1, 3) = Cells(6, 3).value
  .Cells(rowi + 1, 4) = Cells(6, 8).value
  .Cells(rowi + 1, 5) = Cells(7, 3).value
  .Cells(rowi + 1, 6) = Cells(7, 8).value
  .Cells(rowi + 1, 17) = Cells(8, 3).value
  .Cells(rowi + 1, 18) = Cells(18, 8).value
  rowi = rowi + 1
  
  .Range("g" & rowi & ":n" & rowi) = Range("b" & tq & ":i" & tq).value
  .Cells(rowi, 15) = Cells(tq, 17)
  .Cells(rowi, 16) = Cells(tq, 6) * Cells(tq, 17)
  
  Next
  End With

FXSHENG

非常感谢！nawong老师。代码已解决14楼问题：
“10年编程经验,专做EXCEL二次开发”出手不凡！

ying930

楼主，如果我的产品数量是小数点后要保留3位数的怎么办，单价金额我不需要的有作如何更改啊？

FXSHENG

原帖由 ying930 于 2010-3-24 12:44 发表
楼主，如果我的产品数量是小数点后要保留3位数的怎么办，单价金额我不需要的有作如何更改啊？

目前产品数量的小数点就可以保留3位数
"单价金额我不需要"不太明白您的意思.

[ 本帖最后由 FXSHENG 于 2010-3-24 13:25 编辑 ]

ying930

如图所示，我改对那些做修改啊，VBA我不太懂

FXSHENG

所谓牵一发而动全身，按目前的框架很难满足您的要求，这是其一，
其二VBA我也不懂，开篇我也提到，此作品是拼凑的，确切说是适合我用，然后与大家分享，有些功能还在探索中；

可以搜索一下有没有合适您的作品，53楼的nawong老师专项做此，不妨联系一下，祝顺利！

[ 本帖最后由 FXSHENG 于 2010-3-24 19:31 编辑 ]

JLF2003

不错，高水平！

lanxuejun

引用:
2007版
打开时总报错。
  
QQ截图未命名.jpg (29.02 KB)
2010-3-17 17:50
可能是少了时间控件
注册以下文件试一下看下