作者o1o3o1o31030 (主席)
看板Office
标题[算表] VBA执行问题
时间Mon Jul 17 18:39:11 2017
软体:EXCEL
版本:2013
各位版大好~
我写了一个销货单汇入清单的VB
奇怪的是
我从编译器内案执行一切顺利
但是在表单建立按钮连接VBA程式後
一直出现执行错误:型态不符合
重点是我用msgbox回变数型态都是double
第一次遇到这样
不知道有没有人知道甚麽
http://imgur.com/a/D1IU7
http://imgur.com/a/D1IU7
感谢
原档案
https://drive.google.com/file/d/0B5FM7x4Wx7AjcGhvWEJDSGFQT1k/view?usp=sharing
原文如下
Public Sub 汇入清单()
Application.ScreenUpdating = False
Dim r, m, i As Integer
r = Sheets("清单").Cells(66666, 2).End(xlUp).Row
m = WorksheetFunction.CountA(Sheets("销货单").Range("B6:B17")) + 1
'填入对应数量
With Sheets("清单")
.Unprotect
.Range(.Cells(r + 1, 1), .Cells(r + m, 1)) = Range("G1").Value - 1
.Range(.Cells(r + 1, 2), .Cells(r + m, 2)) = Range("C1")
.Range(.Cells(r + 1, 3), .Cells(r + m, 3)) = Range("C2")
.Range(.Cells(r + 1, 4), .Cells(r + m, 4)) = Range("C3")
Range(Cells(6, 2), Cells(6 + m - 2, 7)).Copy
.Range(.Cells(r + 1, 5), .Cells(r + m - 3, 10)).PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Cells(r + m, 5) = "折让"
On Error GoTo XX
.Cells(r + m, 9).Value = -Cells(3, 7)
XX: MsgBox TypeName(.Cells(r + m, 9).Value) & TypeName(-Cells(3, 7))
.Cells(r + m, 11) = Cells(2, 7)
With .Range(.Cells(r + m, 1), .Cells(r + m, 11)).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'.EnableSelection = xlNoSelection
End With
Application.ScreenUpdating = True
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.136.32.164
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1500287953.A.428.html
※ 编辑: o1o3o1o31030 (114.136.32.164), 07/17/2017 18:42:51
1F：→ soyoso: 测试原文的巨集码配合表单建立按钮连接，并无出现该错误 07/17 19:06
3F：→ soyoso: 提供档案应会比较清楚 07/17 19:06
4F：→ o1o3o1o31030: S大，你如果连续操作两次是否错误? 07/17 19:27
5F：→ o1o3o1o31030: S大我继站内给你 07/17 19:28
6F：→ soyoso: 操作两次上有出现"这里已经有资料，您要取代这笔资料吗？" 07/17 19:34
7F：→ soyoso: 的对话框，并无出现该错误 07/17 19:34
8F：→ o1o3o1o31030: 可能跟清单那页的设计有关，我站内S大了 07/17 19:36
9F：→ soyoso: 档案方面的连结可分享於该篇内，不限我回覆原po 07/17 19:39
※ 编辑: o1o3o1o31030 (114.136.32.164), 07/17/2017 19:45:36
10F：→ o1o3o1o31030: 档案如内文! 感谢~ 07/17 19:45
11F：→ soyoso: -cells(3,7) 改为 -sheets("销货单").cells(3,7) 07/17 19:47
12F：→ soyoso: 小计部分同上加上sheets的部分 07/17 19:48
13F：→ o1o3o1o31030: 好了 感谢S大! 但是为何会这样，明明VB里直接按都行 07/17 20:02
14F：→ o1o3o1o31030: 难道在编译器里执行和连接按钮执行监试有差异的?! 07/17 20:04