新做的一个出入库管理

hanwei2020 · 发表于 2009-4-4 21:28

谢谢

surtees · 发表于 2009-4-6 15:29

谢谢分享！

钻石哥 · 发表于 2009-4-6 15:48

支持下

EXCEL-excel · 发表于 2009-4-7 12:54

能不能加入单价金额？

若璞 · 发表于 2009-4-7 16:02

谢谢分享，辛苦了

liuchunbo2009 · 发表于 2009-4-11 22:30

不道怎么样

lyish · 发表于 2009-4-11 22:43

谢谢

mars1028 · 发表于 2009-4-12 21:51

支持谢谢，很不错？

600898 · 发表于 2009-4-14 18:46

参考；了谢谢分享

hhp1598011 · 发表于 2009-4-15 00:16

Sub Inputtext()
Dim i As Integer
Dim b As Long
i = 10
b = 1
Sheets("数据").Select

      Do Until ActiveSheet.Cells(b, 3) = ""
      b = b + 1
      Loop

      Sheets("数据").Select
         Do Until Sheets("单据").Cells(i, 4) = ""
         Sheets("数据").Select
         ActiveSheet.Cells(b, 1) = Sheets("单据").Cells(5, 6)
         ActiveSheet.Cells(b, 2) = Sheets("单据").Cells(5, 4)
         ActiveSheet.Cells(b, 3) = Sheets("单据").Cells(i, 4)
         ActiveSheet.Cells(b, 4) = Sheets("单据").Cells(i, 5)
         ActiveSheet.Cells(b, 5) = Sheets("单据").Cells(i, 6)
         ActiveSheet.Cells(b, 6) = Sheets("单据").Cells(i, 7)
         ActiveSheet.Cells(b, 7) = Sheets("单据").Cells(i, 8)
         ActiveSheet.Cells(b, 8) = Sheets("单据").Cells(i, 9)
         ActiveSheet.Cells(b, 9) = Sheets("单据").Cells(5, 9)
         ActiveSheet.Cells(b, 10) = Sheets("单据").Cells(6, 4)
         ActiveSheet.Cells(b, 11) = Sheets("单据").Cells(6, 6)
         ActiveSheet.Cells(b, 12) = Sheets("单据").Cells(6, 9)
         ActiveSheet.Cells(b, 13) = Sheets("单据").Cells(7, 4)
         ActiveSheet.Cells(b, 14) = Sheets("单据").Cells(7, 6)
         ActiveSheet.Cells(b, 15) = Sheets("单据").Cells(7, 9)
         ActiveSheet.Cells(b, 16) = Sheets("单据").Cells(28, 4)
         ActiveSheet.Cells(b, 17) = Sheets("单据").Cells(28, 6)
         i = i + 1
         b = b + 1
      Loop


End Sub

这个超级好用但是好难懂啊？
非常感谢

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

[原创] 新做的一个出入库管理

下载学学

回复 1楼 77807273 的帖子