[ad_1]
Использование шестнадцатеричной системы счисления упрощает понимание чисел, используемых некоторыми объектами или свойствами VBA. Одним из таких свойств является цвет. Например, запись с основанием 10 «65025» не раскрывает структуру числа из трех частей, но использование шестнадцатеричной записи того же числа «&HFF00FF» раскрывает эту структуру: красный компонент цвета находится в двух частях. крайние правые символы, синий компонент находится в двух средних символах, а зеленый компонент — в пятом и шестом символах справа.
Шестнадцатеричная математика
Шаг 1
Перейдите на вкладку «Разработчик», чтобы открыть элементы управления для работы с VBA.
Шаг 2
Нажмите кнопку «Visual Basic», чтобы войти в среду программирования VBA.
Шаг 3
Вставьте следующую программу в окно в центре экрана. Эта программа использует шестнадцатеричный символ VBA «&H» для определения двух переменных, «a» и «b». Переменная «x» содержит сумму этих двух чисел, а оператор «MsgBox» отображает нешестнадцатеричные представления «a», «b» и «x».
Public Sub doHexMath() Dim x, a, ba = &H10 b = &HA x = a + b MsgBox a & «плюс» & b & «равно» & x End Sub
Шаг 4
Щелкните любой из операторов программы, чтобы выбрать программу.
Шаг 5
Щелкните команду «Выполнить» в меню «Выполнить». Excel отобразит сообщение «16 плюс 10 равно 26». В шестнадцатеричном формате «10» равно 16, а «А» равно 10.
Установить цвета
Шаг 1
Перейдите на вкладку «Разработчик», затем нажмите кнопку «Visual Basic» на панели «Код». Это действие вызовет среду программирования VBA.
Шаг 2
Вставьте следующую программу в появившееся окно программирования. Эта программа использует шестнадцатеричное представление для назначения цвета фона текущей выбранной ячейке в рабочей книге. Это обозначение появляется в присвоении переменных «красный», «зеленый» и «синий». Оператор «ActiveCell» также использует шестнадцатеричное представление и добавляет компоненты «красный», «зеленый» и «синий» вместе, чтобы получить число в формате, необходимом для установки цветов в Excel. Обратите внимание, что только «красная» переменная не равна нулю. Это означает, что цвет, который вы увидите, будет чисто красным.
Public Sub colorCell() Тусклый синий, зеленый, красный красный = &HFF зеленый = &H0 синий = &H0 ActiveCell.Interior.Color = синий * &HFF00 + зеленый * &HFF + красный End Sub
Шаг 3
Щелкните любой оператор в программе, чтобы выбрать программу для выполнения.
Шаг 4
Щелкните команду «Выполнить» в меню «Выполнить», чтобы запустить программу.
Шаг 5
Щелкните значок «Excel» на панели задач Windows, чтобы вернуться в Excel. Обратите внимание, что текущая ячейка имеет красный цвет, указанный на шаге 2.
[ad_2]
