Sub or function not defined vba excel ошибка
Background - 2 excel files, file1 where the macro makes the changes, file2 (volume-log.txt) contains the data which goes into file1 plus the formatting changes. The macro is currently attached to personal.xlsb
Issue - When I run the macro the macro throws the following error "Compile Error Sub or Function not defined", Where else I need to define the sub VolumeInfo() ??
Sub VolumeInfo()
'
'
' Keyboard Shortcut: Ctrl+z
'
Windows("volume-log.txt").Activate
Columns("A:A").EntireColumn.AutoFit
Cells.Replace What:=" bytes free", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(FIND(""Checking"",R[-1]C[-1])),R[-1]C,RIGHT(R[-1]C[-1],LEN(R[-1]C[-1])-9))"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(SEARCH(""Dir(s)"",RC[-2])),"""",IF(ISERROR(FIND("":\"",R[-1]C[-2])),"""",R[-1]C[-2]))"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",MID(RC[-3],SEARCH("" "",RC[-3],20),20)/1024/1024/1024)"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""Keep"",""Delete"")"
Range("B9000:E9000").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("volume-log").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("volume-log").Sort.SortFields.Add Key _
:=Range("C2:C9000"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("volume-log").Sort
.SetRange Range("B2:E9000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Copy
Windows("file1.xlsx").Activate
Sheets("free space").Select
Range("E2").Select
Windows("volume-log.txt").Activate
A Sub, Function, or Property procedure must be defined to be called. This error has the following causes and solutions:
You misspelled the name of your procedure.
Check the spelling and correct it.
You tried to call a procedure from another project without explicitly adding a reference to that project in the References dialog box.
To add a reference
Display the References dialog box.
Find the name of the project containing the procedure you want to call. If the project name doesn't appear in the References dialog box, click the Browse button to search for it.
Click the check box to the left of the project name.
Click OK.
The specified procedure isn't visible to the calling procedure. Procedures declared Private in one module can't be called from procedures outside the module. If Option Private Module is in effect, procedures in the module aren't available to other projects. Search to locate the procedure.
You declared a Windows dynamic-link library (DLL) routine or Macintosh code-resource routine, but the routine isn't in the specified library or code resource.
Check the ordinal (if you used one) or the name of the routine. Make sure your version of the DLL or Macintosh code-resource is the correct one. The routine may only exist in later versions of the DLL or Macintosh code-resource. If the directory containing the wrong version precedes the directory containing the correct one in your path, the wrong DLL or Macintosh code-resource is accessed. You gave the right DLL name or Macintosh code-resource, but it isn't the version that contains the specified function.
For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Необходимо определить процедуру Sub, Function или Property, чтобы ее можно было вызвать. Эта ошибка имеет следующие причины и решения:
Вы неправильно указали название процедуры.
Проверьте и исправьте написание.
Вы попробовали вызвать процедуру с другого проекта, не добавив на него явным образом ссылку в диалоговом окне "Ссылки" (References).
Добавление ссылки
Отобразите диалоговое окно Ссылки.
Найдите название проекта, содержащего процедуру, которую необходимо вызвать. Если название проекта не появляется в диалоговом окне Ссылки, нажмите кнопку Обзор, чтобы найти название.
Установите флажок слева от названия проекта.
Указанная процедура невидима для вызывающей процедуры. Процедуры, которые объявлены как Private в одном модуле, невозможно вызвать из процедур вне модуля. Если выполняется Option Private Module, процедуры в модуле будут недоступны для других проектов. Выполните поиск процедуры.
Вы объявили процедуру библиотеки динамических связей (DLL) Windows или процедуру "код-ресурс" Macintosh, но процедуры нет в выбранной библиотеке или ресурсе кода.
Проверьте порядковый номер (если таковой использовался) или название процедуры. Убедитесь, что ваша версия процедуры DLL или "код-ресурс" Macintosh верная. Процедура может существовать только в последних версиях процедуры DLL или "код-ресурс" Macintosh. Если на вашем пути каталог с недействительными версиями расположен перед каталогом с правильными версиями, будет открыта неправильная процедура DLL или "код-ресурс" Macintosh. Вы указали правильное название процедуры DLL или "код-ресурс" Macintosh, но это не та версия, которая содержит указанную функцию.
Для получения дополнительной информации выберите необходимый элемент и нажмите клавишу F1 (для Windows) или HELP (для Macintosh).
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
How to Fix Compile Error: Sub or Function Not Defined
What’s worse than getting a runtime error in Excel VBA? A compile error. That’s because the actual error is not always highlighted, rather the opening Sub or Function statement. “Sub or Function not Defined” indicates a compile error. VBA displays this message when it cannot find what is referenced by name. This article gives several examples of this compile error and how to correct them.
VBA is compiled (translated) into machine language before it is executed. Compile errors halt the compile process before procedures are executed.
Best practice: Frequently check for compile errors from VB Editor. From the Debug menu, choose Compile VBAProject. No news is good news when nothing seems to happen.
Issue 1: Typos
Typos are the most common cause of “Sub or Function not Defined.” If Excel highlights (in yellow or gray) the keyword or procedure it can’t find, you have a great head start on your game of Hide and Seek.
Best practice: Follow Microsoft’s naming convention and always include at least one capital letter whenever you create a name (exception: counter variables like n). Always type the name in lower case. When you leave the statement, and the name stays in all lower case, you have found a typo.
Contrary to its message, “Sub or Function not Defined” is not limited to procedures. The statement below causes this message. Can you find the typo?
Worksheets is the required keyword. The “Summary” worksheet object is a member of the Worksheets collection. The Worksheets collection contains all the worksheet objects of a workbook. Excel VBA has several collections.
Tip: All VBA collections end with “s”: Workbooks, Sheets, Cells, Charts, etc.
Issue 2: Worksheet Functions
VB Editor may be the backstage to the worksheets in front, but not all worksheet props have been brought backstage. These “props” are functions that don’t exist in VBA. Worksheet functions like CountA cause “Sub or Function not Defined”:
The WorksheetFunction object is the “stage hand” that lets you call worksheet functions from VBA, like this:
Issue 3: Missing Procedure
Less frequently, the called procedure is truly missing. After you check for typos, and you’re sure you coded the called procedure, perhaps you are missing a library. Tools, References is the next place to look.
From VB Editor Tools menu, choose References. The References dialog box opens. If VBA has identified a missing library, the last library with a checkmark will start with MISSING, followed by its name. Most of the time, you can simply scroll down the alphabetical list of libraries and check the missing library, then choose OK.
Fortunately, a missing library happens infrequently, usually related to a recent change. Perhaps you upgraded to a newer version of Excel. You purchased a new computer. You received a workbook from someone with an older version of Excel. Or you created your first macro that calls Solver Add-In.
The Solver project is not added to VBA when you enable the Solver Add-In, as shown below. At Solver project is near the top of the list of references, so you don’t have to scroll down to find it.
Your own macro workbooks can behave like Solver. Every Excel workbook has a built-in VBAProject. See MyFunctions in the screenshot above? MyFunctions is simply VBAProject renamed in a macro workbook. The workbook is open, so the Subs in MyFunctions run from the Developer tab. Even so, “Sub or Function not Defined” occurs when MyFunctions is not checked, and a procedure is called from a different macro. Simply check its project as an available reference.
Best practice: Assign your VBA projects a meaningful name. From Project Explorer, right click the macro workbook. Choose VBAProperties, then type a Project Name with no spaces.
Issue 4: Unavailable Procedures
“Sub or Function not Defined” also occurs when the procedure is not available to the calling procedure in the same workbook. This error is related to Public vs. Private procedures. By default, Sub and Functions in standard modules of the Modules folder (seen in Project Explorer) are public. Standard procedures can be called by any procedure in the project. You can make a procedure private by adding the Private keyword, like this:
Private Sub Initialize()
Tip: All the macros shown in the Macros dialog box of the Developer tab are Public. The list excludes public functions.
Subs and Functions in worksheet modules are private. They can only be called from the worksheet (like clicking a button) or another procedure in that module. The same is true for user forms.
You can remedy “Sub or Function not Defined” by deleting the Private keyword from a procedure in a standard module. Sorry, you cannot remedy calling a procedure in a worksheet module from another module. Think of standard modules like public parks, and worksheet modules like private property. No trespassing allowed!
Issue 5: Declaring a Routine That Doesn’t Exist in the Specified DLL
The sub you’re trying to use could be a part of a DLL that needs to be referenced. So not declaring a DLL or declaring the wrong one will cause the compiler to not find the sub or function that you are trying to use.
A DLL is a dynamically linked library of a body of code that is compiled and is meant to provide some functionality or data to an executable application (like the VBA project we’re working with). A dynamic library is loaded by the VBA project when it needs it. DLLs are used in order to save developers time by utilizing built and tested bodies of code.
You will need to do some research to determine the library that your sub or function belongs to, then declare it in your code using the Declare keyword in its simplest form:
Declare Sub sub_name Lib “library_name”
Issue 6: Forgetting to Write It
Finally, it’s possible that it just hasn’t been written yet!
If you realize that the sub that has been highlighted for you by the VBA compiler doesn’t exist, then the solution is to create it. To know whether it exists or not, just search for it on the project level using the Find tool in the VBA IDE.
Selecting the ‘Current Project’ scope will allow you to search for the sub in the entire workbook. You can also do that for the other workbooks where the sub might reside.
Wrap Up
“Sub or Function not Defined” is a compile error that occurs when VBA cannot find a procedure or other reference by name. A typo is the most common cause of this message.
Compile Error Sub or Function not defined. Arrow points and highlight "Sub Variable ()"
Will not begin working at all. Do I have to make a reference to the excel sheet even if I recorded it in the worksheet?
Am I not allowed to name it variable?
Also, How can I get macro to ask for input of objective cell goal? I wanted the value to make a cell reference but excel solver would not allo this, therefore this data will change as the other solvers are run. I need macro to ask for a value input so that it may continue its progress.
Sub Variable()
'
' Variable Macro
' Find variables best fit to model data. Set X_1 Objective Cell = AC21
'
' Keyboard Shortcut: Ctrl+f
'
SolverOk SetCell:="$AC$23", MaxMinVal:=3, ValueOf:=0.2041563087937, ByChange:= _
"$J$3:$J$4", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$L$235", MaxMinVal:=3, ValueOf:=0.333, ByChange:= _
"$J$1:$J$2,$J$5,$J$8:$J$9", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverLoad LoadArea:="$J$1:$J$2,$J$5,$J$8:$J$9"
SolverOk SetCell:="$L$235", MaxMinVal:=3, ValueOf:=0.333, ByChange:= _
"$J$1:$J$2,$J$5,$J$8:$J$9", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$L$235", MaxMinVal:=3, ValueOf:=0.333, ByChange:= _
"$J$1:$J$2,$J$5,$J$8:$J$9", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 185
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 156
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
SolverOk SetCell:="$L$235", MaxMinVal:=3, ValueOf:=0.333, ByChange:= _
"$J$1:$J$2,$J$5,$J$8:$J$9", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$K$235", MaxMinVal:=3, ValueOf:=0.17, ByChange:= _
"$J$1,$J$5:$J$7", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverLoad LoadArea:="$J$1,$J$5:$J$7"
SolverOk SetCell:="$K$235", MaxMinVal:=3, ValueOf:=0.17, ByChange:= _
"$J$1,$J$5:$J$7", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$K$235", MaxMinVal:=3, ValueOf:=0.17, ByChange:= _
"$J$1,$J$5:$J$7", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 195
ActiveWindow.ScrollRow = 193
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 185
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
SolverOk SetCell:="$K$235", MaxMinVal:=3, ValueOf:=0.17, ByChange:= _
"$J$1,$J$5:$J$7", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$AC$23", MaxMinVal:=3, ValueOf:=0.204156, ByChange:= _
"$J$3:$J$4", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverLoad LoadArea:="$J$3:$J$4"
SolverOk SetCell:="$AC$23", MaxMinVal:=3, ValueOf:=0.20417621235, ByChange:= _
"$J$3:$J$4", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$AC$23", MaxMinVal:=3, ValueOf:=0.20417621235, ByChange:= _
"$J$3:$J$4", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub
Читайте также: