作者KOBEretire16 (不死kobe)
看板Office
标题[问题] Excel VBA range包cell且用变数
时间Tue Jan 1 14:39:51 2019
软体:Excel
版本:2013
各位强大的版友好还有2019新年快乐~~
目前小弟我想要将某些栏位用range来圈选
然後想将里面的内容复制到同一个档案但不同sheet中
以下为部分程式码
row, col 都是我传进去的参数
Range(Cells(row, col), Cells(row, col+4)).Select
Range("F11:J12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2").Select
Range("A1:E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
但在一开始选取那边就会出现
"应用程式或物件上错误"
请问我该怎麽修改呢?
先感谢各路大神帮忙了~
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 120.114.240.1
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1546324794.A.1EB.html
※ 编辑: KOBEretire16 (120.114.240.1), 01/01/2019 14:41:49
2F：→ soyoso: 如果巨集是写在工作表内而产生的话，可改写至模组 01/01 14:55
并不会有错误代码耶
https://imgur.com/I173lv9
※ 编辑: KOBEretire16 (120.114.240.1), 01/01/2019 15:02:53
3F：→ soyoso: 会产生该错误表示所选取的范围不在activate作用中或select 01/01 14:57
4F：→ soyoso: 选取中。因此如果不改以模组写的话，可於range.select上方 01/01 14:58
5F：→ soyoso: 加上worksheet.activate或select 01/01 14:59
6F：→ soyoso: 如加了还是产生该错误的话，则需在range.select前方加上 01/01 15:00
7F：→ soyoso: worksheets(工作表名称).range.select 01/01 15:01
如果在表单里面执行的话会有400的错误代码
https://imgur.com/YA7NR2y
※ 编辑: KOBEretire16 (120.114.240.1), 01/01/2019 15:11:09
8F：→ soyoso: 如果没错误代码的话，贴上全部巨集码，应会比较清楚 01/01 15:10
我放上去了，有稍微精简过
https://pastebin.com/igS6EpHC
※ 编辑: KOBEretire16 (120.114.240.1), 01/01/2019 15:22:27
9F：→ soyoso: 巨集放在那里执行的？thisworkbook？工作表？模组？ 01/01 15:29
10F：→ KOBEretire16: thisworkbook 01/01 15:32
11F：→ soyoso: Worksheet.Active.Range(Cells(col, mul .... 01/01 15:33
12F：→ soyoso: 是worksheets(工作表名称，如"1").activate或select 01/01 15:33
13F：→ soyoso: 下一行是range(cells(col,mul...) 01/01 15:33
14F：→ soyoso: 也可以是sheets("1").activate或select 01/01 15:34
15F：→ soyoso: KeepData传值mul的方面为0，0*5=0，cells栏方面并无该栏号 01/01 15:35
16F：→ soyoso: 如指的是a栏的话，要+1 01/01 15:35
18F：→ soyoso: 执行程序All并无产生错误 01/01 15:38
19F：→ soyoso: 因写於thisworkbook，回文提worksheet.activeate或select 01/01 15:39
20F：→ soyoso: 就视执行程序时所在的工作表，可写可不写 01/01 15:40
原来问题是出在传0进来...我一直没注意到真是抱歉!
※ 编辑: KOBEretire16 (120.114.240.1), 01/01/2019 15:52:35