TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT TP. HỒ CHÍ MINH
KHOA CƠ KHÍ CHẾ TẠO MÁY

BỘ MÔN : KỸ THUẬT HỆ THỐNG CÔNG NGHIỆP

ĐỒ ÁN TỐT NGHIỆP
Đề tài : “ PHÁT TRIỂN PHẦN MỀM RA QUYẾT
ĐỊNH ĐA MỤC TIÊU GIÚP CẢI THIỆN TỶ LỆ SỬ
DỤNG KỆ HÀNG VÀ NÂNG CAO NĂNG SUẤT
QUY TRÌNH LẤY HÀNG TẠI KHO HÀNG
SCHNEIDER ELECTRIC VIỆT NAM ”
Giảng viên hướng dẫn:
Sinh viên thực hiện:
Lớp:
Khóa:

PGS. TS. LÊ MINH TÀI
NGUYỄN ĐÌNH KHÔI - 20104038
MAI QUANG ĐỨC – 20104024
20104C
2020-2024

Tp. Hồ Chi Minh, tháng 2/2024

ii

LỜI CAM KẾT

-

Tên đề tài : PHÁT TRIỂN PHẦN MỀM RA QUYẾT ĐỊNH ĐA MỤC TIÊU GIÚP
CẢI THIỆN TỶ LỆ SỬ DỤNG KỆ HÀNG VÀ NÂNG CAO NĂNG SUẤT QUY
TRÌNH LẤY HÀNG TẠI KHO HÀNG SCHNEIDER ELECTRIC VIỆT NAM

-

GVHD : PGS.TS Lê Minh Tài

-

Họ và tên sinh viên : Nguyễn Đình Khôi - 20104038
Mai Quang Đức - 20104024

-

Địa chỉ sinh viên: Quận Thủ Đức – Tp. Thủ Đức
Số điện thoại liên lạc: 0364690661 ( Đức ) – 0914876657 ( Khôi )

-

Email cá nhân: [email protected] , [email protected]

-

Email
sinh
viên
:
[email protected]

-

Ngày nộp khóa luận tốt nghiệp (ĐATN):
Lời cam kết: “ Chúng tôi xin cam đoan khóa luận tốt nghiệp (ĐATN) này là công trình
do chúng tôi nghiên cứu và thực hiện. Chúng tôi không sao chép từ bất kỳ một bài viết
nào đã được công bố mà không trích dẫn nguồn gốc. Nếu có bất kỳ một sự vi phạm
nào, chúng tôi xin hoàn toàn chịu trách nhiệm “.

[email protected]

,

Tp. Hồ Chí Minh, ngày…..tháng…..năm 2024
Ký tên

iii

LỜI CẢM ƠN
Nhóm chúng em xin gửi lời cảm ơn chân thành đến thầy PGS. TS. Lê Minh Tài là người
luôn đứng sau hỗ trợ và tư vấn tận tình trong suốt quá trình hoàn thành đồ án của chúng
em. Những tư vấn định hướng của thầy là những kinh nghiệm quý giá giúp chúng em
hoàn thành xuất sắc đồ án này.

iv

TÓM TẮT ĐỒ ÁN

Tại kho linh kiện, linh kiện tiêu thụ nhanh yêu cầu tần suất châm và lấy hàng cao. Tuy
nhiên, việc lựa chọn khoang chứa hàng cho những nguyên vật liệu này vẫn được thực hiện
thủ công và thiếu sự cân nhắc các điều kiện ràng buộc. Việc này gây ra những ảnh hưởng
như lỗi do con người, không tận dụng tốt thể tích của khoang hàng và thiếu các tiêu chuẩn
về khoa học an toàn lao động. Các lãng phí trên dẫn đến kéo dài lead time của quy trình
kho. Đề tài này tập trung vào việc lựa chọn khoang chứa hàng cho linh kiên tiêu thụ nhanh.
Có ba mục tiêu chính: một là chuẩn hóa dữ liệu quản lý các khoang hàng để đảm bảo tính
chính xác và thống nhất. Hai là, đánh giá trọng số giữa các tiêu chí đánh giá khoang
...

...
t
Sub Sort_Empty()
use to sort out all empty bin in list-bin
Dim f_col As Range
Set the worksheet adn table references
Set
Layout_Sheet
=

Workbooks(DATN_PRE

v2.xlsm).Worksheets(Layout_PD1)
Set Layout_Tabl1 = Layout_Sheet.ListObjects(Tabl1)
Set the filter range and column
Set f_col = Layout_Tabl1.ListColumns(Occupy).Range
Apply the filter
Layout_Tabl1.Range.AutoFilter Field:=f_col.Column, criteria1:=Empty
End Sub
Sub Sort_Box_Type()
Change sheet name afterwards
With Workbooks(DATN_PRE MCDM-v2.xlsm).Sheets(PRE_GUI)
Find column index
Dim search_range As Range
Set search_range = .UsedRange
Dim box_type_colname As String Find column index of the header
box_type_colname = Box type
Find name of col in sheet
Dim col_foundCell As Range

130

MCDM-

Set col_foundCell = search_range.Find(What:=box_type_colname, LookIn:=xlValues,
LookAt:=xlWhole, M
atchCase:=False)
If Not col_foundCell Is Nothing Then
Dim columnIndex As Long
Box_type_colindex = col_foundCell.Column
MsgBox ColumnIndex: &amp Box_type_colindex
Else
MsgBox The value &amp box_type_colname &amp was not found in any column.
End If
Get value in Box type column
Dim Box_Type As String
Box_Type = .Cells(2, Box_type_colindex).value
End With
Sort out bin in Layout_PD1 sheet that fit the box type
Dim Bin_type_col As Range
Set
Layout_Tabl1

=

Workbooks(DATN_PRE

MCDM-

v2.xlsm).Worksheets(Layout_PD1).ListObjects(Tabl1
)
Set Bin_type_col = Layout_Tabl1.ListColumns(BIN Type).Range
Case Box_Type
Rangeup the BIN type column
Case Carton box, Outer box, Inner box, S02, KS03, KS02, K01, K02, S01,
S03
, #N/A
Sort out big bin : Pallet and B layer
AutoFilter apply
Layout_Tabl1.Range.AutoFilter Field:=Bin_type_col.Column, criteria1:=Array(Pallet KS0
3.16, Pallet KS03.24, Pallet KS03.32, Pallet KS03.64, Roller KS03.6, Roller
KS03.3), Operat
or:=xlFilterValues
Case K03, S00, Batch, Roll, X?p
AutoFilter apply
Layout_Tabl1.Range.AutoFilter Field:=Bin_type_col.Column, criteria1:=Array(Pallet KS0
3.16, Pallet KS03.24, Pallet KS03.32, Pallet KS03.64, Roller K03.12),
Operator:=xlFilterValue
s
131

End
End Sub
Sorting - 2
Sub Sort_Cancel()
cancel_sort_only Macro
If done sort ErrorHandler
If now sort Do sort
On Error GoTo ErrorHandler put code in On Error...Error Handler will activate the error
handle
Sheets(Layout_PD1).ShowAllData
ErrorHandler:
MsgBox Done refresh data
End Sub

132