값 대치

http://www.clien.net/cs2/bbs/board.php?bo_table=kin&wr_id=3534450

(엑셀 표시형식 셀 데이터에 적용)

너무 간단해서 팁으로 올리기는 뭐 하지만 기억을 위해서 올립니다.

VBA Editor 여시고 Module 추가해서 아래 코드 붙여 넣고 실행 한 번 해주시면 됩니다.

Sub Cell_Value_change_By_Format()

    Dim TempStr As String

    Dim RngCel As Range

    Dim RngRef As Range

    Set RngRef = Application.InputBox(“Select Range”, Type:=8) 

    For Each RngCel In RngRef

        TempStr = Mid(RngCel.NumberFormat, 2, Len(RngCel.NumberFormat) – 3)

        TempStr = TempStr + RngCel.Value

        RngCel.NumberFormat = G

        RngCel.Value = TempStr

    Next

End Sub