Tag: 编译器错误

VBA问题，简单的转折: 这是Excel 2013 Power Programming中的代码，出于某种原因，我无法使其工作。这个脚本是开箱即用的，但不起作用： Sub SayHello() Msg "Is your name " & Application.UserName & "?" Ans = MsgBox(Meg, vbYesNo) If Ans = vsNO Then MsgBox "Oh, nevermind then. Bother" Else MsgBox "I must be clairvoyant!" End If End Sub 我得到一个编译错误： Sub or Function not defined在子的开始行这是我第一次使用VBA的经验，所以如果我做了一些非常愚蠢的事情，请温柔一点。

与VBA中的macrosvariables错误: 我在Excel中是VBA新手，遇到了一个我不确定如何解释的错误。我想知道有人可以帮忙。我正在尝试为excel文件创build目录，并在网上find一个macros。它张贴如下： Sub Create_TOC() Dim wbBook As Workbook Dim wsActive As Worksheet Dim wsSheet As Worksheet Dim lnRow As Long Dim lnPages As Long Dim lnCount As Long Set wbBook = ActiveWorkbook With Application .DisplayAlerts = False .ScreenUpdating = False End With 'If the TOC sheet already exist delete it and add a […]

编译错误：当我从其他macros调用macros时，参数不是可选错误: 我有一个button，按下时会调用一些macros来完成。我所有的macros都运行正常，“AddDropDown”macros的例外。它不断给我一个错误，说“编译错误：参数不可选（错误449）”。这些运行正常，如果我手动只select他们，然后按运行。帮助页面显示“参数的数量和types必须与预期的一致。此错误具有以下原因和解决scheme：•参数个数不正确。提供所有必要的参数。例如，Left函数需要两个参数; 第一个表示正在操作的string，第二个表示要从string左侧返回的字符数。因为这两个参数都不是可选的，所以都必须提供。 •省略的参数不是可选的。如果在过程声明中将参数声明为可选，则只能从对用户定义过程的调用中省略参数。要么在调用中提供参数，要么在定义中声明参数Optional。我的代码是这样的： Private Sub Button_Click() Macro1 Macro2 AddDropDowns AddDropDown Macro3 End Sub 而给出错误的macros是下面的那个： Sub AddDropDowns() Dim cell As Range Dim iDropDown As Long With Worksheets("SourceSheet") For Each cell In .Range("B13", .Cells(13, .Columns.Count).End(xlToLeft)).SpecialCells(XlCellType.xlCellTypeConstants) AddDropDownEnroll Worksheets("DropDownsSheet"), iDropDown, cell.Offset(-1).Value, "='" & .Name & "'!" & cell.Resize(WorksheetFunction.CountA(cell.EntireColumn) […]

Excel VBA：编译错误：未find方法或数据成员: 编辑：澄清，下面看到的代码是在一个模块内，用户窗体都包含在自己的代码。我有以下代码。当我去运行它时，Excel引发了一个编译错误： Method or data member not found并突出显示下面的一段代码： .showInputsDialog 。我不知道如何解决这个错误。为了提供更多信息，sub sportUserForm应该调用一个UserForm的sportsUsrFrm 。任何有关这个问题的帮助，不胜感激。 Option Explicit Sub sportUserForm() Dim sSport As String, sPreference As String If sportsUsrFrm.showInputsDialog(sSport, sPreference) Then MsgBox "Your favorite sport is " & sSport & ", and you usually " _ & sPreference & "." Else MsgBox "Sorry you don't […]

Excel VBA：“excel vba运行时错误1004”应用程序定义或对象定义的错误: 我在一个模块中有这条线，当我尝试运行它时，它不断吐出一个运行时错误1004。谁能帮忙？我猜这是关于如何引用范围，但我不知道。这对我来说是全新的。 rngFirst = ThisWorkbook.Worksheets("Still In Progress").Range("G" & 1 & ":G" & lw) 提前谢谢了

在Select Case中需要对象（错误424）: 我在VBA编辑器Sheet2中有以下代码： Sub Organize_Data() Dim i As Integer Dim S2 As Worksheet, S3 As Worksheet Application.ScreenUpdating = False Set S2 = ThisWorkbook.Sheets("Sheet2") Set S3 = ThisWorkbook.Sheets("Sheet3") S3.Range("A:G").Clear S2.Range("F:H").Copy Destination:=S3.Range("A:C") S2.Range("P:P").Copy Destination:=S3.Range("F:F") S2.Range("K:K").Copy Destination:=S3.Range("G:G") S3.Columns("A:G").Sort key1:=S3.Range("A2"), _ order1:=xlAscending, Header:=xlYes S3.Cells(1, 4) = "Name Boy" S3.Cells(1, 5) = "Name Girl" Last = S3.Cells(Rows.Count, "A").End(xlUp).Row For i = Last […]

VBA：我的程序在格式上引发编译错误: 所以我正在与我的计划。它工作和运行，所以我复制它，并做了第二个版本，我可以添加额外的function，同时还有一个工作程序。我没有看到我的新代码的任何问题，所以我准备步入它。突然之间在我的另一个版本中工作得很好的东西是抛出编译错误。下面的细节。 Dim elapsedTime As String Dim startTime As Date startTime = Now() 'code elapsedTime = Format(Now() – startTime, "h:m:s") 我一次又一次地检查，但是这个完全相同的代码在我的其他文件中工作正常。在此文件中，它突出显示“格式”并引发以下编译错误。有谁知道为什么excel会越来越难过呢？如果有编译错误，我甚至应该看看它突出显示的地方吗？

VBA：我的程序正在抛出编译错误ByRef: 我正在运行一个正在运行的程序。我做了一个副本，以testing使我的代码更模块化。下面是一个循环内部的一个子运行，通过调用第一个运行变为两个子运行。 Sub Trendline() Dim eqn, name As String Dim cht As ChartObject Dim i As Integer For Each cht in Worksheets(1).ChartObjects If cht.Chart.SeriesCollection(1).Trendlines.Count > 0 Then cht.Activate name = Split(ActiveChart.name)(1) i = Worksheets(name).Range("Z2").Value 'indicates what kind of trendline eqn = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text 'the trendline has both R-square and Equation displayed eqn = Split(eqn, Chr(10))(0) […]

循环没有做错误: 我试图通过三个数据列表循环，并隐藏总值为0的行。虽然我一直得到一个“循环没有做”的错误，有人可以发现我做错了什么。干杯。 Sub Button1_Click() Dim Brow1 As Integer Dim Brow2 As Integer Dim Brow3 As Integer Dim Trow1 As Integer Dim Trow2 As Integer Dim Trow3 As Integer Brow1 = 62 Trow1 = 3 Brow2 = 126 Trow2 = 67 Brow3 = 190 Trow3 = 131 Do While Brow1 > Trow1 If Range("P" & Brow1).Value […]

范围查找replaceVBA VBScript excel编译器错误missin指令: 我试图find并replaceVBA脚本（在Excel中）工作，但我得到的错误，它需要说明。即时通讯相当新的脚本/ VBA所以不介意的问题eaze 🙂 Worksheets("General").Columns("C").Replace _ What:="Y", Replacement:="N", _ SearchOrder:=xlByColumns, MatchCase:=True “什么”后popup错误它声明了它的一个编译器错误我的来源： https ： //msdn.microsoft.com/en-us/library/office/ff194086.aspx 错误