Get the volume value of the model

Let's create a code to get the volume value of the model by changing the dimension value. The dimension value is defined as width * length * height. The dimension values ​​have a changeable range. Let's create a predictable function with AI.

 

number	width	length	height	volume(mm^3)
1	50	30	20	26,250
2	60	80	10	42,000
3	35	20	60	36,750

 

If you pass 10,000 changed values ​​and Volume values ​​of the model to AI, it will create a function. If you set the range of input values, you can create a combined data set.

Wow!
I created the pattern with the free version of claude.ai.
volume = width * height * length * 0.875

This is amazing. It's scary to find the pattern.

Sub CalculateVolume()
    ' 변수 선언
    Dim width As Double
    Dim height As Double
    Dim length As Double
    Dim volume As Double
    
    ' 사용자로부터 입력 받기
    width = InputBox("너비(width)를 입력하세요 (mm):", "입력")
    height = InputBox("높이(height)를 입력하세요 (mm):", "입력")
    length = InputBox("길이(length)를 입력하세요 (mm):", "입력")
    
    ' 체적 계산 (mm³) - 0.875 계수 적용
    volume = width * height * length * 0.875
    
    ' 결과 표시
    MsgBox "계산된 체적(Volume)은 " & volume & " mm³ 입니다.", vbInformation, "결과"
    
    ' 워크시트에 결과 기록 (선택사항)
    Call RecordResult(width, height, length, volume)
End Sub

Sub RecordResult(widthVal As Double, heightVal As Double, lengthVal As Double, volumeVal As Double)
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 활성 워크시트 선택
    Set ws = ActiveSheet
    
    ' 마지막 행 찾기
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 결과 기록
    ws.Cells(lastRow, 1).Value = lastRow - 1  ' number
    ws.Cells(lastRow, 2).Value = widthVal     ' width
    ws.Cells(lastRow, 3).Value = lengthVal    ' length
    ws.Cells(lastRow, 4).Value = heightVal    ' height
    ws.Cells(lastRow, 5).Value = volumeVal    ' volume(mm³)
End Sub

 

---

Cell 값을 조합하기

 

무게와 관련된 매개변수