Двойные кавычки и кавычки «ёлочки» в коде VBA Excel. Коды символов кавычек и ввод кавычек «ёлочек» в редакторе VBA Excel с клавиатуры. Примеры.
Двойные кавычки
Двойные прямые кавычки ("Весна") обычно называют просто «двойные кавычки» или «прямые кавычки», так как в текстах они встречаются намного чаще одинарных прямых кавычек ('Весна').
В VBA Excel прямые кавычки являются специальными символами, обозначающими текст:
|
1 |
x = "Магазин Весна открыт" |
Переменной x присваивается строка (текст): Магазин Весна открыт.
Если мы хотим отобразить эту строку со словом "Весна" в двойных кавычках, необходимо слово в прямых кавычках экранировать еще одной парой двойных кавычек (""Весна"") или использовать функцию Chr, возвращающую символ по его числовому коду. Числовой код прямых кавычек — 34.
Пример добавления двойных прямых кавычек внутри текста из кода VBA Excel:
|
1 2 3 4 5 6 7 |
Sub Primer1() Dim x As String x = "Магазин ""Весна"" открыт" Debug.Print x 'Магазин "Весна" открыт x = "Магазин " & Chr(34) & "Весна" & Chr(34) & " открыт" Debug.Print x 'Магазин "Весна" открыт End Sub |
Кавычки «ёлочки»
Двойные кавычки «ёлочки» обычно называют просто кавычки «ёлочки», так как одинарные ‹ёлочки› встречаются очень редко.
Двойные кавычки «ёлочки» не являются спецсимволами, поэтому в строках внутри процедур VBA Excel их можно использовать не только через функцию Chr по числовому коду символа, но и ввести с клавиатуры.
Ввод «ёлочек» с клавиатуры в редакторе VBA Excel осуществляется также с помощью числовых кодов символов открывающей и закрывающей кавычек:
- числовой код открывающей кавычки (
«) — 171; - числовой код закрывающей кавычки (
») — 187.
Сочетания клавиш для ввода «ёлочек» с клавиатуры:
- Alt+0171 — ввод открывающей кавычки (
«); - Alt+0187 — ввод закрывающей кавычки (
»).
Обратите внимание, что для ввода «ёлочек» с клавиатуры используется левая клавиша Alt, а числовой код набирается на цифровом блоке справа.
Пример добавления двойных кавычек «ёлочки» внутри текста из кода VBA Excel:
|
1 2 3 4 5 6 7 |
Sub Primer2() Dim x As String x = "Магазин «Весна» открыт" Debug.Print x 'Магазин «Весна» открыт x = "Магазин " & Chr(171) & "Весна" & Chr(187) & " открыт" Debug.Print x 'Магазин «Весна» открыт End Sub |