Как сделать так , чтобы переменная на русском языке не выводило ошибку - VBA
Формулировка задачи:
А как сделать так , чтобы при назначении переменной на русском языке (что необходимо для отображения в ComboBox) не выдавала ошибку? Или я что то не так сделал?
Решение задачи: «Как сделать так , чтобы переменная на русском языке не выводило ошибку»
textual
Листинг программы
Option Explicit Dim acadApp As AcadApplication Dim acadDoc As AcadDocument Dim acadCircle As acadCircle 'Пикет 20 см в диаметре Dim acadLayerPiket As AcadLayer Dim acadLayerNum As AcadLayer Dim acadText As acadText Dim ValuesRange As Variant Dim Piket_counter As Integer Dim Flag As Boolean Dim Белый As Long Dim Красный As Long Dim Жолтый As Long Dim Зеленый As Long Dim Синий As Long Dim Голубой As Long Dim Фиолетовый Long Private Sub UserForm_Initialize() Белый = acWhite Красный = acRed Жолтый = acYellow Зеленый = acGreen Синий = acBlue Голубой = acCyan Фиолетовый = acPurple ComboBox1.AddItem "Белый" ComboBox1.AddItem "Красный" ComboBox1.AddItem "Жолтый" ComboBox1.AddItem "Зеленый" ComboBox1.AddItem "Белый" ComboBox1.AddItem "Синий" ComboBox1.AddItem "Голубой" ComboBox1.AddItem "Фиолетовый" AutoCAD_Connection End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д