Konvertuokite neigiamas reikšmes, traktuojamas kaip tekstas, naudodami „Microsoft Excel“ VBA

Anonim

Šiame straipsnyje sukursime pasirinktinę funkciją, kuri neigiamas eilutes pavers sveiku skaičiumi.

Neapdorotus šio straipsnio duomenis sudaro eilutės, po kurių eina minuso ženklas (-).

Mes norime šias eilutes paversti sveikais skaičiais.

Loginis paaiškinimas

Šiame straipsnyje mes sukūrėme pasirinktinę funkciją „ConvertNegNumbers“, kad eilutė būtų paversta sveiku skaičiumi. Ši funkcija priima eilutės reikšmę kaip įvestį ir grąžina sveiką skaičių kaip išvestį.

Kodo paaiškinimas

Dešinė (kintamasis, 1) = "-"

Aukščiau pateiktas kodas naudojamas patikrinti, ar paskutinis eilutės simbolis yra lygus minuso ženklui (-).

ConvertNegNumbers = CInt (" -" ir kairė (Var, Len (Var) - 1))

Pirmiau pateiktame kode kairioji funkcija naudojama išgauti visus eilutės simbolius, išskyrus paskutinį. Funkcija CInt naudojama eilutės vertei konvertuoti į sveiką skaičių.

Sekite toliau pateiktą kodą

 Parinktis Aiškioji funkcija „ConvertNegNumbers“ (kinta kaip eilutė) „Tikrinama, ar paskutinis eilutės simbolis yra minusas (-) If Right (Var, 1) ="-"Tada" Eilutės reikšmės konvertavimas į neigiamą sveiką skaičių ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1)) Kita eilutės reikšmės konvertavimas į sveiką skaičių ConvertNegNumbers = CInt (Var) End If End Function 

Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.

Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el