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

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.

Šo VBA Asc Function Excel veidni varat lejupielādēt šeit - VBA Asc Function Excel veidne

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ēlnes “Makro iekšā” 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 personiskajā 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 Result

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 “R” rakstzīmju kods ir 82.

Ļaujiet mums teikt, ka iepriekš minētajā piemērā mēs vēlamies atrast rakstzīmes kodu virknei: “Karan”. Lai to izdarītu, mēs rīkojamies tāpat kā iepriekš.

Kodā Raj vietā mēs 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īmju 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š 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ņojuma 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ž kā 65. 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, tad funkcija atgriež izpildes laika 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.
  • AS VII ASCII kodi AZ ir 65-90, bet 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.

$config[zx-auto] not found$config[zx-overlay] not found