Constant expression required excel vba - Word и Excel - помощь в работе с программами

I’m using an enum defined in a class module in Excel VBA. This has been working fine, but I’ve started getting a compile error on every time I do a comparison on enum variables:

In class CExample:

Enum MyEnum
    Foo
    Bar
End Enum

Elsewhere:

If someValue = myEnum.Foo Then

The text .Foo will be highlighted, and a «Compile error: Constant expression required» message pops up.

A search on Google suggests that this can randomly happen, and fixes such as restarting the IDE or adding a space after the enum declaration can make it start working again.

http://www.tek-tips.com/viewthread.cfm?qid=1355882
http://www.vbforums.com/showthread.php?405564-RESOLVED-Constant-Expression-Required-Error-when-checking-Enum

Is this really a known bug in VBA? Is there anything I can do to avoid it happening, or reliably get VBA working again if it does crop up?

In my case, closing and reopening Excel hasn’t helped. Excuse me while I reboot my PC.

Update after reboot:

The problem persisted after rebooting my machine, which is surprising. I tried adding Public in front of the enum definition (they’re meant to be public by default but I thought I’d give it a try), and the error disappeared. I’ve removed the Public keyword (so we’re back to my original code) and it still compiles and runs fine.

It does look like this is a random bug in VBA. I’d be interested to know if experienced developers have found this comes up often — would you advise not using enums? Or does it pop up once in a blue moon and I was just unlucky?

Update after 6 weeks of further development:

The problem didn’t recur during the rest of my time developing this project, so it looks like it is a rare problem.

Источник

Return to VBA Code Examples

We covered arrays, static arrays and dynamic arrays in a previous tutorial. We are going to look at a common error associated with static arrays called Constant Expression Required. This error is generated when you try to use a static array instead of a dynamic array as shown in the code below:

The static array needs to have constants used to set it since it is fixed.
The way to resolve this error is to use a Dynamic array variable instead. You would use the ReDim keyword every time you want to resize the array. This is shown in the code below:

Sub UsingReDim()

Dim value1 As Integer
Dim value2 As Integer
Dim value3 As Integer

value1 = 3
value2 = 9
value3 = 15

Dim listofvalues() As Integer

ReDim listofvalues(value1)

End Sub

Read more about Dynamic array variables in our Array variable tutorial.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More!

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

(No installation required!)

Free Download

Источник

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

30.04.2013 18:35:30

Доброго времени суток! Надеюсь на вашу помощь)
История такая — в моем документе куча листов и нудных формул. В самом начале вычисляется кол-во временных интервалов. Надоело в каждой процедуре прописывать это. Их кол-во задается в начале и не меняется. Вот код (я не прогер, так что это говнокод, вероятнее всего):

Цитата
… With Worksheets(«123») God = .Range(«God») Mes = .Range(«Mes») Srok = God * 12 + Mes …

Srok глобально объявлен как целое,

Цитата
Public God, Mes, Srok As Integer

проблем с вызовом в каждой процедуре не было, но в каждую приходится писать эти вот строчки. Хотелось бы в сааааамом начале проекта его вычислить и вставлять по ходу действа, когда нужен.

С другой переменной, тоже задающейся в самом начале, попробовал такую вот штуку:

Цитата
Const StartDate As Date = Worksheets(«123»).Range(«StartDate»)

заругалась «constant expression required». Найденные в сети варианты с Set… тоже успехом не увенчались.
прошу вашей помощи, знатоки!

у меня вся эта байда во вкладке «Modules», где у меня описание всех кнопок, функции и тп. Мб куда в другое место надо перенести объявление глобальных переменных/констант?

Юрий М Модератор Сообщений: 60569 Регистрация: 14.09.2012 Контакты см. в профиле	Где у Вас объявлены глобальные переменные? Нужно в области деклараций стандартного модуля. Т.е. ПЕРЕД ними не должно никаких процедур. А значения им присваивайте в процедуре, которая выполняется самой первой.

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

30.04.2013 19:20:58

Юрий М, на самом верху, да:

Цитата
Option Explicit Public StartDate As Date, God, Mes, Srok, i, j, N, LastRow As Integer, Pi As Double, Cell As Variant

перед ними ничего нет. Если в первой процедуре Srok получит значение 100500, то при любых дальнейших вызовов этой переменной, ее значение будет равно 100500?
провел эксперимент и ваши слова подтвердились)спасибо большое!
возник другой вопрос — пользователь открывает документ и выполняет процедуры не с самой первой, а последние 2, к примеру. Но в них этот самый Srok используется. Каким будет его значение? Эксель как бы на заднем фоне втихую выполнит процедуру, в которой Srok считается и возьмет верное значение или подставит 0?)

Изменено: peat — 30.04.2013 19:24:41

Юрий М

Модератор

Сообщений: 60569
Регистрация: 14.09.2012

Контакты см. в профиле

Если затем это значение (100500) не менялось, то оно так и останется таким. И переменная будет доступна в любом модуле.
Обратите внимание: переменные God, Mes, Srok, i, j, N будут иметь тип Variant.
P.S. Я глобальные всегда пишу каждую в отдельную строку.

The_Prist

Пользователь

Сообщений: 14181
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

30.04.2013 19:34:03

Вынесите присвоение переменным значений в отдельную процедуру(скажем InitPublic). Затем при открытии книги запускайте эту процедуру:

Код
Private Sub Workbook_Open() Call InitPublic End Sub

Так же на всякий случай в каждой процедуре, в которой переменная может понадобиться, можно делать проверку:

Код
If Mes = 0 Then Call InitPublic

Так же можете почитать про переменные:

Что такое переменная и как правильно её объявить?

А то Вы их объявляете неверно(Юрий уже указал Вам на это).

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012	Ну и вместо integer пишите Long — оно оправданнее в новых версиях VBA, и кроме того у Вас с integer не будет работать на весь лист (ругнётся на LastRow (As Integer)).

peat Пользователь Сообщений: 119 Регистрация: 21.04.2013	Юрий М, The_Prist, Hugo, спасибо Вам всем большое! ценные советы не знающим vba)

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

01.05.2013 01:10:30

The_Prist, сделал, как вы описали. Весь код в модулях прекрасно понимает глобальную переменную, но вот код в юзер форме отказывается это делать.
Вставил вот такую штуку

Код
If Srok = Empty Or Srok = 0 Then Call InitPublic

При дебагере эта процедура вызывается, но Srok все равно empty после прохождения.

Изменено: peat — 01.05.2013 01:11:07

Юрий М Модератор Сообщений: 60569 Регистрация: 14.09.2012 Контакты см. в профиле	А что у Вас в процедуре InitPublic? Где она? И может есть смысл показать небольшой файл, где всё это происходит?

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

#10

01.05.2013 01:45:56

Юрий М, видимо, она не там… Она в самом верху модуля, в котором бОльшая часть кода.
Содержит в себе вот что:

Код
Sub InitPublic() With Worksheets("123") God = .Range("God") Mes = .Range("Mes") Srok = God * 12 + Mes End With End Sub

Вероятно, она не там висит. Если не в этом дело, накрамсаю файл для примера.

Юрий М Модератор Сообщений: 60569 Регистрация: 14.09.2012 Контакты см. в профиле	И процедура InitPublic в модуле книги на событие открытия? Давайте лучше небольшой пример…

The_Prist Пользователь Сообщений: 14181 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	InitPublic должна быть расположена в стандартном модуле. Так же как и объявление Public переменных. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

нашел проблему — у меня не один стандартный модуль. При удалении других модулей глобальная переменная Srok спокойно работает в юзерформе. Надо создать какой-то другой модуль? читал по вашей ссылке про модуи классов — мне туда?

Изменено: peat — 01.05.2013 11:48:49

The_Prist Пользователь Сообщений: 14181 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	peat, Вы считаете необходимым пустое сообщение писать? Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

#15

01.05.2013 11:59:38

The_Prist, нет, просто надо было его удалить — не нашел кнопки)

попробовал создать модуль класса, запихнул туда

Код

Public God As Long
Public Mes As Long
Public Srok As Long

Sub InitPublic()
     With Worksheets("Исходные Данные")
     God = .Range("God")
     Mes = .Range("Mes")
     Srok = God * 12 + Mes
     End With
End Sub

не помогло — в юзер форме Srok = empty, если call InitPublic — то не находит ее..

The_Prist

Пользователь

Сообщений: 14181
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

Необходимо поместить в один стандартный модуль — ЛЮБОЙ. СТАНДАРТНЫЙ.
Не проще было уже выложить свой файл? 100% Вы сами себе проблему создали и саами не понимаете что и куда Вы пишите, что и приводит к некорректной работе.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

peat Пользователь Сообщений: 119 Регистрация: 21.04.2013	конечно, сам создал) но с вашей помощь сам и решил — в другом модуле эта же переменная тоже объявлялась, как паблик, в этом проблема и была)еще раз спасибо

Юрий М Модератор Сообщений: 60569 Регистрация: 14.09.2012 Контакты см. в профиле	Не понимаю — почему люди так упорно не желают показывать файлы-примеры?.. Давно бы получили правильный ответ.

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

у меня достаточно большой файл, в нем много кода. он не сложный, никуда не претендует, но его много) надо бОльшую часть удалить, чтобы не мешала поиску проблему — лениво немного) и выкладывать как-то стремновато — диплом все ж таки) хотя пока подготавливал файл к выкладыванию, нашел ошибку)

Юрий М

Модератор

Сообщений: 60569
Регистрация: 14.09.2012

Контакты см. в профиле

#20

01.05.2013 13:08:47

Цитата
peat пишет: лениво немного

Вам лениво готовить небольшой файл, а нам не лениво искать Вашу ошибку по описанию? С таким подходом помогающих у Вас поубавится…

The_Prist

Пользователь

Сообщений: 14181
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

На мой взгляд это как раз тот случай, когда размер не имеет значения

Ошибка-то явно в объявлении, а не в самих кодах. Поэтому даже большой проект можно просмотреть бегло только в нужных местах, не ковыряясь в кодах.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

peat

Пользователь

Сообщений: 119
Регистрация: 21.04.2013

#22

01.05.2013 14:04:23

The_Prist, да вот именно, что я не один раз объявлял ее в этих самых кодах и, чистя их, нашел понял в чем ошибка)

Цитата
Юрий М пишет: Вам лениво готовить небольшой файл, а нам не лениво искать Вашу ошибку по описанию?

мне казалось, скачивать файл еще муторней) В итоге, Вы и помогли по описанию

sm_ph

Пользователь

Сообщений: 1
Регистрация: 26.06.2019

#23

26.06.2019 13:49:50

У меня работает так:

Код

Public nastroyki As String
Public osnovnie_d As String
Public id_upd_v_buh As String
Public obmen_d As String

Public Sub Globalnie_peremennie()
nastroyki = "Настройки"
osnovnie_d = "Основные данные"
id_upd_v_buh = "3-три"
obmen_d = "4-четыре"
End Sub

Sub tttttt()
Globalnie_peremennie
MsgBox nastroyki & ", " & osnovnie_d & ", " & id_upd_v_buh & ", " & obmen_d
End Sub

Изменено: sm_ph — 26.06.2019 13:51:44

Источник

Permalink

Cannot retrieve contributors at this time

title	keywords	f1_keywords	ms.prod	ms.assetid	ms.date	ms.localizationpriority
Constant expression required	vblr6.chm1040114	vblr6.chm1040114	office	e0493fe4-8f50-c935-391f-0ffaca726b2b	06/08/2017	medium

A constant must be initialized. This error has the following causes and solutions:

You tried to initialize a constant with a variable, an instance of a user-defined type, an object, or the return value of a function call.

Initialize constants with literals, previously declared constants, or literals and constants joined by operators (except the Is logical operator).
array

To declare a dynamic array within a procedure, declare the array with ReDim and specify the number of elements with a variable.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).

[!includeSupport and feedback]

Источник

…this is a very difficult question to Google, because most of the questions/answers you find are due to people LEGITIMATELY misusing non-constant statements. If your code looks like this:

Dim i As Long
i = 5
Dim arr(i) As String

…then VBA will (rightly) complain that you can’t use a non-constant expression to declare an array. Or, if you do this:

Dim Pi As Double
Pi = 3.1415
Const Two_Pi As Double = Pi * 2

…then, again, VBA will complain that you NEED to use a constant there. That’s NOT what I’m talking about here…I’m talking about times when your code is perfectly fine:

Dim taskcount As Long
taskcount = 10
For i = 1 to taskcount
 Debug.Print i
Next i

…but VBA complains about it anyway, and flags that third line «taskcount» variable, saying «Constant Expression Required», when we all know that a constant expression is NOT required there. I have no idea why this occurs, but it just randomly pops up from time to time, and recompiling the project doesn’t do anything…even restarting the program, or the entire computer, does not help. As it turns out, all you need to do is this:

Ctrl+A

Ctrl+X

Ctrl+V

That’s right…just cut all the code out of the module and paste it back in. I have NO idea why this works, but I guess it just forces VBA to re-evaluate the code, and that somehow makes it realize that it was fine all along.

If anyone has any good explanation about why this issue occurs, or why this fixes it, I’d be really interested to know. Also, let me know if you are getting this error and this does NOT fix it…you may have legitimate code issues, or maybe this just doesn’t always work.

Источник