개 나이는 사람 나이로 몇 살?

자연로그값에 16 곱한 뒤 31 더해

16*LN(개 나이)+31 = 사람나이

Jacobian matrix

Jacobian Iteration

10 Accounting Formulas

ADDRESS 함수

이 문서에서는 수식 구문과 주소 함수의 사용법을 Microsoft Excel. 메일 주소 작업 또는 메일 레이블 만들기에 대한 정보에 대한 링크는 또한 참조 섹션에서 찾을 수 있습니다.

설명

ADDRESS 함수를 사용하면 행 및 열 번호가 지정되었을 때 워크시트에서 셀의 주소를 확인할 수 있습니다. 예를 들어 ADDRESS(2,3)은 $C$2를 반환합니다. 또 다른 예로 ADDRESS(77,300)은 $KN$77을 반환합니다. ROW 및 COLUMN 같은 다른 함수를 사용하여 행 및 열 번호를 ADDRESS 함수의 인수로 제공할 수 있습니다.

구문

ADDRESS(row_num, column_num, [abs_num], [a1], [sheet_text])

ADDRESS 함수 구문에는 다음과 같은 인수가 사용됩니다.

• row_num    필수 요소입니다. 셀 참조에 사용할 행 번호를 지정하는 숫자 값입니다.
• column_num    필수 요소입니다. 셀 참조에 사용할 열 번호를 지정하는 숫자 값입니다.
• abs_num    선택 요소입니다. 반환할 참조 유형을 지정하는 숫자 값입니다.

abs_num반환되는 참조 유형

• a1    선택 요소입니다. A1 또는 R1C1 참조 스타일을 지정하는 논리적 값입니다. A1 스타일에서는 열에 사전 레이블이 지정되어 있으며 행은 숫자로 레이블이 지정됩니다. R1C1 참조 스타일에서 열과 행은 모두 숫자로 레이블이 지정됩니다. A1 인수가 TRUE 또는 생략된 경우 ADDRESS 함수는 A1 스타일 참조를 반환합니다. FALSE인 경우 ADDRESS 함수는 R1C1 스타일 참조를 반환합니다.
• 참고: Excel에 사용되는 참조 스타일을 변경하려면 파일 탭, 옵션, 수식을 차례로 클릭합니다. 수식 작업 아래에서 R1C1 참조 스타일 확인란을 선택하거나 선택 취소합니다.
• sheet_text    선택 사항입니다. 외부 참조로 사용할 워크시트의 이름을 지정하는 텍스트 값입니다. 예를 들어 수식 =ADDRESS(1,1,,,"Sheet2")는Sheet2!$A$1을 반환합니다. sheet_text 인수를 생략하면 시트 이름이 사용되지 않습니다. 함수가 반환하는 주소는 현재 시트의 셀을 참조합니다.

COMPLEX NUMBERS IN EXCEL

엑셀에서 복소수

수식 \ 함수 더 보기 \ 공학 \ COMPLEX

COMPLEX가 실행되지 않으면 엑셀 추가 기능에서 분석도구를 설치하여야 한다.

2022.01.04 - [엑셀] - 복소수의 계산 Complex numbers

2023.05.18 - [엑셀] - 복소수의 계산

대각선 셀의 합 구하기

50290 런타임 오류가 발생하였습니다

처음 보는 오류이다.

원인이 무엇인지 모르겠다.

언젠가 부터 계속 복사하여 붙여넣기를 하는데 도중에 계속 엑셀이 멈춘다.

인터넷에 찾아보니 몇가지 방법이 있다고 하는데

1. COM추가기능을 삭제한다.

내 컴퓨터에는 다음과 같은 COM 추가 기능이 설치되어 있다.

근데 체크가 되어 있지 않아 사용하지 않는 것 같은데...

하나씩 체크 해제하고 문제가 발생하는지 확

2. 하드웨어 그래칙 가속 사용 안 함. 체크

3. 잘라내기/복사/붙여넣기

콘텐츠를 붙여넣을 때 붙여넣기 옵션 단추 표시(S) 체크 해제

4. 사용자 인터페이스 옵션

실시간 미리 보기 사용(L) 체크 해제

구글에 검색해 보니 

https://www.makeuseof.com/fix-excel-freezes-copy-paste/

Mohr's circle VBA code by ChatGPT

Sub CreateMohrsCircle()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your worksheet name
    
    ' Input variables
    Dim sigma_x As Double
    Dim sigma_y As Double
    Dim tau_xy As Double
    
    ' Prompt the user to enter the values
    sigma_x = InputBox("Enter sigma_x:")
    sigma_y = InputBox("Enter sigma_y:")
    tau_xy = InputBox("Enter tau_xy:")
    
    ' Calculate the center and radius of the circle
    Dim sigma_avg As Double
    sigma_avg = (sigma_x + sigma_y) / 2
    
    Dim R As Double
    R = ((sigma_x - sigma_y) ^ 2 + (2 * tau_xy) ^ 2) ^ 0.5 / 2
    
    ' Calculate the angle of rotation
    Dim theta As Double
    theta = 0.5 * WorksheetFunction.Atan(2 * tau_xy / (sigma_x - sigma_y))
    
    ' Clear previous data and labels
    ws.Range("A1:F20").ClearContents
    
    ' Draw the circle
    Dim angle As Double
    Dim point_x As Double
    Dim point_y As Double
    
    For angle = 0 To 2 * WorksheetFunction.Pi Step 0.01
        point_x = sigma_avg + R * Cos(angle - theta)
        point_y = R * Sin(angle - theta)
        
        ws.Cells(Round(point_y) + 11, Round(point_x) + 11).Value = "•"
    Next angle
    
    ' Draw axes and labels
    ws.Range("E11:F11").Value = Array("σ", "τ")
    ws.Range("J11:K11").Value = Array("σ", "-τ")
    ws.Range("G6:H6").Value = Array("σ_x", "τ_xy")
    ws.Range("I6").Value = sigma_x
    ws.Range("J7").Value = -tau_xy
    
    ' Draw the center and radius
    ws.Cells(11, sigma_avg + 11).Value = "•"
    ws.Range("J12:K12").Value = Array("Center:", "Radius:")
    ws.Range("J13").Value = sigma_avg
    ws.Range("K13").Value = R
    
    ' Format the circle and labels
    With ws.Range("A1:F20")
        .HorizontalAlignment = xlCenter
        .Font.Name = "Arial"
        .Font.Size = 8
    End With
    
    With ws.Range("E11:F11", "J13:K13")
        .Font.Bold = True
    End With
    
    ' Adjust column widths and row heights
    ws.Columns("A:F").ColumnWidth = 2
    ws.Columns("G:K").ColumnWidth = 8
    ws.Rows("1:10").RowHeight = 12
End Sub

To use this code, follow these steps:

1. Open your Excel workbook and press Alt+F11 to open the VBA Editor.
2. Insert a new module by clicking on "Insert" > "Module."
3. Copy and paste the code into the new module.
4. Modify the worksheet name in the line Set ws = ThisWorkbook.Sheets("Sheet1") to match your desired worksheet name.
5. Save the workbook and close the VBA Editor.
6. Press Alt+F8 to open the "Macro" dialog box.
7. Select the "CreateMohrsCircle" macro and click "Run."
8. The macro will prompt you to enter the values of sigma_x, sigma_y, and tau_xy in separate input boxes.
9. Enter the values and click "OK."
10. The Mohr's circle will be created on the specified worksheet with the entered values.

Please note that this code assumes you have a worksheet named "Sheet1" where the Mohr's circle will be created. Modify the code accordingly if you want to use a different worksheet name or if you want to adjust the layout or formatting of the circle.

Additionally, the code currently draws the Mohr's circle using text-based symbols ('•') in the worksheet. If you prefer a graphical representation, you can use VBA to create a scatter plot or utilize Excel's built-in charting features to display the circle. Let me know if you would like assistance with that aspect as well.

Sub CreateMohrsCircle()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your worksheet name
    
    ' Input variables
    Dim sigma_x As Double
    Dim sigma_y As Double
    Dim tau_xy As Double
    
    ' Prompt the user to enter the values
    sigma_x = InputBox("Enter sigma_x:")
    sigma_y = InputBox("Enter sigma_y:")
    tau_xy = InputBox("Enter tau_xy:")
    
    ' Calculate the center and radius of the circle
    Dim sigma_avg As Double
    sigma_avg = (sigma_x + sigma_y) / 2
    
    Dim R As Double
    R = ((sigma_x - sigma_y) ^ 2 + (2 * tau_xy) ^ 2) ^ 0.5 / 2
    
    ' Calculate the angle of rotation
    Dim theta As Double
    theta = 0.5 * WorksheetFunction.Atan(2 * tau_xy / (sigma_x - sigma_y))
    
    ' Clear previous data and labels
    ws.Range("A1:F20").ClearContents
    
    ' Draw the circle
    Dim angle As Double
    Dim point_x As Double
    Dim point_y As Double
    
    For angle = 0 To 2 * WorksheetFunction.Pi Step 0.01
        point_x = sigma_avg + R * Cos(angle - theta)
        point_y = R * Sin(angle - theta)
        
        ws.Cells(Round(point_y) + 11, Round(point_x) + 11).Value = "•"
    Next angle
    
    ' Draw axes and labels
    ws.Range("E11:F11").Value = Array("σ", "τ")
    ws.Range("J11:K11").Value = Array("σ", "-τ")
    ws.Range("G6:H6").Value = Array("σ_x", "τ_xy")
    ws.Range("I6").Value = sigma_x
    ws.Range("J7").Value = -tau_xy
    
    ' Draw the center and radius
    ws.Cells(11, sigma_avg + 11).Value = "•"
    ws.Range("J12:K12").Value = Array("Center:", "Radius:")
    ws.Range("J13").Value = sigma_avg
    ws.Range("K13").Value = R
    
    ' Format the circle and labels
    With ws.Range("A1:F20")
        .HorizontalAlignment = xlCenter
        .Font.Name = "Arial"
        .Font.Size = 8
    End With
    
    With ws.Range("E11:F11", "J13:K13")
        .Font.Bold = True
    End With
    
    ' Adjust column widths and row heights
    ws.Columns("A:F").ColumnWidth = 2
    ws.Columns("G:K").ColumnWidth = 8
    ws.Rows("1:10").RowHeight = 12
    
    ' Create a scatter plot chart
    Dim cht As ChartObject
    Set cht = ws.ChartObjects.Add(Left:=ws.Cells(1, 8).Left, Top:=ws.Cells(1, 8).Top, Width:=400, Height:=300)
    
    With cht.Chart
        ' Add a scatter plot series
        .SeriesCollection.NewSeries
        .SeriesCollection(1).Name = "Mohr's Circle"
        .SeriesCollection(1).XValues = ws.Range("A11:A31")
        .SeriesCollection(1).Values
        .SeriesCollection(1).Values = ws.Range("B11:B31")
        
        ' Set chart type and style
        .ChartType = xlXYScatter
        .ChartStyle = 8 ' Adjust the chart style as desired
        
        ' Set axis labels
        .Axes(xlCategory).HasTitle = True
        .Axes(xlCategory).AxisTitle.Text = "σ"
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Text = "τ"
        
        ' Set axis scales
        .Axes(xlCategory).MinimumScale = sigma_avg - R
        .Axes(xlCategory).MaximumScale = sigma_avg + R
        .Axes(xlValue).MinimumScale = -R
        .Axes(xlValue).MaximumScale = R
        
        ' Set chart title
        .HasTitle = True
        .ChartTitle.Text = "Mohr's Circle"
    End With
End Sub

After running the modified code, a scatter plot chart representing the Mohr's circle will be created in the specified worksheet. The chart will display the σ values on the x-axis and the τ values on the y-axis. The axis scales and titles will be set accordingly. You can adjust the chart style, axis labels, or other formatting options as desired.

Remember to modify the worksheet name in the line Set ws = ThisWorkbook.Sheets("Sheet1") to match your desired worksheet name.

Let me know if you need further assistance!

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