MaverickRay 發表於 18-11-17 21:04

請問VBA 編譯時出現Sub未定義,我要如何解…

程序如下:
Option Explicit
Sub 批次新增工作表()
Dim i , x
For i = 2 To Sheets(1).Range("A2").End(xlDown).Row '讓i=A欄類股名稱裡(有含資料的連續列的部份)之所有列數
    x = Sheets(1).Cells(i, "A")'令變數x=由左邊數來的第一個工作表內的儲存格(第i列,A欄)
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = x
Next
Sheet(1).Select
End Sub

===============
結果一執行編譯,問題就卡在第一列sub 批次新增工作表(),說我未定義...我要如何定義?
先前不管是用錄製的或手動插入模組時都沒出現這問題,今天上網學習,參照他人成功的範例照打就卡在第一列了...哦MG




我受夠卡關了啊...同時也受夠微軟的官方亂翻譯了啦...

┴┴︵ ╰(‵□′)╯ ︵┴┴

wcshk 發表於 18-11-17 22:28

我有看到你剛剛在FB的發文XD
試試看把最後一行的Sheet(1).Select改成Sheets(1).Select

MaverickRay 發表於 19-4-5 20:21

wcshk 發表於 18-11-17 22:28
我有看到你剛剛在FB的發文XD
試試看把最後一行的Sheet(1).Select改成Sheets(1).Select ...

都忘了有在這裡發問了,現在回頭看,應該是你講的最後一段陳述式裡漏了小s 跟蔡康永了~~
VBA好麻煩,久沒出問題就算了,一出問題就又頭大了~~~
現在正在研究如何看他內部的物件與使用方法跟屬性,不過都找不到好的地方有詳細介紹的..~~~
也煩請有知情的大大能大略告知囉...謝謝啦~~
頁: [1]
查看完整版本: 請問VBA 編譯時出現Sub未定義,我要如何解…