VBA - Muotoile numerot sosiaaliturvatunnuksiksi

Anonim

Yhdysvalloissa sosiaaliturvatunnus (SSN) on yhdeksän numeroinen numero, joka annetaan Yhdysvaltain kansalaisille, vakituisille asukkaille ja tilapäisille (työskenteleville) asukkaille. Numeron myöntää henkilölle Yhdysvaltain hallituksen riippumaton virasto Social Security Administration. Vaikka sen ensisijainen tarkoitus on seurata yksilöitä sosiaaliturvatarkoituksiin, sosiaaliturvatunnuksesta on tullut de facto kansallinen tunnistenumero verotusta ja muita tarkoituksia varten.

Jos saat työntekijöiden luetteloita, joissa sosiaaliturvatunnukset (SSN) eivät ole samassa muodossa, toisin sanoen jotkut ovat teksti-, numeerisia ja yleisiä tai niissä voi olla viivoja. Voit poistaa viivoja käyttämällä Find & Replace -komentoa tai pikanäppäintä CTRL + H.

Voit muotoilla numeron sosiaaliturvatunnukseksi. Voit esimerkiksi muotoilla 9-numeroisen numeron 123456789 muodossa 123-45-6789.

Tässä artikkelissa opimme kuinka muuntaa numerot SSN -muodossa VBA -koodilla.

Kysymys: Minulla on luettelo sosiaaliturvatunnuksista ja haluan muuntaa ne kaikki annettuun muotoon: (000-00-0000) käyttäen VBA-koodia.

Jotta voimme muuntaa numerot SSN -muotoon, meidän on suoritettava seuraavat vaiheet VB -editorin käynnistämiseksi:

  • Napsauta Kehittäjä -välilehteä
  • Valitse koodiryhmästä Visual Basic

  • Kopioi alla oleva koodi vakiomoduuliin
Sub SSN_Format () Dim r As Range Application.ScreenUpdating = False With Range ("A1"). CurrentRegion For each r In .Cells With r .Value = Application.Text (.Value, "000-00-0000") End with Seuraava r Lopeta Application.ScreenUpdating = True End Sub 

  • Suoritamme makron ja saamme SSN: n vaaditussa muodossa; katso alla oleva kuva:

Johtopäätös: Tällä tavalla voimme käyttää Excel -muoto -ominaisuutta näyttääksesi sosiaaliturvanumerot oikeassa muodossa.

Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse