作者wajolinhigh (casper)
看板Visual_Basic
标题[VBA ] 拜托各位帮小弟看一个蠢问题..
时间Fri Apr 6 00:39:29 2012
我因为论文需求最近开始接触VBA,
因此借了一本书来看,可是居然按照书上的范例
打出程式居然会出现错误,我看了老半天
看不出来有哪边跟书上打的不一样,可是
还是会出现错误,程式码如下 :
--------------------------------------
Sub 主要程序传值()
Dim A As String, B As String
A = 18
B = 19
[A1].Value = A
[A2].Value = B
来抓我 A, B
Worksheets("sheet1").Select
[C1].Value = A
[C2].Value = B
End Sub
- - - - - - - - - - - - - - -
Sub 来抓我(ByVal x, ByVal y)
Dim x As Integer, y As Integer
x = x + 100
y = y + 100
Worksheets("sheet1").Select
[B1].Value = x
[B2].Value = y
End Sub
- - - - - - - - - - - - - - - -
麻烦请各位版友帮我看一下是到底哪边出错,
它一直说是重复宣告, 可是我不知道哪边有
问题, 如果问题太笨请各位多多包涵...
小弟感激不尽!!
--
╭───┐ ╭─────────╮
│ ___㊣ ㄟ │ 各位战吧！ │
█ ◥▌ ＜ 输的人要陪我~ │
◤□︵□▌ │ 骑洨绵羊~赶铃羊~ │
╲ 口 ／ ○╰─────────╯
◣ ︺ ◣√ ╭───────╮
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.203.23
1F：→ MOONRAKER:dim x ... , y ... 那行拿掉。 04/06 01:01
2F：→ MOONRAKER:另外虽然VBA变数、程序名字可以用中文，最好还是不要 04/06 01:02
3F：→ MOONRAKER:除非你将来绝不打算写其他程式，不然最好提早习惯。 04/06 01:02
4F：→ wajolinhigh:MOO大你好,我照您说的把它拿掉,可是会出现阵列超出 04/06 09:02
5F：→ wajolinhigh:索引值的问题耶.. 04/06 09:02
6F：→ MOONRAKER:有错误自己要会看那一行，这次先教你把"sheet1"改成1。 04/06 11:32
7F：→ MOONRAKER:照表操课都会错，你那本书明显过期馊掉了，赶快换一本。 04/06 11:33
8F：→ wajolinhigh:非常感谢MOO大,让您费心了,因为图书馆只剩几本旧书 04/06 12:24
9F：→ wajolinhigh:了,这本还是最新的Q_Q,我会记住您建议的!感谢!! 04/06 12:25
10F：→ MOONRAKER:范例程式照打都过不了，这太夸张了啊 04/06 14:13