VBA Asc - Kā izmantot Asc funkciju programmā Excel VBA? (ASCII rakstzīmju kods)

Satura rādītājs

Excel VBA Asc funkcija

VBA funkciju Asc izmanto, lai funkcijai atgrieztu veselu skaitli, kas apzīmē rakstzīmju kodu, kas atbilst piegādātās virknes pirmajai rakstzīmei (virkne ir norādīta kā arguments / parametrs). To var izmantot vai norādīt makro kodā, kas parasti tiek ievadīts, izmantojot Visual Basic Editor.

Excel vide, kurā makro darbojas Visual Basic Editor (VBE), ko var izmantot makro kodu rediģēšanai un atkļūdošanai. Tajā atrodas makro kods un tas tiek saistīts ar Excel darbgrāmatu.

Funkcijas Asc atgrieztā veselā skaitļa vērtība ir atbilstošais ASCII rakstzīmju kods VBA. ASCII (American Standard Code for Information Interchange) ir 7 bitu rakstzīmju kodējums, kurā kopumā ir definētas 128 rakstzīmes, ieskaitot latīņu alfabētus, desmit arābu ciparus, dažas pieturzīmes un vadības rakstzīmes. Tajā nav diakritisko rakstzīmju, jo to kodēšanai nepieciešama vismaz 8 bitu vieta. Šī 8 bitu kodēšana tiek veikta ar ANSI (Amerikas Nacionālais standartu institūts), kurā kopumā ir definētas 256 rakstzīmes. ANSI sauc arī par paplašināto ASCII.

VBA Asc funkcijas sintakse

ASC funkcijas vispārējā sintakse ir šāda:

ASC formulas sintaksei ir šāds arguments:

Virkne: obligāta, apzīmē teksta virkni, kuras pirmā rakstzīme ir vēlama un ir jāatdod.

Ja piegādātajai virknei ir tikai viena rakstzīme, tad funkcija acīmredzami atgriež pašas rakstzīmes ciparu kodu.

Excel VBA Asc piemēri

Ļaujiet mums redzēt tālāk, kā Asc var izmantot programmā Excel VBA.

1. piemērs

Pieņemsim, ka mums ir Excel fails, kurā ir dažas virknes, un mēs vēlamies ar šīm virknēm izmantot funkciju Asc. Apskatīsim failā esošās virknes:

Mēs izmantojam funkciju Asc VBA makro, kuru var ierakstīt Visual Basic redaktorā un kuram var piekļūt šādi:

Pārejiet uz izstrādātāju un pēc tam noklikšķiniet uz Makro:

Tagad izveidojiet makro nosaukumu: Sadaļā “Makro nosaukums” ierakstiet vēlamās izveidotās makro nosaukumu un nolaižamajā izvēlnē “Makro” atlasiet PERSONAL.XLSB. Makro var saglabāt personiskajā darbgrāmatā, kas ir slēpta darbgrāmata, kas tiek atvērta fonā ikreiz, kad tiek startēta programma Excel. Atlasot PERSONAL.XLSB, makro tiktu saglabāts personīgajā darbgrāmatā, tādējādi padarot makro vienmēr pieejamu, jo personīgā darbgrāmata nav specifiska sistēmai / failam.

Noklikšķiniet uz Izveidot.

Tas atvērtu logu ar VBA apakšprocedūru Visual Basic redaktorā šādi:

Tagad definējiet mainīgo Result1

Kods:

Apakškods () Dim Result1 End Sub

Tagad piešķiriet mainīgo Result1 ar formulu, lai atgrieztu virknes rakstzīmju kodu:

Kods:

Apakškods () Dim Result1 Result1 = Asc ("Raj") End Sub

Rezultātā1 iegūto vērtību var parādīt un atgriezt, izmantojot VBA ziņojumu lodziņu (MsgBox) šādi:

Kods:

Apakškods () Dim Result1 Result1 = Asc ("Raj") MsgBox Result1 End Sub

Tagad, kad mēs palaižam šo kodu manuāli, loga augšdaļā noklikšķinot uz “Izpildīt” vai nospiežot F5, mēs saņemam virknes pirmā burta rakstzīmju kodu: “Raj” tiek parādīts ziņojumu lodziņā šādi:

Tātad, iepriekš redzamajā ekrānuzņēmumā mēs varam redzēt, ka, palaižot makro, ziņojuma lodziņā tiek atgriezts “82”. Tas nozīmē, ka rakstzīmes kods R ir 82.

Tagad, teiksim iepriekš minētajā piemērā, mēs vēlamies atrast virknes rakstzīmju kodu: “Karan”. Lai to izdarītu, mēs rīkojamies tāpat kā iepriekš.

Kodā Radža vietā rakstīsim Karan, lai iegūtu tā rakstzīmju kodu.

Kods:

2. apakšējā virkne () Dim Result2 Result2 = Asc ("Karan") MsgBox Result2 End Sub

Tagad mēs palaižam šo kodu manuāli vai nospiežot F5, un mēs saņemam virknes pirmā burta rakstzīmes kodu: “Karan”, kas tiek parādīts ziņojumu lodziņā šādi:

Tātad, iepriekš redzamajā ekrānuzņēmumā mēs varam redzēt, ka, palaižot makro, ziņojuma lodziņā tiek atgriezts “75”. Tas nozīmē, ka rakstzīmes kods “K” ir 75.

Tagad apskatīsim, kā mainās atlikušo virkņu rezultāts:

Kods:

Apakšvirsraksts3 () Dim Result2 Result2 = Asc ("Heena") MsgBox Result2 End Sub
Apakšējā virkne4 () Dim Result2 Result2 = Asc ("Arun") MsgBox Result2 End Sub
5. apakšējā virkne () Dim Result2 Result2 = Asc ("A") MsgBox Result2 End Sub
Apakš virkne6 () Dim Result2 Result2 = Asc ("a") MsgBox Result2 End Sub

Veicot šīs apakšprocedūras pa vienai, ziņojumu lodziņā tiek atgriezti šādi rakstzīmju kodi (attiecīgi pa vienam). Šis ir atbilstošo vērtību saraksts, kas atgriezts iepriekš minētajām virknēm.

Tātad, kā ilustrēts iepriekš redzamajā ekrānuzņēmumā, mēs varam redzēt, ka funkcija ASC simbolu kodu virknei: “Arun” un arī virknei: “A.” atgriež. Tas ir tāpēc, ka atgrieztais rakstzīmju kods ir VBA ASCII vai līdzvērtīgs rakstzīmju kods virknes pirmajam burtam, ja virkne ir vairāk nekā viena rakstzīme. Tādējādi 65 tiek atgriezts abiem kā virknes sākotnējais vai pirmais raksturs: “Arun” ir arī “A.”

2. piemērs

Ja VBA ASC funkcijai kā parametrs / arguments piegādāta virkne ir tukša / tukša virkne (vai virkne bez rakstzīmēm), funkcija atgriež izpildes laika kļūdu.

Šis kods izskaidro to pašu.

Apakšējā tukšā vieta () Rezultāta rezultāts = Asc ("") MsgBox (rezultāts) Beigu apakšnodaļa

Palaidot šo kodu, tiek parādīta Run-time kļūda šādi.

Tātad, iepriekš redzamajā ekrānuzņēmumā mēs varam redzēt, ka tad, kad virkne, kas tiek piegādāta kā parametrs vai arguments ASC funkcijai, ir tukša / tukša, un pēc tam funkcija atgriež izpildlaika kļūdu.

Atceramās lietas

  • VBA ASC funkcijai piegādātā virkne var būt jebkura derīga virknes izteiksme.
  • Asc funkcija ir reģistrjutīga.
  • Funkcijas Asc atgrieztā veselā skaitļa vērtība ir diapazonā no 0 līdz 255.
  • ASCII kodi VBA AZ ir 65-90 un az ir 97-122.
  • Makro vai apakšprocedūrai piešķirtais nosaukums nevar būt kādas VBA noklusējuma funkcijas nosaukums. Ja tā nosaukta, apakšprocedūrā tiks parādīta kļūda.

Interesanti raksti...