셀에 수식 입력하기

A1 참조 방식으로 수식 입력하기

일반적으로 셀에 수식 입력하는 방법입니다.

Sub FormulaPropertyExample()
    
    Dim rng As Range
    
    Set rng = Range("C2")
    
    ' Formula 속성을 사용하여 C2셀에 수식을 입력합니다.
    rng.Formula = "=SUM(A1:A10)"
    
    MsgBox "C2셀의 수식: " & rng.Formula
End Sub

 

Range("B8").Formula = "=VLOOKUP(A8,A2:B6,2,False)"

 

Range("C13").Formula = "=SUMIFS(A3:A10,B3:B10,B13,C3:C10,A13)"

 

R1C1 참조 방식으로 입력하기

매크로 기록으로 얻을 수 있습니다.

Range("C1").FormulaR1C1 = "=FIND(""M"",RC[-2])"

 

Range("D2").FormulaR1C1 = "=XMATCH(RC[-1],RC[-3]:R[4]C[-3])"

 

배열수식 입력하기

Range("D2:D6").FormulaArray = "=FREQUENCY(A2:A20,C2:C5)"

 

Range("D2:D6").FormulaArray = "=FREQUENCY(RC[-3]:R[18]C[-3],RC[-1]:R[3]C[-1])"

 

Range("D1:E2").FormulaArray = "=MMULT(A1:B2,A4:B5)"

 

Range("D1:E2").FormulaArray = "=MMULT(RC[-3]:R[1]C[-2],R[3]C[-3]:R[4]C[-2])"

 

 

Range("C2").FormulaArray = "=SUM(LEN(A1:A10))"

 

Range("C2").FormulaArray = "=SUM(LEN(R[-1]C[-2]:R[8]C[-2]))"

 

동적 배열 수식 입력하기

Range("C2").Formula2 = "=SORT(A2:A10)"

 

Range("A1").Formula2 = "=SEQUENCE(4,5)"

 

Range("A1").Formula2 = "=TEXT(DATE(YEAR(TODAY()),SEQUENCE(1,4),1),""mmm"")"

 

Formula2속성 대신 Formula속성을 사용하면 하나의 값만 출력됩니다.

 

 

셀에 입력된 수식 확인하기

MsgBox Range("D2").Formula

 

MsgBox Range("D2").FormulaR1C1