Convertiți valorile negative tratate ca text folosind VBA în Microsoft Excel

Anonim

În acest articol, vom crea o funcție personalizată pentru a converti șirurile negative într-un număr întreg.

Datele brute pentru acest articol constau în șiruri urmate de un semn minus (-).

Vrem să convertim aceste șiruri în numere întregi.

Explicație logică

În acest articol, am creat o funcție ConvertNegNumbers personalizată pentru a converti șirul în întreg. Această funcție ia valoarea șirului ca intrare și returnează numărul întreg ca ieșire.

Explicarea codului

Dreapta (Var, 1) = "-"

Codul de mai sus este utilizat pentru a verifica dacă ultimul caracter al șirului este egal cu semnul minus (-).

ConvertNegNumbers = CInt ("-" & Stânga (Var, Len (Var) - 1))

În codul de mai sus, funcția din stânga este utilizată pentru a extrage toate caracterele din șir, cu excepția ultimului. Funcția CInt este utilizată pentru a converti valoarea șirului în întreg.

Vă rugăm să urmați codul de mai jos

 Opțiune Funcție explicită ConvertNegNumbers (Var As String) 'Verificarea dacă ultimul caracter din șir este minus (-) Dacă dreapta (Var, 1) = "-" Apoi' Conversia valorii șirului în întreg negativ ConvertNegNumbers = CInt ("-" & Stânga (Var, Len (Var) - 1)) Altfel 'Conversia valorii șirului în număr întreg ConvertNegNumbers = CInt (Var) End If End Function 

Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.

Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail