VBA - Oblikujte številke kot številke socialnega zavarovanja

Anonim

V Združenih državah je številka socialnega zavarovanja (SSN) devetmestna številka, izdana državljanom ZDA, stalnim prebivalcem in začasnim (delovnim) prebivalcem. Številko posamezniku izda uprava za socialno varnost, neodvisna agencija vlade ZDA. Čeprav je njegov primarni namen slediti posameznikom za namene socialne varnosti, je številka socialne varnosti dejansko postala nacionalna identifikacijska številka za obdavčitev in druge namene.

Če prejmete sezname zaposlenih, pri katerih številke socialnega zavarovanja (SSN) niso v isti obliki, tj. Nekatere so besedilne, številske in splošne ali imajo lahko pomišljaje. Če želite odstraniti pomišljaje, lahko preprosto uporabite ukaz Najdi in zamenjaj ali uporabite bližnjico CTRL + H.

Številko lahko oblikujete kot številko socialnega zavarovanja. Na primer, lahko oblikujete 9-mestno številko, 123456789 kot 123-45-6789.

V tem članku se bomo naučili, kako pretvoriti številke v obliki SSN s kodo VBA.

Vprašanje: Imam seznam številk socialnega zavarovanja in vse jih želim pretvoriti v dano obliko: (000-00-0000), z uporabo kode VBA.

Za pretvorbo številk v obliko SSN moramo za zagon urejevalnika VB slediti spodnjim korakom:

  • Kliknite zavihek Razvijalec
  • V skupini Koda izberite Visual Basic

  • Kopirajte spodnjo kodo v standardni modul
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 Naprej r Konec z aplikacijo.ScreenUpdating = True End Sub 

  • Zagnali bomo makro in dobili bomo SSN v zahtevani obliki; poglejte spodnji posnetek:

Zaključek: Na ta način lahko uporabimo obliko zapisa excel za prikaz številk socialnega zavarovanja v pravilnem oblikovanju.

Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte