엑셀 매크로 VBA 2. 나의 함수 수식설정 소스코드

엑셀 매크로 VBA 1. 나의 함수 수식설정 소스코드

수식설정, 고정 위치 복사

Option Explicit

Sub 수식설정()

    Dim col As String

    Dim row As String

    

    col = Chr(65 + ActiveCell.Column - 1)

    row = ActiveCell.row

    ActiveCell.Offset(0, 1).NumberFormatLocal = "#,##0.0_ ;[빨강]-#,##0.0 "

    ActiveCell.Offset(0, 1).Value = 4.5

    ActiveCell.Offset(0, 3).NumberFormatLocal = "#,##0.0_ ;[빨강]-#,##0.0 "

    ActiveCell.Offset(0, 3).Value = 3.5

    ActiveCell.Offset(0, 4).NumberFormatLocal = "#,##0.0_ ;[빨강]-#,##0.0 "

    ActiveCell.Offset(0, 4).Value = "=F" & row & "/E" & row & "*G" & row

End Sub

Sub 고정위치복사()

    Dim cel1 As Range

    Set cel1 = ActiveCell

    Range("$D$4:$I$4").Select

    Selection.Copy

    cel1.Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ActiveCell.Select

End Sub

.