vba出現編譯錯誤語法錯誤怎麼辦
㈠ excel vba代碼問題，總是報語法錯誤，請問是什麼原因
報錯的那句修改如下：
ActiveWorkbook.Names.Add Name:=Cells(i, 1), RefersToR1C1:="=Sheet1!R" & i & "C2:R" & i & "C" & j
存在的問題：一是可能多行語句處理缺少空格，二是&不要和變數連接，三是字元串應當使用雙引號。
㈡ excel VBA 編譯錯誤 語法錯誤
請把單引號換成雙引號（英文狀態下的）試試
㈢ VBA 的語法錯誤，怎麼糾正呢
sentence= Today is the" word1& "of December, in the year" & word2 (錯誤)
sentence= "Today is the" & word1 & "of December, in the year" & word2 (正確)
㈣ VBA語法錯誤 怎麼辦
紅色字體部分，看著很別扭的，沒有附件，只能去猜測一下：
如果cells(1,k)單元格的數據時單元格地址格式，那麼可能是：
range(cells(1,k)).select
如果僅僅是針對單元cells(1,k),可能是：
cells(1,k).select
range(cells(1,k).address).select，這種用法畫蛇添足了
以上建議供參考
㈤ VBA語法錯誤，求大神解答，謝謝
為什麼要用中文的逗號、引號、括弧呢，編程裡面一律使用英文，我修改後能編譯通過的代碼如下：
Subsheets2one()
'定義對話框變數
DimccAsFileDialog
Setcc=Application.FileDialog(msoFileDialogFilePicker)
DimnewworkAsWorkbook
Setnewwork=Workbooks.Add
Withcc
If.Show=-1Then
DimvrtSelectedItemAsVariant
DimiAsInteger
i=1
ForEachvrtSelectedItemIn.SelectedItems
DimtempwbAsWorkbook
Settempwb=Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).CopyBefore:=newwork.Worksheets(i)
newwork.Worksheets(i).Name=VBA.Replace(tempwb.Name,".xls","")
tempwb.CloseSaveChanges:=False
i=i+1
NextvrtSelectedItem
EndIf
EndWith
Setcc=Nothing
EndSub
另外，代碼中的dim建議全部提前吧。
㈥ CAD載入VBA時出現編譯錯誤，請各位大神幫忙給看看，萬分感謝！
幫助寫的很清楚了，跟我excel
VBA開發的項目一樣的問題。
把你VBA程序最上面的聲明語句改一下就好了，把
Declare
Function
替換成
Declare
ptrsafe
Function
就OK了。32位軟體沒問題，只有64位軟體里的VBA才有這問題。
㈦ excel vba 在運行時出現編譯錯誤
不知道具體表格的結構是啥，但按常理推斷，員工工資信息管理的表中，員工應該是豎向排列的，你需要的信息應該是在一列中而不是一行中，這樣的話Cells(2, tempx).Value是不是應該改為 Cells( tempx,2).Value。 cells 和 range 的參數正好是相反的，RANGE（列行） CELLS（行，列）希望對你有幫助。另外請檢查其他位置的CELLS（）是不是你想要的結果。
㈧ excel的VBA編譯語法錯誤怎麼改
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count=1 Then
if target.row>=6 and target.row<=12 then
if target.column>=6 and target.column<=9 then
target="Test"
end if
end if
End If
End Sub
㈨ VBA程序編譯時的錯誤提示
溢出錯誤一般是你代碼中變數定義類型過小
賦值時超過該變數類型限制導致的
基本上
錯誤號和錯誤描述會同時出現
6錯誤號
溢出就是錯誤描述
㈩ 我在用excel中的vba定義函數，總是提示我編譯錯誤，求高手解答
藍色選中的代表另一個函數，系統里沒有這個函數，所以報沒有定義，你要編寫一個同名的函數放到這個工作簿中才能編譯成功，我不知道它原代碼里函數的作用，所以更多的就幫不到你了，找到原代碼吧！