[已解决]老师看能再改改吗

我叫冰吗 · 发表于 2014-8-24 22:25

问题一、“出库打印模板”表按保存以后想删除上个店记录时不让删，出现对话框让撤销保护，把保护撤销后再删可就把单元格公式就删除掉了。
问题二、表格里的单价一般都不会改变，偶尔店里搞活动才变，是否在基础资料表里填写单价数，根据条形码自动上去，搞活动变单价时也可改。

最佳答案

zjdh

2014-8-25 09:55

借用8楼附件（修改，增添）

打印表.rar (16.97 KB, 下载次数: 4)

十五的月亮 · 发表于 2014-8-24 22:52

本帖最后由十五的月亮于 2014-8-24 23:03 编辑

你只要删除条码这列就行

十五的月亮 · 发表于 2014-8-24 23:19

自己加保护，看看带颜色的。

su45 · 发表于 2014-8-24 23:37

Sub dj_save()
Dim r, r1, r2 As Long
r = 3: r2 = 3
With Sheets("出库打印模板")
Do While .Cells(r, "B") <> ""
r = r + 1
If .Cells(r, "F") <> "" Then r2 = r2 + 1
If r = 19 Then Exit Do
Loop
End With
' r = Sheets("出库打印模板").Range("B19").End(xlUp).Row - 3
' r2 = Sheets("出库打印模板").Range("F19").End(xlUp).Row - 3
If r = 3 Or r <> r2 Then
MsgBox "单据主要区域未填齐！"
Exit Sub
End If
With Sheets("全部出货明细")
r1 = .Range("b65536").End(xlUp).Row + 1
.Cells(r1, 2).Resize(r - 3, 1) = Range("B2")
.Cells(r1, 3).Resize(r - 3, 1) = Range("B4").Resize(r - 3, 1).Value
.Cells(r1, 4).Resize(r - 3, 1) = Range("C4").Resize(r - 3, 1).Value '表中的的第5列取单据表中的B4中的值,下同
.Cells(r1, 5).Resize(r - 3, 1) = Range("D4").Resize(r - 3, 1).Value
.Cells(r1, 6).Resize(r - 3, 1) = Range("E4").Resize(r - 3, 1).Value
.Cells(r1, 7).Resize(r - 3, 1) = Range("F4").Resize(r - 3, 1).Value
.Cells(r1, 8).Resize(r - 3, 1) = Range("G4").Resize(r - 3, 1).Value
.Cells(r1, 9).Resize(r - 3, 1) = Range("E2")
MsgBox "单据保存成功！"
End With
Cells(4, "B").Resize(16, 1).ClearContents
Cells(4, "E").Resize(16, 2).ClearContents
End Sub

复制代码

su45 · 发表于 2014-8-24 23:39

说明下，
r = Sheets("出库打印模板").Range("B19").End(xlUp).Row - 3

在你的表中是不能用的。试想下，当4~19行都填满了时，这句代码得到要不是19，而是-1！

我叫冰吗 · 发表于 2014-8-25 01:20

我又在打印模板表中加入几行，我点保存时出现“单据主要数据未填齐”请老师帮我看看谢了

我叫冰吗 · 发表于 2014-8-25 01:25

su45 发表于 2014-8-24 23:37

不让复制

su45 · 发表于 2014-8-25 09:19

打印表.zip (20.28 KB, 下载次数: 2)

zjdh · 发表于 2014-8-25 09:55

借用8楼附件（修改，增添）

打印表.rar (16.97 KB, 下载次数: 4)

zyouong · 发表于 2014-8-25 10:02

保护工作表就是防止误删单元格中的公式的，如果删除，下次就需要手工输入
单据未填齐，是为了防止单据填写不全也能保存，告成明细表数据不全。

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