VBA - Formátujte čísla ako čísla sociálneho zabezpečenia

Anonim

V USA je číslo sociálneho zabezpečenia (SSN) deväťmiestne číslo, ktoré sa udeľuje občanom USA, osobám s trvalým pobytom a dočasným (pracujúcim) pobytom. Číslo vydáva jednotlivcovi správa sociálneho zabezpečenia, nezávislá agentúra vlády USA. Napriek tomu, že jeho hlavným účelom je sledovanie osôb na účely sociálneho zabezpečenia, číslo sociálneho poistenia sa stalo de facto národným identifikačným číslom pre daňové a iné účely.

Ak dostávate zoznamy zamestnancov, kde čísla sociálneho zabezpečenia (SSN) nie sú v rovnakom formáte, t.j. niektoré sú textové, číselné a obecné alebo môžu mať pomlčky. Ak chcete odstrániť pomlčky, môžete jednoducho použiť príkaz Hľadať a nahradiť alebo použiť klávesovú skratku CTRL + H.

Číslo môžete naformátovať ako číslo sociálneho poistenia. Môžete napríklad naformátovať 9-miestne číslo 123456789 ako 123-45-6789.

V tomto článku sa naučíme, ako prevádzať čísla vo formáte SSN pomocou kódu VBA.

Otázka: Mám zoznam čísel sociálneho zabezpečenia a chcem ich všetky previesť do daného formátu: (000-00-0000) pomocou kódu VBA.

Aby sme mohli prevádzať čísla do formátu SSN, musíme pri spustení editora VB vykonať nasledujúce kroky:

  • Kliknite na kartu Vývojár
  • Zo skupiny kódov vyberte Visual Basic

  • Skopírujte nižšie uvedený kód do štandardného modulu
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 Ďalej r Koniec s Application.ScreenUpdating = True End Sub 

  • Spustíme makro a dostaneme SSN v požadovanom formáte; pozrite si snímku nižšie:

Záver: Týmto spôsobom môžeme použiť funkciu formátu Excel na zobrazenie čísel sociálneho poistenia v správnom formátovaní.

Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku