Đồ án tốt nghiệp - Lập trình Macro Vba trong Excel vẽ các đồ thị khảo sát sức kéo ô tô

TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH
KHOA CƠ KHÍ ĐỘNG LỰC

ĐỒ ÁN TỐT NGHIỆP

LẬP TRÌNH MACRO VBA TRONG EXCEL
VẼ CÁC ĐỒ THỊ KHẢO SÁT SỨC KÉO Ô TÔ

GVHD: Th.S. TRẦN ĐÌNH QUÝ
SVTH : PHẠM THANH THẮNG
MSSV: 20145724
SVTH : PHAN QUỐC CƯỜNG
MSSV: 20145307

Tp. Hồ Chí Minh, 4 tháng 1 năm 2025

LỜI CẢM ƠN
Trong suốt hành trình bốn năm gắn bó với Trường Đại học Sư phạm kỹ thuật
TPHCM, chúng em đã được học rất nhiều kiến thức về chuyên môn cũng như là các kỹ
năng cần thiết phục vụ cuộc sống. Bằng tất cả lòng biết ơn, chúng em xin gửi lời cảm ơn
chân thành và sâu sắc nhất đến tất cả quý thầy cô của Trường Đại học Sư phạm kỹ thuật
TPHCM nói chung và quý thầy cô Khoa Cơ Khí Động Lực nói riêng.
Đặc biệt, chúng em xin chân thành cảm ơn thầy Trần Đình Quý, người đã tận tình
hướng dẫn và hỗ trợ chúng em trong xuyên suốt quá trình thực hiện đồ án “LẬP TRÌNH
MACRO VBA TRONG EXCEL VẼ CÁC ĐỒ THỊ KHẢO SÁT SỨC KÉO Ô TÔ”. Trong
thời gian qua, thầy không những là một người thầy mà còn là một người cha dạy bảo chúng
em nhiều điều trong cuộc sống qua những bài học của thầy. Sự tận tâm của thầy giúp chúng
em rất nhiều và chúng em thật sự biết ơn thầy vì điều đấy. Chúng em chúc thầy luôn có
nhiều sức khỏe và luôn vui vẻ trong cuộc sống để hoàn thành những điều thầy mong muốn.
Cuối cùng, chúng em xin cảm ơn gia đình và bạn bè đã luôn động viên, ủng hộ và
tạo điều kiện tốt nhất cho chúng em trong suốt quá trình học tập và thực hiện đồ án. Sự
quan tâm và khích lệ của mọi người là nguồn động lực lớn lao giúp chúng em vượt qua
mọi khó khăn và hoàn thành nhiệm vụ.
Trong quá trình thực hiện đồ án, do bản thân còn nhiều hạn chế về kiến thức nên
không thể tránh khỏi những sai sót. Vì vậy, chúng em mong muốn nhận được sự góp ý,
giúp đỡ của các thầy cô trong bộ môn để đề tài của chúng em được hoàn thiện hơn.
Một lần nữa chúng em xin gửi đến toàn thể quý thầy cô Trường Đại học Sư phạm
kỹ thuật TPHCM lời chúc sức khỏe và lòng biết ơn chân thành nhất.
Chúng em xin chân thành cảm ơn!

Kí tên

Phạm Thanh Thắng

Phan Quốc Cường
ii

TÓM TẮT
Đồ án tập trung vào việc tính toán sức kéo của ô tô thông qua lập trình VBA trên
Excel, nhằm nâng cao hiệu quả và độ chính xác trong việc khảo sát sức kéo..
Chương 1: Tổng Quan Về Đề Tài
Chương này giới thiệu tầm quan trọng của việc nghiên cứu và khảo sát lực kéo của
ô tô trong bối cảnh ứng dụng công nghệ hiện đại. Đồng thời, chương này cũng xác định rõ
mục tiêu và phạm vi nghiên cứu của đồ án.
Chương 2: Phân Tích Bài
...

...
xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = t (s) Nhan truc Y chinh
Truc Y phu cho quang duong (S)
.HasAxis(xlValue, xlSecondary) = True
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Text = S (m) Nhan truc Y phu
Tieu de cua bieu do
.HasTitle = True
.ChartTitle.Text = DO THI THOI GIAN VA QUANG DUONG TANG TOC
Hien thi chu thich de phan biet giua hai chuoi du lieu
.HasLegend = True
.Legend.Position = xlLegendPositionBottom
End With
End Sub
Sub VeDoThiNhanToDongLucHocKhiTaiThayDoi()
Dim ws As Worksheet
Dim chartObj As ChartObject
Dim chart As chart
Ðat worksheet chua du lieu
Set ws = ThisWorkbook.Sheets(Sheet1)
Tao bieu do moi

117

Set chartObj = ws.ChartObjects.Add(Left:=5450, width:=600, Top:=50, Height:=400)
chartObj.Name = DoThiDxTheoD
Set chart = chartObj.chart
Cai dat loai bieu do XY Scatter voi duong noi
chart.ChartType = xlXYScatterSmoothNoMarkers
Them cac chuoi du lieu cho Dx0, Dx1, Dx2, Dx3, Dx4
Call ThemChuoiDuLieu4(ws, chart, BK23:BK100, BM23:BM100, Khong tai, RGB(0, 112, 192)) Dx0
theo D
Call ThemChuoiDuLieu4(ws, chart, BL23:BL100, BM23:BM100, 50% tai, RGB(255, 165, 0)) Dx1
theo D
Call ThemChuoiDuLieu4(ws, chart, BM23:BM100, BM23:BM100, 100% tai, RGB(0, 255, 0)) Dx2 theo
D
Call ThemChuoiDuLieu4(ws, chart, BN23:BN100, BM23:BM100, 160% tai, RGB(128, 128, 128)) Dx3
theo D
Call ThemChuoiDuLieu4(ws, chart, BO23:BO100, BM23:BM100, 220% tai, RGB(255, 0, 0)) Dx4 theo
D
Cai dat truc và tieu de bieu do
With chart
Cai dat truc hoanh (truc X) la Dx
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = Dx Nhan truc X
Cai dat truc tung (truc Y) là D
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = D Nhan truc Y
Them tieu de cho bieu do
.HasTitle = True
.ChartTitle.Text = DO THI NHAN TO DONG LUC HOC KHI TAI THAY DOI
Hien thi chú thích (Legend)
.HasLegend = True
.Legend.Position = xlLegendPositionRight
End With
End Sub
Ham phu tro de them chuoi du lieu vao bieu do
Sub ThemChuoiDuLieu4(ws As Worksheet, chart As chart, XRange As String, YRange As String, SeriesName
As String, LineColor As Long)
With chart.SeriesCollection.NewSeries
.xValues = ws.Range(XRange) Gia tri X (Dx)
.Values = ws.Range(YRange) Gia tri Y (D)
.Name = SeriesName Ten chuoi du lieu
.Format.Line.ForeColor.RGB = LineColor Mau cua duong
End With
End Sub
Private Sub thoat_Click()
Unload Me
End Sub

118