VBA 엑셀 주민등록번호에서 1900년대 태어난 자료들만 노란색으로 적용하는 소스

VBA 엑셀 

VBA 엑셀 주민등록번호에서 1900년대 색깔 적용

자료에서 1900년대 태어난 사람들만 노란색을 적용하는 소스입니다.

 

1900년대 색깔 버튼을 누르면 아래 그림처럼 색깔이 적용됩니다.

 

● 아래는 소스 입니다.

Sub Color1900sSSN()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim ssn As String
    
    ' 작업하고자 하는 워크시트 지정
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 워크시트명을 Sheet1으로 변경하세요
    
    ' 작업할 범위 지정 (B1:B10)
    Set rng = ws.Range("C3:C13") ' 작업할 범위를 원하는 범위로 변경하세요
    
    ' 각 셀에 대해 주민등록번호 확인 및 노란색으로 채움
    For Each cell In rng
        ssn = cell.Value
        If Mid(ssn, 8, 1) = "1" Or Mid(ssn, 8, 1) = "2" Then  ' 1900년대에 해당하는 주민등록번호
            cell.Interior.Color = RGB(255, 255, 0) ' 노란색으로 채움
        End If
    Next cell
End Sub
 
위 소스 코드(Color1900sSSN)를 VBA 에디터에서 실행하거나, 엑셀의 매크로로등록하여 실행하면 B1:B10 범위에 입력된 주민등록번호 중 1900년대에 해당하는주민등록번호를 노란색으로 채워줍니다.주민등록번호의 입력 형식이 yymmdd-xxxxxxx 또는 yymmddxxxxxxxx로 되어있다고 가정하고 작성된 코드이므로, 실제 사용 시에는 입력된 주민등록번호의형식에 맞게 코드를 수정하셔야 합니다.
 
 
 
Sub ClearColorRange()
    Dim rng As Range
    Set rng = Range("C3:C13")
    rng.Interior.Color = xlNone
End Sub
 
위 소스 코드는 "C3:C13" 범위를 rng 변수에 할당하고, 그 범위의 셀 색깔을xlNone으로 설정하여 색깔을 지웁니다.VBA의 Range 객체를 사용하여 엑셀의 셀 범위를 다룰 수 있습니다.Interior.Color 속성을 사용하여 셀의 배경색을 설정할 수 있습니다.xlNone은 배경색을 없음으로 설정하는 상수 값입니다.위 소스 코드를 VBA 에디터에서 실행하면 C3:C13 범위의 셀의 배경색이모두 지워집니다.