'나눔 > VBA' 카테고리의 다른 글
| 가볍게 배우는 엑셀 VBA 01 (0) | 2026.08.08 |
|---|---|
| combobox 사용예(2) (0) | 2018.03.24 |
| combobox 사용예(1) (0) | 2018.03.10 |
| combobox 사용예 (0) | 2018.03.04 |
2026.09.01
2026.08.31
| 가볍게 배우는 엑셀 VBA 01 (0) | 2026.08.08 |
|---|---|
| combobox 사용예(2) (0) | 2018.03.24 |
| combobox 사용예(1) (0) | 2018.03.10 |
| combobox 사용예 (0) | 2018.03.04 |
| 알루미늄 압출 공식 (0) | 2026.08.28 |
|---|---|
| 알루미늄 빌렛 계산02 (0) | 2026.08.28 |
| 알루미늄 빌렛 계산 01 (0) | 2026.08.27 |
| 알루미늄 압출결함 및 원인 정리본 (2) | 2018.07.01 |
1 알루미늄 단중 계산
1.1 공식
1.1.1 빌렛 반지름( r ; 단위 : mm ) = ( billet size x 25.4) / 2
1.1.2 빌렛 단면적( Ac ) = Pi x r^2
1.1.3 밀도( D ) = ( 재질별 밀도 ) / 1,000,000
1.1.4 단중( Wc ) = Ac x D
예 ) 재질 A6063, 밀도 2.7, 크기 7Inch인 경우
r = ( 7x25.4) /2 = 88.9mm
Ac = 3.14 x 88.9^2 = 24816
D = 2.7 /1,000,000
Wc = 24816 x ( 2.7 / 1,000,000 )
= 0.067 ( kg/mm )
2 Runout 에 따른 Billet 계산
2.1 기본적인 구성

2.2 공식 = [ ( Runout x ( 제품단중[kg/m] / 1000 ) ) / Wc ] + Butt 단위 : kg / mm
예) 제품 단중( 1 kg/m ), 홀수( 1EA ) , Runout( 32,000 mm), Butt( 20mm)
필요 Billet 길이(Le) = [ (32,000 x 1 / 1,000 ) / 0.067 ] + 20
= 498 mm
3 압출비( ER; Extrusion Ratio ) 계산
3.1 공식 : ER = Ac / (Ae x n)
Ac : 콘테이너 단면적, Ae : 제품 단면적, n : 금형 압출 홀수
4 압출 속도( Ve )
4.1 공식 : Ve = Vr x ER
Vr : ram 속도, ER : 압출비
| 알루미늄 빌렛 계산03 (0) | 2026.08.31 |
|---|---|
| 알루미늄 빌렛 계산02 (0) | 2026.08.28 |
| 알루미늄 빌렛 계산 01 (0) | 2026.08.27 |
| 알루미늄 압출결함 및 원인 정리본 (2) | 2018.07.01 |
| 알루미늄 빌렛 계산03 (0) | 2026.08.31 |
|---|---|
| 알루미늄 압출 공식 (0) | 2026.08.28 |
| 알루미늄 빌렛 계산 01 (0) | 2026.08.27 |
| 알루미늄 압출결함 및 원인 정리본 (2) | 2018.07.01 |
| 알루미늄 빌렛 계산03 (0) | 2026.08.31 |
|---|---|
| 알루미늄 압출 공식 (0) | 2026.08.28 |
| 알루미늄 빌렛 계산02 (0) | 2026.08.28 |
| 알루미늄 압출결함 및 원인 정리본 (2) | 2018.07.01 |
https://www.youtube.com/watch?v=wVAO2jybFlk

| name | 속성 | 용도 | 비고 |
| Userform1 | caption = "과일 가격 보기" | ||
| Label1 | caption = "과일" | 대분류 | |
| Label2 | caption=' ' | 소분류 | |
| Label3 | caption=' ' | 단위표시 | |
| Textbox1 | text = 0 | 단위가격표시 | |
| CommandButton1 | caption = "사과" | ||
| CommandButton2 | caption = "바나나" |

1 '사과' 버튼
1.1 클릭할 경우
| Private Sub CommandButton1_Click() Me.TextBox1.Text = 2000 Me.Lable2.Caption = "사과" Me.Lable3.Caption = "원/개" End Sub |
- Me = UserForm1과 같은 의미
[풀이] Me.TextBox1.Text = 2000 : UserForm1에 있는 TextBox1에 '2000'이라는 텍스트를 넣어라.
1.2 결과

2 '바나나' 버튼
2.1 클릭할 경우
| Private Sub CommandButton2_Click() Me.TextBox1.Text = 1000 Me.Lable2.Caption = "바나나" Me.Lable3.Caption = "원/송이" End Sub |
2.2 결과

| 가볍게 배우는 엑셀VBA_02 (0) | 2026.09.01 |
|---|---|
| combobox 사용예(2) (0) | 2018.03.24 |
| combobox 사용예(1) (0) | 2018.03.10 |
| combobox 사용예 (0) | 2018.03.04 |