为什么总是跨行输入数据？求解决

lggm2008

我调整了仓库管理软件程序以后，入库出库的数据总是跨行输入。求高手解决
这个软件是这样要求
1. 用入库单输入内容，内容在入库数据和库存里都出现，且库存的总金额实时更新。
2.出库单数据除出库数量以外均调用入库的信息，出库的信息在出库数据和库存里均出现，库存同时计算得到库存的数值

[ 本帖最后由 lggm2008 于 2010-8-18 16:26 编辑 ]

lggm2008

跨行输入就是第一组入库数据在第一行显示，第二组入库数据却在第六行显示，大概就是这样。宏命令如下

Sub queding()
  Application.ScreenUpdating = False '关闭屏幕更新
  Application.DisplayAlerts = False
  Application.Calculation = xlCalculationManual
  
  Dim irowa As Integer
  irowa = Sheet8.[a65536].End(xlUp).Row
  With Sheet8
  .Cells(irowa + 1, 13) = Cells(3, 7).Value
  .Cells(irowa + 1, 14) = Cells(3, 10).Value
  .Cells(irowa + 1, 15) = Cells(13, 4).Value
  .Cells(irowa + 1, 16) = Cells(13, 9).Value
  For tq = 5 To 10
  irowa = irowa + 1
  .Range("a" & irowa & ":i" & irowa) = Range("b" & tq & ":j" & tq).Value
  .Range("j" & irowa & ":k" & irowa) = Range("o" & tq & ":p" & tq).Value
  .Range("l" & irowa & ":l" & irowa) = Range("k" & tq & ":k" & tq).Value
  Next
  End With
  
  Range("b5:b10") = ""
  Range("f5:g10") = ""
  Range("i5:i10") = ""
  Range("k5:k10") = ""

  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True

  
End Sub

lggm2008

哪位高手帮忙？解决问题的我可以请吃饭

hqswww

用VB实现俺没办法呀 在这方面我还是"白痴"  我就只会一点函数  正在向VB版块学习

youliqi

由于时间关系，先帮你解决了入库单的问题
出库单的问题你自己可以参照上述办法处理
0814最新仓库管理系统.rar (164.58 KB, 下载次数: 15)

2010-8-16 21:59 上传

点击文件名下载附件

zhc19620430

实际你可以参照这个去做，我认为做得不错。哈哈.....

LangQueS

既然格式相同，入库单、出库单，做一个就可以了吧

zpy2

重新传个附件，调试第一行入0 0817最新仓库管理系统_zpy2.zip

secowu

只是个空壳,楼主应该补充些物料名称等等,这样容易举例

secowu

个人比较倾向于重新设计下表格,这样计算都方便些

1. 
   
2. 商品代码        商品名称        规格        单位        操作类型        操作数量        操作日期
   

复制代码