도토리엑셀

VBA를 사용하여 X 축과 Y 축의 범위 값을 가져오기

ChatGPT의 답변은 다음과 같다.

Sub GetAxisRanges()
    Dim myChart As ChartObject
    Dim xAxis As Axis, yAxis As Axis
    Dim xAxisMin As Variant, xAxisMax As Variant
    Dim yAxisMin As Variant, yAxisMax As Variant
    
    ' 차트 개체 가져오기
    Set myChart = ActiveSheet.ChartObjects("Chart 1")
    
    ' X 축과 Y 축 가져오기
    Set xAxis = myChart.Chart.Axes(xlCategory)
    Set yAxis = myChart.Chart.Axes(xlValue)
    
    ' X 축 범위 가져오기
    xAxisMin = xAxis.MinimumScale
    xAxisMax = xAxis.MaximumScale
    
    ' Y 축 범위 가져오기
    yAxisMin = yAxis.MinimumScale
    yAxisMax = yAxis.MaximumScale
    
    ' 결과 출력
    MsgBox "X 축 범위: " & xAxisMin & " ~ " & xAxisMax & vbNewLine & _
           "Y 축 범위: " & yAxisMin & " ~ " & yAxisMax
End Sub

엑셀함수 이정도는 알고 쓰자

SUM
SUMIFS
SUMPRODUCT
SUBTOTAL
AVERAGE
IF
IFERROR
COUNTA
COUNTIFS
LEFT, MID, RIGHT
TRIM
CONCATENATE
SUBSTITUTE
VLOOKUP
MATCH
INDEX
SEARCH
FIND
TODAY
RANK
LOWER
UPPER
PROPER

아래 수식을 Excel365버전에 입력하면
 
=CONCAT(TEXTBEFORE(ADDRESS(1, CHOOSE(SEQUENCE(3), 2*5*1373-1, HEX2DEC("262f"), 3*137),2^2),1))
 
THANKYOU 가 나온다.
 
나는 PC버전의 Excel365가 없어서 모바일에 입력해봤다.