sub編譯錯誤

Ⅰ Excel VBA裡面提示編譯錯誤缺少end sub怎麼解決(最後一行有end sub)

解決方法：
1、在資源管理器中進入「C:\Documents
and
Settings\Administrator\Application
Data\Microsoft\Templates」目錄，刪除其中的「Normal.dot」公用模板文件（可能還有個隱藏的編輯中的文件，一並刪除），再重新啟動Word即可。
2、上述方法1如不行，可先完全卸載OFFICE2003，並刪除安裝文件夾及相關注冊表文件，重新安裝OFFCIE2003.
3、上述兩種方法如都不行，那就要重新安裝操作系統了
基本上採用以上第一個方式，問題圓滿解決。

Ⅱ VB 編譯錯誤：無效外部過程

是把代碼寫在子過程、函數過程或屬性過程外而發生的錯誤。

在過程外無效：

該語句必須發生在子過程、函數過程或屬性過程（Property Get、Property Let 和
Property Set）內部。這個錯誤的起因與解決方法如下所示：

*一個可執行的語句，如 Static 或 ReDim，出現在模塊級別中。

在模塊級中 Static 是不需要的，因為所有的模塊級變數都是靜態的。在模塊級中用 Dim 來代替
ReDim。想要在模塊級中創建動態數組，請用
Dim 加空括弧來聲明它。

注意 在模塊級只能使用注釋與聲明性語句，例如
Const、Declare、Deftype、Dim、Option Base、Option
Compare、Option Explicit、Option
Private、Private、Public 和
Type。子過程、函數過程和屬性過程語句發生在它們的過程體之外，但在過程內聲明。

Ⅲ excel 運行宏時總是提示編譯錯誤:缺少 End Sub

For j = 1 To Range("xdf1").End(xlToLeft).Column
這一行，Range("xdf1")不存在，應該是Range("vf1")吧。

這個代碼應該是在列A裡面搜索和單元格B32內容一致的表格，並且把表格地址和內容在C32以後列印出來。
可以測試一下，給A列一組數據，在B32裡面輸入一個值，會自動查找。

Ⅳ 編譯錯誤 缺少End Sub 怎麼解決

Private Sub Worksheet_Change(ByVal Target As Range)是一個『表格點選位置改變觸發的事件過程』，不需要再增加『Sub 按名稱篩選片段圖片()』也不需要寫在模塊中，Sheet("引用")應寫作Sheets("引用")其他類似，沒有你的表格，無法測試。

Ⅳ 打開excel 彈出編譯錯誤:sub或function中的屬性無效

有宏代碼存在，如果不是你自己的宏，那就是你的電腦中了宏病毒。

Ⅵ 編譯錯誤 找不到工程或庫

當找不到你需要的工程或庫時，請在VBA工具中點擊引用進行查找你需要的庫，然後進行勾選即可。

Ⅶ 打開Word文檔出現編譯錯誤 在End Sub、End Function 或 End屬性後面只能出

那就是Office軟體出錯，這種情況可以找到安裝包（沒有的話可以去網上下載），然後運行setup.exe文件，然後運行修復選項。或者直接重新安裝office

Ⅷ vb出現編譯錯誤：在End Sub、End Function或End屬性後面只能出現注釋

夏威夷海盜2同志：你的錯誤明顯不是上述這些個代碼出的問題。這些代碼根本就沒有問題。
根據你的問題說「在End Sub、End Function或End屬性後面只能出現注釋」，那麼我猜你一定是在上述代碼的基礎上添加過代碼了，而且你添加的代碼位置有誤造成的問題。如果是這樣，你好好檢查一下自己的代碼，你把新添加的代碼前後調整調整位置，例如：你添加的一些像Private Declare Function 一樣的聲明或常量等就應該移動到上述代碼之前哦。

Ⅸ Access 里用VB語言Sub getFileName()，一直提示編譯錯誤：變數未定義，請高手指點。

錯誤信息.Visible = False 這句話的前提條件是你要有這個對象，比如你的一個標簽的名稱修改為「錯誤信息」，就不會出錯了。最後這段代碼似乎有些問題：Me![照片路徑].Visible = True
，後面馬上有一句Me![照片路徑].Visible = False，這2句的操作有一個是多餘的。
其它有什麼錯誤，這里看不出。

Ⅹ Microsoft Visual Basic，編譯錯誤:Sub 或 Function 未定義

第一個sub不完整，刪掉