Vba excel asc код

Excel VBA ASC

ASCII which is American Standard Code for Information Interchange has introduced a proper structure for each number and alphabets. And these ASC Codes are frequently used in many programming languages. In VBA also, we have these ASC Codes applicable in many ways. These codes are created for each programming languages so that computer can understand which is being fed to it. ASCII is the numerical representation of every word and alphabet.

In ASC, we have different types of characters printing characters (which can be seen) to non-printing characters (which cannot be seen such as any process or spaces). For example, we someone says “Good Morning” to you then it is being communicated with sound waves. Now if same we want to feed this into a computer or send a message to anyone then the computer will convert the text “Good Morning” into ASC Codes and then the message will get transferred to that person. But again that person will receive the message in a text, not in some codes.

Formula For ASC Function in Excel VBA

Let us look below the formula for ASC function in VBA.

How to Use the ASC Function in Excel VBA?

Below are the different examples to use ASC function in Excel using VBA code.

You can download this VBA ASC Excel Template here – VBA ASC Excel Template

Excel VBA ASC – Example #1

We can get the table of ASC from the ASCII website. We have already shown that table for reference. Below is the table which has Dec, Hex, HTML ASC codes for special non-printing characters and alphabets from A to Z.

And moreover, we have ASC codes for special characters and some mathematical signs as well as shown below starting from 128 to 255.

In total, we have 255 ASC codes which can be used in VBA. Now we will implement these codes in VBA also.

• Go to VBA Insert menu option and open a Module as shown below.

• Now in the opened module write the subcategory of VBA ASC function as shown below.

Code:

Sub VBA_ASC()

End Sub

• After that define a variable DIM with any name, let’s say it is “A” and assign it Integers. Although we will be giving text and numbers as an input to variable A but using Integer because VBA ASC function considers integers as an output in which input will be as a string. We will see this further.

Code:

Sub VBA_ASC()

Dim A As Integer

End Sub

• Now assign variable A to ASC function as shown below.

• Now select any word or alphabet as per need inside the brackets as shown below.

Code:

Sub VBA_ASC()

Dim A As Integer

A = Asc("B")

End Sub

• Now to see the ASC code value it is best to use the message box. Assign a MsgBox to variable A as shown below.

Code:

Sub VBA_ASC()

Dim A As Integer

A = Asc("B")

MsgBox A

End Sub

• Once done, then click on the play button which is located below the menu bar to run the code.

We will see, the ASC code of alphabet “B” is coming as 66. This is the same code mentioned in ACS Table which we have been at the starting of example-1.

Excel VBA ASC – Example #2

In this example, we will see, how a complete word will be encoded with the help of VBA ASC. For this we will use the same code structure which we have seen in example-1, only keeping only brackets of ASC function blank as shown below.

Now let’s insert any word into those brackets. Let’s consider that word “Excel”

Code:

Sub VBA_ASC1()

Dim A As Integer

A = Asc("Excel")

MsgBox A

End Sub

Now compile the code and run it after that. We will see ASC function has generated the ASC code as 69 as shown below.

And if we match this ASC Code with the list which we saw in example-1, then we will see that for capital E which is at the start of Excel is marked as 69.

Excel VBA ASC – Example #3

In this example, we will see how a lower case letter of the same word can give ASC code. For this we will consider the same word which we have seen above example “Excel” but we will keep “e” in lower case. Consider the same body of code which we have used above.

Now in that bracket write “excel” in lower case.

Code:

Sub VBA_ASC2()

Dim A As Integer

A = Asc("excel")

MsgBox A

End Sub

Again, compile and run the code. We will see, for lower case “e” the ASC Code is coming as 101 as shown below.

If we match this with the list shown in example-1, we will see, for each lower case alphabet, there is separate ASC code given which is different than that of Upper case letters.

Excel VBA ASC – Example #4

In this example, we will see how a special character can be used to get the ASC code out of it. Again, we will continue using the same code format that we have seen in example-1.

Now insert any special character which is allowed to be used in VBA coding. We mostly use an ampersand (&) in VBA in different forms. So we will continue with the same here as well.

Code:

Sub VBA_ASC3()

Dim A As Integer

A = Asc("&")

MsgBox A

End Sub

Again compile the code and run. We will see the message box containing ASC Code as 38 as shown below.

And if we match this code with the table shown in example-1 we will see, for the ampersand (&) ASC code is defined as 38.

Pros of Excel VBA ASC

• ASC Code is very revolutionary when it got introduced, as it is very helpful in standardizing the transmission of computer codes and messages.
• For each letter respective of upper and lower cases, ASCII has given separate ASC code so that word in upper case and lower case will get encode as it is fed.

Things to Remember

• VBA doesn’t consider ASC codes of complex mathematical symbols which are the Extended ASCII Codes. An only simple character can be used to get it Dec ASC Code.
• Upper and lower case alphabets have different ASC codes.
• VBA generates only Dec of ASC codes.
• Once done, must save the file in Macro enabled excel format. So that VBA code can be retained.

Recommended Articles

This is a guide to VBA ASC Function. Here we discuss how to use ASC function in Excel VBA along with practical examples and a downloadable excel template. You can also go through our other suggested articles –

1. VBA Match
2. VBA StrComp
3. VBA Web Scraping
4. VBA XML

Excel VBA Asc Function

The Asc function in VBA returns an integer value representing a character code corresponding to the function’s first character of a supplied string (string provided as argument/parameter). It can be used or given in a macro code generally entered via Visual Basic Editor.

We can use the Excel environment in which the macro runs in the Visual Basic Editor (VBE) to edit and debug the macro codes. It holds the macro code and links it to the Excel workbook.

The integer value returned by the Asc function is the corresponding ASCII character code in VBA. ASCII (American Standard Code for Information Interchange) is a 7-bit character encoding that has a total of 128 characters defined in it, including Latin alphabets, ten Arabic numerals, some punctuation marks, and control characters. It does not include diacritical characters as they require a minimum space of 8-bit for encoding. We can perform this 8-bit coding with ANSI (American National Standards Institute), which has 256 characters defined. ANSI is also called extended ASCII.

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Asc (wallstreetmojo.com)

Syntax of VBA Asc Function

The general syntax for the ASC function is as follows:

The ASC formula syntax has the following argument:

String: Required. It represents the text string whose first character’s corresponding character code is desired and returned.

If the string supplied has only one character, then the function returns the numeric character code for that character itself.

Examples of Excel VBA Asc

Let us see below how we can use the Asc in Excel VBA.

You can download this VBA Asc Function Excel Template here – VBA Asc Function Excel Template

Example #1

We have an Excel file containing some strings. We wish to use the Asc function with these strings. But, first, let us see the strings contained in the file:

We use the Asc function in VBA in a macro that can be written in the Visual Basic Editor and can be accessed as follows:

First, go to “Developer,” and then click on “Macros.”

Now, create a macro name: Under “Macro Name,” write the name of the macro desired to be created and select PERSONAL.XLSB in the dropdown of ‘Macros In.’ We can store the macros in a personal workbook, a hidden workbook that opens in the background whenever we start Excel. Selecting PERSONAL.XLSB would save the macros in the Personal workbook, thus making the macro always available since the personal workbook is not system/file specific.

Click on “Create.”

It would open a window with a VBA subprocedureSUB in VBA is a procedure which contains all the code which automatically gives the statement of end sub and the middle portion is used for coding. Sub statement can be both public and private and the name of the subprocedure is mandatory in VBA.read more in Visual Basic Editor as follows:

Now, define the variable Result1

Code:

Sub Code()

Dim Result1

End Sub

Now, assign the variable Result1 with the formula to return the character code of the string:

Code:

Sub Code()

Dim Result1

Result1 = Asc("Raj")

End Sub

Now, the resultant value of Result1 can be displayed and returned using a VBA message boxVBA MsgBox function is an output function which displays the generalized message provided by the developer. This statement has no arguments and the personalized messages in this function are written under the double quotes while for the values the variable reference is provided.read more (MsgBox) as follows:

Code:

Sub Code()

Dim Result1

Result1 = Asc("Raj")

MsgBox Result1

End Sub

Now, when we run this code manually by clicking on “Run” at the top of the window or by pressing F5, we get the character code of the first letter of the string: “Raj,” displayed in a message box as follows:

So, we can see in the above screenshot that on running the macro, “82” is returned in a message box. It implies that the character code for “R” is 82.

Now, in the above example, we wish to find the character code for the string: “Karan.” To do this, we follow the same steps as above.

Instead of Raj, we will write Karan to get its character code in the code.

Code:

Sub String2()

Dim Result2
Result2 = Asc("Karan")
MsgBox Result2

End Sub

Now, we run this code manually or by pressing F5, and we get the character code of the first letter of the string: “Karan,” displayed in a message box as follows:

So, we can see in the above screenshot that on running the macro, “75” is returned in a message box. It implies that the character code for ‘K’ is 75.

Now, let us see how the result changes for the remaining strings:

Code:

Sub String3()

Dim Result2
Result2 = Asc("Heena")
MsgBox Result2

End Sub

---

Sub String4()

Dim Result2
Result2 = Asc("Arun")
MsgBox Result2

End Sub

---

Sub String5()

Dim Result2
Result2 = Asc("A")
MsgBox Result2

End Sub

---

Sub String6()

Dim Result2
Result2 = Asc("a")
MsgBox Result2

End Sub

On running these sub-procedures one by one, the following character codes return in the message box (one at a time, respectively). It is the list of corresponding values returned for the above strings.

So, as the above screenshot, we can see that the ASC function returns the character code as 65 for the string: “Arun” and the string: “A” because the character code returned is the VBA ASCII or equivalent character code for the first letter of the string in case the string is more than one character. Hence, 65 returns for both as the initial or first character of the string: “Arun” is also “A.”

Example #2

If the string supplied as parameter/argument to the VBA ASC function is an empty/blank string (or a string with no characters), then the function returns a run-time error.

The following code explains the same.

Sub blank()
Dim result
result = Asc("")
MsgBox (result)

End Sub

When we run this code, we get the run-time error as follows.

So, we can see in the above screenshot that when the string supplied as a parameter or argument to the ASC function is blank/empty, the function returns a run-time error.

Things to Remember

• The string supplied to the VBA ASC function can be any valid string expression.
• The Asc function is case-sensitive.
• The integer value returned by the Asc function is in the range of 0-255.
• The ASCII codes in VBA for A-Z are 65-90, and for a-z are 97-122.
• The name given to a macro or sub-procedure cannot be the name of some default function in VBA. If named so, then the sub-procedure will show an error.

Recommended Articles

This article has been a guide to VBA Asc. Here, we discuss examples of the Asc function in VBA to return ASCII Character codes, examples, and downloadable Excel templates. Below you can find some useful Excel VBA articles: –

• Goal Seek in VBA
• VBA Chr
• VBA StrConv Function
• Use Char Function In Excel
• VBA StatusBar