Могу ли я одновременно объявить и назначить переменную в VBA?

Question

Могу ли я одновременно объявить и назначить переменную в VBA?

133

Я новичок в VBA и хочу знать, могу ли я преобразовать следующее объявление и назначение в одну строку:

Dim clientToTest As String
clientToTest = clientsToTest(i)

или

Dim clientString As Variant
clientString = Split(clientToTest)

Ian R. O'Brien 15 июль 2010, в 15:06

Источник

Теги:

vba

variable-declaration

3 ответа

17

Вы можете сортировать это с объектами, как в следующем.

Dim w As New Widget

Но не со строками или вариантами.

John M Gant 15 июль 2010, в 14:27

0

Это не правильно, в целом. Вы можете объявить и инициализировать переменную в одной строке с любым типом данных (значением или объектом), просто разделив «действие» с помощью точки с запятой : Существуют некоторые ограничения, поскольку вы не можете иметь несколько объявлений значений в одной строке (т. var1 = val1: var2 = val2 ). Он будет ошибаться сперадически и позволит вам иногда выполнять этот тип назначения, но в целом не предлагается этой нотацией.
GoldBishop 10 окт. 2012, в 14:17
2

@GoldBishop, да, использование двоеточия для объединения нескольких операторов в одну строку обычно работает (как сказал Алекс К.). То, что я говорю, не будет работать со строками или вариантами (или, возможно, с другими примитивами) - это синтаксис Dim x As New T , который работает только с объектами.
John M Gant 10 окт. 2012, в 16:56
0

да, он не будет работать с линией инициализации конструктора, но будет работать с назначениями Variant и String. Я все время использую его для типов значений и некоторых типов объектов. dim str as String: str = "value" и dim str as Worksheet: set str = ActiveWorkbook.worksheets("Sheet1") работают несколько раз. Хотя, если я сделаю экземпляр объекта dim ws as New Worksheet: set ws = ActiveWorkbook.Worksheets("Sheet1") выдает ошибку, как любая другая недопустимая операция в VBA.
GoldBishop 10 окт. 2012, в 19:06
3

Трюк с двоеточием работает с вариантами и строковыми присвоениями. New ключевое слово не. Это все, что я говорю.
John M Gant 10 окт. 2012, в 19:56
2

@JohnMGrant, возможно, захочет уточнить ваш ответ, так как я читаю его, заявляет: вы не можете выполнять присваивание одной строки с инициализацией конструктора и типами строковых / вариантных значений. Может быть, немного смущает некоторых.
GoldBishop 10 окт. 2012, в 22:14
0

@JohnMGant, @GoldBishop: dim ws as New Worksheet: set ws = ActiveWorkbook.Worksheets("Sheet1") работает в Excel 2010! Так что New вызывает проблем там. (конечно, не имеет смысла инициализировать то, что будет немедленно переопределено)
Andreas Dietrich 16 янв. 2019, в 10:42
0

@AndreasDietrich хорошее наблюдение в обеих точках. Это работает, но нет причин делать это, о чем я могу подумать (хотя я и не занимался VBA более 10 лет). Я думаю, что ключевым выводом из всего этого является то, что двоеточие просто позволяет вам объединять два утверждения в одну строку. Двоеточие синтаксически эквивалентно переводу строки в этом использовании. В некоторых случаях может помочь читабельность, но я думаю, что в общем случае кодирование было неодобрительным.
John M Gant 17 янв. 2019, в 17:42
0

@AndreasDietrich ... кто сказал, что VBA имеет смысл? :) Я убежал от VB5 / 6, как только .Net вышел из-за сумасшедших шаблонов синтаксиса для выполнения относительно простых действий для VBA / 5/6.
GoldBishop 23 янв. 2019, в 20:40

Показать ещё 6 комментариев

0

на самом деле, вы можете, но не так.

Sub MySub( Optional Byval Counter as Long=1 , Optional Byval Events as Boolean= True)

'code...

End Sub

И вы можете установить переменные по-разному при вызове sub или оставить их по умолчанию.

Patrick Lepelletier 07 март 2016, в 21:29

5

Это для аргументов, а не локальных переменных.
ivan_pozdeev 09 июль 2017, в 03:28

Ещё вопросы

Это не правильно, в целом. Вы можете объявить и инициализировать переменную в одной строке с любым типом данных (значением или объектом), просто разделив «действие» с помощью точки с запятой : Существуют некоторые ограничения, поскольку вы не можете иметь несколько объявлений значений в одной строке (т. var1 = val1: var2 = val2 ). Он будет ошибаться сперадически и позволит вам иногда выполнять этот тип назначения, но в целом не предлагается этой нотацией.
@GoldBishop, да, использование двоеточия для объединения нескольких операторов в одну строку обычно работает (как сказал Алекс К.). То, что я говорю, не будет работать со строками или вариантами (или, возможно, с другими примитивами) - это синтаксис Dim x As New T , который работает только с объектами.
да, он не будет работать с линией инициализации конструктора, но будет работать с назначениями Variant и String. Я все время использую его для типов значений и некоторых типов объектов. dim str as String: str = "value" и dim str as Worksheet: set str = ActiveWorkbook.worksheets("Sheet1") работают несколько раз. Хотя, если я сделаю экземпляр объекта dim ws as New Worksheet: set ws = ActiveWorkbook.Worksheets("Sheet1") выдает ошибку, как любая другая недопустимая операция в VBA.
Трюк с двоеточием работает с вариантами и строковыми присвоениями. New ключевое слово не. Это все, что я говорю.
@JohnMGrant, возможно, захочет уточнить ваш ответ, так как я читаю его, заявляет: вы не можете выполнять присваивание одной строки с инициализацией конструктора и типами строковых / вариантных значений. Может быть, немного смущает некоторых.
@JohnMGant, @GoldBishop: dim ws as New Worksheet: set ws = ActiveWorkbook.Worksheets("Sheet1") работает в Excel 2010! Так что New вызывает проблем там. (конечно, не имеет смысла инициализировать то, что будет немедленно переопределено)
@AndreasDietrich хорошее наблюдение в обеих точках. Это работает, но нет причин делать это, о чем я могу подумать (хотя я и не занимался VBA более 10 лет). Я думаю, что ключевым выводом из всего этого является то, что двоеточие просто позволяет вам объединять два утверждения в одну строку. Двоеточие синтаксически эквивалентно переводу строки в этом использовании. В некоторых случаях может помочь читабельность, но я думаю, что в общем случае кодирование было неодобрительным.
@AndreasDietrich ... кто сказал, что VBA имеет смысл? :) Я убежал от VB5 / 6, как только .Net вышел из-за сумасшедших шаблонов синтаксиса для выполнения относительно простых действий для VBA / 5/6.
Это для аргументов, а не локальных переменных.

Alex K. · Accepted Answer · 2010-07-15T15-13-00.000Z

К сожалению, в VBA нет сокращения. Самое близкое, что вы получите, - это чисто визуальная вещь, использующая символ продолжения : если вы хотите, чтобы он был в одной строке для удобства чтения;

Dim clientToTest As String:  clientToTest = clientsToTest(i)
Dim clientString As Variant: clientString = Split(clientToTest)

Подсказка (резюме других ответов/комментариев): Работает и с объектами (Excel 2010):

dim ws as Worksheet: set ws = ActiveWorkbook.Worksheets("Sheet1")
dim ws2 as New Worksheet: ws2.Name = "test"

+1, я помню, как Microsoft предлагала при сборке в .NET, чтобы разработчики VB6 начали это делать, чтобы подготовиться к VB.NET.