엑셀 매크로 VBA 3. 나의 함수 수식을 값으로 변경 소스코드

엑셀 매크로 VBA 3. 나의 함수 :  수식을 값으로 변경 소스 코드

영역을 지정해서 해당 셀의 수식을 값으로 변경한다.

Sub 식을값으로변경()

    Dim sela1 As Range

   

    Dim i As Long

    Dim j As Long

    Dim startx As Long

    Dim starty As Long

    Dim lenx As Long

    Dim leny As Long

    

    On Error GoTo ERR1

    Set sela1 = Application.InputBox(Type:=8, prompt:="영역을 선택하세요(단일블럭으로선택) ?", Title:="식을 값으로")

    

    startx = CLng(sela1.Column)

    starty = CLng(sela1.row)

    lenx = CLng(sela1.Columns(sela1.Columns.Count).Column) - CLng(sela1.Column) + 1

    leny = CLng(sela1.Rows(sela1.Rows.Count).row) - CLng(sela1.row) + 1

Dim vvv As String

    For i = startx - 1 To lenx + startx

        For j = starty To leny + starty

            vvv = Range(Chr(65 + i) & j).Value

            Range(Chr(65 + i) & j).Formula = vvv

        Next

    Next

    

ERR1:

End Sub

.