作者criky (阿伟)
看板Visual_Basic
标题[VBA ] function问题
时间Mon May 23 12:16:15 2011
大家好，问一个应该是基本但是我不懂的问题
我在excel的vba写了一个简单的几行程式如下:
function right_r(a, x, y)
Sheets("record").Cells(1, 1).Copy
Cells(6, 50).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("record").Cells(a, 2).Value = Cells(6, 50).Value
Cells(x, y).Select
End function
然後我以为执行是打
right_r(1,2,3)
^^^^^^ 程式会变动的3个值
可是就有错误讯息
vba是初学者，想用function来简化程式码，
不过不知道怎麽做，拜托知道的前辈回答一下，谢谢
另外类似的问题，
如果变数有的是字串，有的是数字，可以打在一起吗？
例如呼叫的时候是
wrong_r=(X1,B1,16,14,6)
谢谢回答
错误讯息如下：
输入 right_r(1,2,3) => 整个公式出现红字 编译错误，必须是： :=
输入 right_r=(1,2,3)=> 红字游标指在第1个逗号 编译错误，必须是： :)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.133.13.138
1F：推 ClubT:应该是用sub不是用function 05/23 12:34
2F：→ criky:我有试过用sub，结果一样 @@" 请问要怎麽修改 05/23 12:40
※ 编辑: criky 来自: 140.133.13.138 (05/23 12:43)
3F：推 ClubT:错误讯息是啥? 05/23 12:48
※ 编辑: criky 来自: 140.133.13.138 (05/23 12:57)
4F：→ twtimbow: call right_r(1,2,3) 05/23 13:41
5F：→ criky:原来是要call 啊 >"< 谢谢 05/23 13:46
6F：推 A1pha:编译错误，必须是： :) 他的意思是：你必须要微笑以对。 05/30 06:35