Как сделать так , чтобы переменная на русском языке не выводило ошибку - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.571 из 5
Похожие ответы