Konvertujte záporné hodnoty považované za text pomocou jazyka VBA v programe Microsoft Excel

Anonim

V tomto článku vytvoríme vlastnú funkciu na prevod záporných reťazcov na celé číslo.

Pôvodné údaje pre tento článok pozostávajú zo reťazcov, za ktorými nasleduje znamienko mínus (-).

Tieto reťazce chceme previesť na celé čísla.

Logické vysvetlenie

V tomto článku sme vytvorili vlastnú funkciu ConvertNegNumbers na prevod reťazca na celé číslo. Táto funkcia preberá hodnotu reťazca ako vstup a ako výstup vracia celé číslo.

Vysvetlenie kódu

Vpravo (Var, 1) = "-"

Vyššie uvedený kód sa používa na kontrolu, či sa posledný znak reťazca rovná znamienku mínus (-).

ConvertNegNumbers = CInt (" -" a vľavo (Var, Len (Var) - 1))

Vo vyššie uvedenom kóde sa ľavá funkcia používa na extrahovanie všetkých znakov v reťazci, okrem posledného. Funkcia CInt sa používa na prevod hodnoty reťazca na celé číslo.

Pri kódovaní postupujte podľa nižšie uvedených pokynov

 Možnosť Explicitná funkcia ConvertNegNumbers (Var ako reťazec) 'Kontrola, či je posledný znak v reťazci mínus (-) Ak Right (Var, 1) = "-" Potom' Konverzia hodnoty reťazca na záporné celé číslo ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1)) Inak 'Konvertovanie hodnoty reťazca na celé číslo ConvertNegNumbers = CInt (Var) End If End Function 

Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.

Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku