ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: 小二班

[求助] Excel如何保存出库单后自动生成明细表

[复制链接]

TA的精华主题

TA的得分主题

发表于 2021-7-7 10:34 | 显示全部楼层
小二班 发表于 2021-7-7 09:15
您好,报错是为什么呀
  1. Public Sub 保存()
  2.     Dim i As Integer, a(), n
  3.     Dim c As Range
  4.     With Sheet1
  5.         If .Range("K15").Value = 0 Then Exit Sub
  6.         For i = 6 To 14
  7.             If .Range("J" & i).Value <> 0 Then
  8.                 n = n + 1: ReDim Preserve a(1 To 9, 1 To n)
  9.                 a(1, n) = .Range("C4").Value    '客户
  10.                 a(2, n) = .Range("J4").Value    '时间
  11.                 a(3, n) = .Range("B" & i).Value '名称
  12.                 a(4, n) = .Range("C" & i).Value '款号
  13.                 a(5, n) = .Range("D" & i).Value '尺码
  14.                 a(6, n) = .Range("H" & i).Value '颜色
  15.                 a(7, n) = .Range("I" & i).Value '克重
  16.                 a(8, n) = .Range("J" & i).Value '总数量
  17.                 a(9, n) = .Range("K" & i).Value '净重(kg)
  18.             End If
  19.         Next
  20.     End With
  21.     Sheet2.Range("A" & Rows.Count).End(3).Offset(1, 0).Resize(n, 9) = _
  22.     WorksheetFunction.Transpose(a)
  23.     Sheet1.Range("A1:O18").PrintPreview
  24.     If MsgBox("是否清除当前记录?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
  25.     Sheet1.Range("B6:L14,N6:O14").Value = ""
  26. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-7-7 11:05 | 显示全部楼层
一指禅62 发表于 2021-7-7 10:31
检查代码抄错了没。

我又检查了一遍,没有抄错

TA的精华主题

TA的得分主题

发表于 2022-10-26 14:52 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-8-8 17:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-8-9 09:53 | 显示全部楼层
这个操作好神奇 啊!我看这个贴 子已经好久之前的了,现在还能咨询吗

TA的精华主题

TA的得分主题

发表于 2023-8-9 09:54 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个是出库单的,如果加上一个入库单的活,这个代码要怎么增加吗

TA的精华主题

TA的得分主题

发表于 2024-3-15 06:47 | 显示全部楼层
jiangfeng_kong 发表于 2023-8-9 09:54
这个是出库单的,如果加上一个入库单的活,这个代码要怎么增加吗


https://club.excelhome.net/thread-769147-1-1.html?_dsign=b2abdb4e这个网址的“进销存V2”文件就能解你的问题,需根据实际情况做修改。还是excelhome好。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 00:58 , Processed in 0.048949 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表