VBA - Nummers opmaken als burgerservicenummers

Anonim

In de Verenigde Staten is een sofinummer (SSN) een negencijferig nummer dat wordt uitgegeven aan Amerikaanse staatsburgers, permanente inwoners en tijdelijke (werkende) inwoners. Het nummer wordt aan een persoon verstrekt door de Social Security Administration, een onafhankelijk agentschap van de regering van de Verenigde Staten. Hoewel het primaire doel is om individuen te volgen voor socialezekerheidsdoeleinden, is het sofinummer een feitelijk nationaal identificatienummer geworden voor belasting- en andere doeleinden.

Als u werknemerslijsten ontvangt waar de sofinummers (SSN) niet in hetzelfde formaat zijn, d.w.z. sommige zijn tekst, numeriek en algemeen of kunnen streepjes hebben. Om streepjes te verwijderen, kunt u eenvoudig de opdracht Zoeken en vervangen gebruiken of de sneltoets CTRL + H gebruiken.

U kunt een nummer opmaken als een sofinummer. U kunt bijvoorbeeld een 9-cijferig nummer, 123456789, opmaken als 123-45-6789.

In dit artikel zullen we leren hoe u getallen in SSN-indeling kunt converteren met behulp van VBA-code.

Vraag: Ik heb een lijst met sofinummers en ik wil ze allemaal converteren naar het opgegeven formaat: (000-00-0000), met behulp van de VBA-code.

Om nummers naar SSN-formaat te converteren, moeten we de onderstaande stappen volgen om de VB-editor te starten:

  • Klik op het tabblad Ontwikkelaar
  • Selecteer in de codegroep Visual Basic

  • Kopieer onderstaande code in de standaard module
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 Volgende r Einde met toepassing.ScreenUpdating = True End Sub 

  • We zullen de macro uitvoeren en we krijgen het SSN in het vereiste formaat; zie de momentopname hieronder:

Conclusie: Op deze manier kunnen we de Excel-formaatfunctie gebruiken om burgerservicenummers in de juiste opmaak weer te geven.

Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite