VBA - formātu numuri kā sociālās apdrošināšanas numuri

Anonim

Amerikas Savienotajās Valstīs sociālās apdrošināšanas numurs (SSN) ir deviņu ciparu numurs, kas izsniegts ASV pilsoņiem, pastāvīgajiem iedzīvotājiem un pagaidu (strādājošajiem) iedzīvotājiem. Šo numuru privātpersonai izsniedz ASV valdības neatkarīgā aģentūra Sociālā nodrošinājuma administrācija. Lai gan tā galvenais mērķis ir izsekot personas sociālās drošības nolūkos, sociālās apdrošināšanas numurs ir kļuvis par de facto valsts identifikācijas numuru nodokļu un citiem mērķiem.

Ja saņemat darbinieku sarakstus, kuros sociālās apdrošināšanas numuri (SSN) nav vienā formātā, ti, daži ir teksta, ciparu un vispārīgi, vai arī tiem var būt svītras. Lai noņemtu svītras, varat vienkārši izmantot komandu Atrast un aizstāt vai izmantot īsinājumtaustiņu CTRL + H.

Jūs varat formatēt numuru kā sociālās apdrošināšanas numuru. Piemēram, varat formatēt 9 ciparu numuru 123456789 kā 123-45-6789.

Šajā rakstā mēs uzzināsim, kā konvertēt ciparus SSN formātā, izmantojot VBA kodu.

Jautājums: Man ir sociālās apdrošināšanas numuru saraksts, un es vēlos tos visus pārvērst noteiktajā formātā: (000-00-0000), izmantojot VBA kodu.

Lai ciparus pārvērstu SSN formātā, mums ir jāveic šādas darbības, lai palaistu VB redaktoru:

  • Noklikšķiniet uz cilnes Izstrādātājs
  • Kodu grupā atlasiet Visual Basic

  • Nokopējiet zemāk esošo kodu standarta 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 Nākamais r Beigt ar Application.ScreenUpdating = True End Sub 

  • Mēs palaidīsim makro un mēs saņemsim SSN vajadzīgajā formātā; skatiet momentuzņēmumu zemāk:

Secinājums: Tādā veidā mēs varam izmantot Excel formāta funkciju, lai parādītu sociālās apdrošināšanas numurus pareizā formatējumā.

Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē