excel vba代码问题，总是报语法错误，请问是什么原因？ excel VBA 编译错误 语法错误

excel VBA \u4ee3\u7801\u95ee\u9898\uff0c\u663e\u793a\u8bed\u6cd5\u9519\u8bef\u3002

Option ExplicitSub AAA()Dim i, j As Long '\u8fd9\u53e5\u6700\u540e\u4e00\u4e2a\u53d8\u91cf\u540e\u9762\u6ca1\u6709\u9017\u53f7\uff0c\u800c\u4e14\u5e94\u8be5\u8fd9\u6837\u5199 dim i as long ,j as longDim Otype, Prate As StringDim D As Date i = ActiveCell Otype = ActiveCell.Offset(0, -3) Prate = ActiveCell.Offset(0, -1) If Prate = "\u5feb\u5355" Then '\u4e0b\u9762\u8fd9\u53e5\u4fee\u6539\u5982\u4e0b j = WorksheetFunction.RoundUp((Worksheets("\u8d1f\u8377\u7edf\u8ba1").Cells(4, 7) + i) / Worksheets("\u8d1f\u8377\u7edf\u8ba1").Cells(10, 12), 0) If j < 6 Then D = Worksheets("\u8ba2\u5355\u660e\u7ec6").Cells(1, 2) Else '\u4fee\u6539 D = Worksheets("\u8ba2\u5355\u660e\u7ec6").Cells(1, 2) + j - 6 End If ActiveCell.Offset(0, 8) = D ActiveCell.Offset(0, 7) = D + 11 Else '\u4fee\u6539 '\u4e0b\u9762\u4e00\u53e5 \u4fee\u6539 j = WorksheetFunction.RoundUp((Worksheets("\u8d1f\u8377\u7edf\u8ba1").Cells(5, 7) + i) / Worksheets("\u8d1f\u8377\u7edf\u8ba1").Cells(10, 12), 0) If j < 6 Then D = Worksheets("\u8ba2\u5355\u660e\u7ec6").Cells(1, 2) Else '\u4fee\u6539 D = Worksheets("\u8ba2\u5355\u660e\u7ec6").Cells(1, 2) + j - 6 End If ActiveCell.Offset(0, 8) = D ActiveCell.Offset(0, 7) = D + 11 End If End Sub

\u8bf7\u628a\u5355\u5f15\u53f7\u6362\u6210\u53cc\u5f15\u53f7\uff08\u82f1\u6587\u72b6\u6001\u4e0b\u7684\uff09\u8bd5\u8bd5

报错的那句修改如下：
ActiveWorkbook.Names.Add Name:=Cells(i, 1), RefersToR1C1:="=Sheet1!R" & i & "C2:R" & i & "C" & j
存在的问题：一是可能多行语句处理缺少空格，二是&不要和变量连接，三是字符串应当使用双引号。

当然会出错：
因为你加密了VBA工程，而加密的VBA工程的里的代码就会被保护。
也就是说VBA工程加密后，不可以增加删除代码，不可以增加删除窗体，不可以增加删除模块和类模块。而你的代码中：
Set?usForm?=ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)这个是增加一个窗体，这对受保护的工程来说是不被允许的。除了你这个，还有例如ThisWorkbook.VBProject.VBComponents.Remove?XXXXX（删除代码）
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name?=?

扩展阅读：vba编程必背50个程序 ... vba表格代码大全 ... vba编程代码对照表 ... ppt vba编程代码大全 ... 初学vba编程100个代码 ... vba万能查询代码 ... vba代码生成器 ... vba代码大全入门 ... excel vba实例详解 ...