[VBA ] (已解決感謝MOO大)

看板Visual_Basic作者 (casper)時間12年前 (2012/04/06 00:39), 編輯推噓0(0010)
留言10則, 2人參與, 最新討論串1/1
我因為論文需求最近開始接觸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

04/06 01:01, , 1F
dim x ... , y ... 那行拿掉。
04/06 01:01, 1F

04/06 01:02, , 2F
另外雖然VBA變數、程序名字可以用中文,最好還是不要
04/06 01:02, 2F

04/06 01:02, , 3F
除非你將來絕不打算寫其他程式,不然最好提早習慣。
04/06 01:02, 3F

04/06 09:02, , 4F
MOO大你好,我照您說的把它拿掉,可是會出現陣列超出
04/06 09:02, 4F

04/06 09:02, , 5F
索引值的問題耶..
04/06 09:02, 5F

04/06 11:32, , 6F
有錯誤自己要會看那一行,這次先教你把"sheet1"改成1。
04/06 11:32, 6F

04/06 11:33, , 7F
照表操課都會錯,你那本書明顯過期餿掉了,趕快換一本。
04/06 11:33, 7F

04/06 12:24, , 8F
非常感謝MOO大,讓您費心了,因為圖書館只剩幾本舊書
04/06 12:24, 8F

04/06 12:25, , 9F
了,這本還是最新的Q_Q,我會記住您建議的!感謝!!
04/06 12:25, 9F

04/06 14:13, , 10F
範例程式照打都過不了,這太誇張了啊
04/06 14:13, 10F
文章代碼(AID): #1FVSh4pk (Visual_Basic)