VBA - Форматирайте номера като номера за социално осигуряване

Anonim

В Съединените щати социалноосигурителният номер (SSN) е деветцифрен номер, издаден на граждани на САЩ, постоянно пребиваващи и временни (работещи) жители. Номерът се издава на физическо лице от Администрацията за социално осигуряване, независима агенция на правителството на САЩ. Въпреки че основната му цел е да проследява лица за целите на социалното осигуряване, номерът на социалното осигуряване се превърна в фактически национален идентификационен номер за данъчни и други цели.

Ако получавате списъци на служители, където номерата за социално осигуряване (SSN) не са в същия формат, т.е. някои са текстови, цифрови и общи или могат да имат тирета. За да премахнете тирета, можете просто да използвате командата Find & Replace или да използвате клавишната комбинация CTRL + H.

Можете да форматирате номер като номер за социално осигуряване. Например, можете да форматирате 9-цифрено число, 123456789 като 123-45-6789.

В тази статия ще научим как да конвертирате числа в SSN формат, използвайки VBA код.

Въпрос: Имам списък с номера на социално осигуряване и искам да ги конвертирам в дадения формат: (000-00-0000), използвайки кода VBA.

За да преобразуваме числа в SSN формат, трябва да следваме стъпките по -долу, за да стартираме VB редактор:

  • Кликнете върху раздела Разработчик
  • От групата кодове изберете Visual Basic

  • Копирайте кода по -долу в стандартния модул
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 Следващ r Приключи с Application.ScreenUpdating = True End Sub 

  • Ще стартираме макроса и ще получим SSN в необходимия формат; вижте моментната снимка по -долу:

Заключение: По този начин можем да използваме функцията за формат на Excel за показване на номера на социално осигуряване в правилното форматиране.

Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта