Tag: 编译器错误

在VBA中取得一个范围的子: 我试图写一个Sub在VBA中需要一个Range ： Sub MarkCell(ByRef rng As Range, value As String) For Each C In Range.Cells If C = value Then aCell.Interior.ColorIndex = 3 End If Next C End Sub 但是我得到了一个“编译错误：参数不可选”在我的For语句。我错过了什么？

VBA Excel文件不编译：子或function未定义: 这是相关的代码：它说错误是在函数操作的定义（）我觉得我需要包括的东西，但我不知道是什么。任何人都可以请告诉我需要做什么？我知道去工具>参考> ..但之后，我不知道。 Sub operation() ' ' Macro5 Macro ' ' Dim Erw, firstRow, lastRow firstRow = 1 Last Row = Range("B" & Rows.Count).End(xlUp).Row For Erw = firstRow To lastRow Dim newRow newRow = firstRow + 4 Range("B" & newRow).Select ActiveCell.FormulaR1C1 = Range("B" & newRow) With ActiveSheet.QueryTables.Add(Connection:= _ "URL;ActiveCell.FormulaR1C1", _ Destination:=Range("$D$5")) .Name = "collections1504_1" […]

使用PHP创buildExcel表格: 即时通讯在这个特定的线路面临的问题.. echo pack("ssssss", 0×809, 0×8, 0×0, 0×10, 0×0, 0×0); 即将出现的错误是.. Parse error: syntax error, unexpected T_STRING in C:\wamp\www\amc\excel.php on line 20 即时通讯不理解为什么发生这种情况导致其正确的语法回声包function（我参考http://www.w3schools.com/php/func_misc_pack.asp ）有人可以帮我在这里.. PS：我有同样的错误，在接下来的几行，我用同样的一段代码的回声包与完全相同的错误，当我尝试评论这条线20。

VBA：将值存储到variables: 子testing（）''testingmacros' Dim aRange As Range Dim i Integer Set aRange = Range("A1:A255") Range("A1").Select For i = 1 To aRange.Count – 1 If InStr(ActiveCell.Value, "Last name") Then Call CopyContents End If ActiveCell.Offset(1, 0).Select Next i 结束小组 Sub CopyContents（）Dim currentRange As Range Dim genderAndDiscipline As String Set currentRange = Range(ActiveCell.Address) 'get the gender and dicipline Set genderAndDiscipline […]

在另一台机器上运行时编译错误: 我有一个工作簿的问题。它在我的机器上工作正常，但是当它由别人运行时，它给出了一个错误消息“编译错误找不到项目或库”的问题 – 事情是，这是在一个Mid $的string命令！任何人都知道什么可能导致这个他们需要什么设置吗？代码是在Excel 2010中编写的，他们正在运行Excel 2010

将互操作typesembedded到不起作用: 我在项目中使用Office引用，实际上是Excel引用。不过，我已经编译这样的问题 – > Interoptypes不能被embedded 我将Embed Interop Types设置为false。然而，它不起作用，编译器仍然像上面那样给出错误。出现这个问题是因为：几个月前我完成了这个项目。人们正在使用它，但他们想要一些额外的。当我完全构build项目时，Office 2007安装在我的电脑上。现在，我有Office 2010，所以我认为主要的原因是这样的。谢谢。

在VBA中的子例程中捕获编译错误: 我真的很感激这个帮助。我们正在Excel VBA中创build一些应用程序，有时候，一个文件中的例程会调用另一个文件中的例程。 Application.Run ActiveWorkbook.Name & "!SomeOtherRoutine" 我的问题是，其他例程有一个编译错误（End If缺less）。所以整个过程当然会崩溃。但作为一个编译错误，这个错误不能被error handling程序困住。有没有办法赶上这种错误，所以我的代码不会被打断？

编译错误：在sum循环中键入不匹配，excel VBA: Dim SumEIP(1 To 708, 1 To 200) As Long Dim EIP(1 To 708, 1 To 200) As Integer Dim IP(1 To 708, 1 To 200) As Variant Dim LeadTime(1 To 708) As Integer Dim SR(1 To 708, 1 To 200) As Integer Dim CumReceipt(1 To 708, 1 To 200) As Integer Sub test() For i […]

在跟踪更改时使用VBA获得编译错误: 我得到一个编译错误“byRef参数types不匹配”。是否有什么促使这个或如何我可以清除它？我检查了其他的子function和vOldArr是所有的范围。该错误出现在Worksheet_Change子项中 Dim vOldVal Dim vOldArr Private Sub Worksheet_SelectionChange(ByVal target As Range) vOldVal = target.Value Set vOldArr = target End Sub Private Sub Worksheet_Change(ByVal target As Range) Call Get_Dirction(vOldVal, target, vOldArr) End Sub Sub Get_Dirction(vOldVal As Variant, target As Variant, vOldArr As Range) If target.Count = 1 Then Call Check_Change_Single(vOldVal, target) Exit Sub […]

编译错误：预期的分隔符或）: 我试图做一个macros插入一个公式到一个单元格范围，引用页面上的表，但我得到了编译错误。任何人都可以帮我一个这个吗？似乎并不像我引用一个表（或@Duration部分反正，但这是必要的）。我基本上只需要它将此公式string放入所需的单元格。码： Range("A2:A100").Formula = MID(Table4[@Duration],FIND("m",Table4[@Duration],1)-1,7) 谢谢。