VBA tính đặc trưng hình học của mặt cắt (1 người xem)

[hoângnhvan.uct]

Các anh(chị) xem giúp em, em chạy mà không được anh ạ !!!
Option Explicit
Private A As Double, Iy As Double, Iz As Double
Dim B As Double, H As Double
Dim D As Double, D1 As Double, D2 As Double
Private Const Pi = 3.14


Private Sub UserForm_Initialize()
UserForm1.ComboBox1.AddItem "Chu nhat", 0
UserForm1.ComboBox1.AddItem "Tron dac", 1
UserForm1.ComboBox1.AddItem "Tron rong", 2
FrmTrondac.Visible = False
FrmTronrong.Visible = False
FrmChunhat.Visible = True
End Sub


Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "Chu nhat"
FrmTrondac.Visible = False
FrmTronrong.Visible = False
FrmChunhat.Visible = True
Case "Tron dac"
FrmTronrong.Visible = False
FrmChunhat.Visible = False
FrmTrondac.Visible = True
Case "Tron rong"
FrmChunhat.Visible = False
FrmTrondac.Visible = False
FrmTronrong.Visible = True
End Select
End Sub


Private Sub CmdTinh_Click()
Select Case ComboBox1.Text
Case "Chu nhat"
B = UserForm1.TxtB.Text
H = UserForm1.TxtH.Text
A = B * H
Iy = B * H ^ 3 / 12
Iz = H * B ^ 3 / 12
Case "Tron dac"
D = UserForm1.TxtD.Text
A = Pi * D ^ 2 / 4
Iy = Pi * D ^ 4 / 64
Iz = Iy
Case "Tron rong"
D1 = UserForm1.TxtD1.Text
D2 = UserForm1.TxtD1.Text
A = Pi * (D1 ^ 2 - D2 ^ 2) / 4
Iy = Pi * (D1 ^ 4 - D2 ^ 4) / 64
Ix = Iy
End Sub


Private Sub CmdExcel_Click()
CmdTinh_Click
ThisWorkbook.Worksheets(1).Range("A1:B5").Clear
ThisWorkbook.Worksheets(1).Range("A1").Value = "Ket qua tinh toan dac trung hinh hoc mat cat ngang"
ThisWorkbook.Worksheets(1).Range("A2").Value = "Loai mat cat ngang"
ThisWorkbook.Worksheets(1).Range("B2").Value = ComboBox1.Text
ThisWorkbook.Worksheets(1).Range("A3").Value = "Dien tich mat cat ngang: A(m2)="
ThisWorkbook.Worksheets(1).Range("B3").Value = Round(A, 3)
ThisWorkbook.Worksheets(1).Range("A4").Value = " Momen quan tinh cua mat cat ngang doi voi truc Y:Iy(m4)="
ThisWorkbook.Worksheets(1).Range("B4").Value = Round(Iy, 3)
ThisWorkbook.Worksheets(1).Range("A5").Value = " Momen quan tinh cua mat cat ngang doi voi truc Z:Iz(m4)="
ThisWorkbook.Worksheets(1).Range("B5").Value = Round(Iz, 3)
ThisWorkbook.Worksheets(1).Columns("A:B").EntireColumn.AutoFit
End Sub



Private Sub CmdThoat_Click()
UserForm1.Hide
End Sub