본문으로 바로가기

Excel VBA 알파벳 aa to az까지 만들기

category Excel VBA/VBA 예제 2015.12.22 11:09

Excel VBA 알파벳 aa to az까지 만들기


aa ~ az 까지 만들 일이 있어서 한번 만들어 봤다.



화면은 위와 같다



소스코드는 아래와 같다

Sub filedName()


    init = 1

    unit = 26

    

    min_row = 2

    max_row = unit * unit


    For i = 0 To max_row

        alphabet_start = 97

        remainder = i Mod unit

        code = alphabet_start + remainder


        

        Range("a" & i + 2).Value = Chr(alphabet_start + Application.WorksheetFunction.RoundDown(i / unit, 0))

        Range("b" & i + 2).Value = Chr(alphabet_start + remainder)

        

    Next

    


End Sub




end.







댓글을 달아 주세요