作者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