Функция Excel VBA CHR
VBA CHR е вградена функция, която попада в категорията String / Text Functions и се използва за получаване на символ, еквивалентен на ASCII кода. Еквивалентната функция на работното пространство на Excel на CHR е Application.WorksheetFunction.CHAR.
По-долу е даден Chr синтаксисът.
Тази функция има един аргумент. Където,
Charco de = Това е задължителен параметър. Това е ASCII код, за който трябва да бъде извлечен еквивалентен знак.
Функцията връща низова стойност, обозначаваща символа, еквивалентен на дадения ASCII код. ASCII е подмножество на стандарта за кодиране на символи Unicode и се формира от 128 символа в набора от символи. Символите се състоят от главни, малки букви, цифри, специални знаци, включително контролни знаци и препинателни знаци. Всеки символ в набора от символи има еквивалентна десетична стойност (от 0 до 127), шестнадесетична стойност и осмична стойност.
Пример
Стъпка 1 : В Excel листа добавете 2 заглавни текста в клетки A1 и C1, както е показано на фигурата по-долу. Колона A за въвеждане на ASCII кода и Колона C за отпечатване на съответния знак, изчислен с помощта на функцията CHR.
Стъпка 2 : Следвайте стъпките, показани в следващия раздел, за да създадете бутон в работната книга на Excel (моля, превъртете статията) и променете надписа му на „Щракнете тук“.
Стъпка 3 : Напишете следния кодов фрагмент във VBA. Кодът отчита стойността от клетка A2, която се дава като вход за функциониране на CHR. Резултатът се извлича в String char1 и след това се присвоява на клетка C2.
Код:
Sub Button1_Click () 'Тази функция връща символа за стойността, въведена в клетка A2 Dim char1 As String' Декларирайте променливата char1 като String char1 = Chr (Обхват ("A2"). Стойност) 'Прочетете стойност от клетка A2 Обхват ("C2 "). Стойност = char1 'Отпечатване на изход в клетка C2 End Sub
Стъпка 4: Запазете кода на VBA Excel и се върнете в работната книга на Excel, за да въведете входната стойност в клетка A2, както е показано по-долу.
Въведете 65 като ASCII вход, за който съответният знак трябва да бъде намерен в клетка C2.
Стъпка 5: Щракнете върху бутона „Щракнете тук“, за да отпечатате резултата в клетка C2.
Наблюдавайте резултата, отпечатан в клетка C2. Кодовият фрагмент, който написахме в стъпка 3, е отговорен за четене на входа от клетка A2, стартиране на функцията Chr върху нея и отпечатване на стойността в клетка C2, както е показано по-долу.
Тук входът е въведен като 65, а полученият резултат е A. И така, Chr (65) = A.
Стъпка 6 : Опитайте да промените входа в клетка A2 и наблюдавайте, че получавате съответния изход в клетка C2, както е показано по-долу.
Например CHR (37) =% и т.н.
Как да създам бутон в Excel?
Като функция на VBA, тя може да се използва в Excel макро код, който се въвежда чрез Microsoft Visual Basic Editor, интегриран в MS Excel. Обърнете се към стъпките, дадени по-долу, за да научите повече.
Стъпка 1: Включете режима за програмисти в Excel
За да се използва която и да е функция на VBA в Excel, трябва да се включи режимът за програмисти от меню Файл-> Опции, както е показано на фигурата по-долу.
Кликнете върху Файл -> Опции -> Лента на клиента -> Програмист -> ОК
В резултат на това към работната книга ще бъде добавена нова опция в лентата с инструменти, наречена „Разработчик“, както е показано на снимката по-долу.
Стъпка 2: Запазване на работната книга
Запазете работната книга на Excel като „Работна книга с активиран макрос на Excel“.
Стъпка 3: Поставете контрола на формуляр в работна книга
- Кликнете върху раздела за програмисти. И в подраздела „Контроли“ кликнете върху опцията „Вмъкване“ във VBA.
- Choose the first control i.e., Button
- Observe that the workbook cursor changes to a drawable icon.
- As you try to draw a button, a new dialog window named ‘Assign Macro’ will launch. There you can specify the macro name, which will be used in the VB code as we learn more. E.g., Button1_Click. Click OK.
- A button will then be automatically inserted in the workbook. The caption text of the button is editable and can be edited by double-clicking on the button.
Step 4: Write VB code
- Select the button and click on the very first option from the left under the ‘Code’ sub-section of the Developer tab, i.e., ‘Visual Basic.’
- This will launch a new window of the VBA project, as shown in the picture below.
- As shown in the above figure, an empty skeleton for the earlier created macro i.e., Button1_Click, is populated in the VB code window.
- Можете да напишете дефиницията на макроса според вашето намерение. Тук ще видим пример за функцията VBA CHAR в следващия раздел.
Стъпка 5: Превключване между работната книга на Excel и VB IDE
Можете да превключвате между работната книга на Excel и VB IDE, като щракнете върху крайната лява икона под менюто „Файл“, т.е. „Преглед на Microsoft Excel“, както е показано по-долу.
Неща за запомняне
- Функцията CHR може да върне печатаеми, както и непечатаеми символи, налични на клавиатурата и разбрани от компютъра. Например, букви, цифри и други специални символи са знаци за печат. Други клавиши като Enter, Space, Esc са непечатни знаци.
- CHR е функция на VBA и не може да се използва в Excel, както е. Съответната му функция в Excel е Application.WorksheetFunction.CHAR
