VBA - formatuoti numerius kaip socialinio draudimo numerius

Anonim

JAV socialinio draudimo numeris (SSN) yra devynių skaitmenų numeris, išduotas JAV piliečiams, nuolatiniams gyventojams ir laikiniems (dirbantiems) gyventojams. Numerį asmeniui išduoda Socialinės apsaugos administracija, nepriklausoma JAV vyriausybės agentūra. Nors jo pagrindinis tikslas yra stebėti asmenis socialinės apsaugos tikslais, socialinio draudimo numeris tapo de facto nacionaliniu identifikavimo numeriu apmokestinimo ir kitais tikslais.

Jei gaunate darbuotojų sąrašus, kuriuose socialinio draudimo numeriai (SSN) nėra to paties formato, t. Y. Kai kurie yra tekstiniai, skaitmeniniai ir bendrieji arba gali būti su brūkšneliais. Norėdami pašalinti brūkšnius, galite tiesiog naudoti komandą Rasti ir pakeisti arba naudoti spartųjį klavišą CTRL + H.

Galite formatuoti numerį kaip socialinio draudimo numerį. Pavyzdžiui, galite suformatuoti 9 skaitmenų numerį 123456789 kaip 123-45-6789.

Šiame straipsnyje mes išmoksime konvertuoti skaičius SSN formatu naudojant VBA kodą.

Klausimas: Turiu socialinio draudimo numerių sąrašą ir noriu juos visus paversti nurodytu formatu: (000-00-0000), naudojant VBA kodą.

Norėdami konvertuoti skaičius į SSN formatą, norėdami paleisti VB redaktorių, turime atlikti šiuos veiksmus:

  • Spustelėkite skirtuką Kūrėjas
  • Iš kodų grupės pasirinkite „Visual Basic“

  • Nukopijuokite žemiau esantį kodą į standartinį modulį
Sub SSN_Format () Dim r As Range Application.ScreenUpdating = False With Range ("A1"). CurrentRegion For Every r In .Cells With r .Value = Application.Text (.Value, "000-00-0000") End with Kitas r Pabaiga su Application.ScreenUpdating = True End Sub 

  • Mes paleisime makrokomandą ir gausime SSN reikiamu formatu; žiūrėkite žemiau pateiktą momentinę nuotrauką:

Išvada: Tokiu būdu galime naudoti „Excel“ formato funkciją, kad socialinio draudimo numeriai būtų rodomi tinkamu formatu.

Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el