ỨNG DỤNG THỐNG KÊ TRONG KINH DOANH
Giãng viên sư phạm : Trương Minh Chiến
BÀI TẬP THỰC HÀNH :
TP Hồ Chí Minh – 25/03/2011
Công ty TNHH MTV Ninh Kiều Triệu Tỷ
~ o0o ~ Tài liệu tư vấn nội bộ ~ o0o ~
Câu hỏi đột suất trên email
• Cho thy! Em c mt bi tp nhưng không bit gii.Thy c thể
ch gip em bi ny trên exel,. Rt mong đưc sự hưng dn ca
thy! Cm ơn thy!
• Đề bi:
• Sự tham gia ca nhân viên vào hoạt đng qun lý là mt chương trình mi, thu hút người lao đng
vào việc ra các quyt định ca công ty. Dữ liệu sau là số phn trăm người lao đng đưc thu hút vào
chương trình này trong mt mu gồm 31 doanh nghiệp.
• 5 32 33 35 42 43 42 45 46 44 47 48 48 48 49 49 50 37 38 34 51 52 52 47 53
55 56 57 58 63 78
• a. Xây dựng biểu đồ thân lá mà bạn cho là thích hp nht vi b dữ liệu, tại sao bạn cho là như vy?
Bạn nhn xét gì về đặc điểm phân phối ca b dữ liệu từ biểu đồ đ?
• b. Tính trung bình, Mốt, Trung vị, tứ phân vị và gii thích ý nghĩa ca các kt qu tính đưc.
• c. Hãy vẽ mt biểu đồ hp ria mèo (box plot) ca dữ liệu và rút ra kt lun về b dữ liệu căn cứ vào
box plot. So sánh vi kt lun ở câu a.
• d. Từ box plot xác định dữ liệu đt xut. Ln lưt bỏ dữ liệu đt xut và nghi ngờ là dữ liệu đt xut,
sau đ làm lại yêu cu ca câu b và so sánh kt qu ca 2 b dữ liệu, tho lun về kt qu đ.
Hình ảnh minh họa cho email
Đôi lời trước khi giải đáp thắc mắc…
• Bạn nhỏ thân mến, trước tiên tôi không quen biết bạn và cũng
không biết rõ bạn đã tham dự lớp học nào do tôi đứng lớp giãng
dạy… Tuy tôi đã giãng dạy được ít lâu nhưng không nhớ hết mặt
học sinh và huống hồ chi bạn lại không xưng danh tính….
• Nhưng vấn đề bạn đặc ra thì hình như là bài tập tôi đưa cho các
em sinh viên Kinh Tế Sài Gòn (Home work). Và thật sự bạn có

MAX, MEDIAN để giải quyết các vấn đề còn lại.

Vẽ biểu đồ Term & Leaf
• Trước tiên ta phải nhập liệu vào Ms Excel rồi
dùng tính năng Sort để sắp xếp dử liệu.
Vẽ biểu đồ Term & Leaf
• Sau khi tiến hành Sort ta đượcc như hình bên
dưới với STT Cty là đại diện cho tên cty với số
phần trăm công nhân hưởng hứng phong trào
Tham Gia Quản L{ tương ứng.
Vẽ biểu đồ Term & Leaf
Tìm mean, medium, mode
• Sử dụng Add-in trong Data >> Data Analysis >> Descriptive
Statistic để tìm các số liệu trên trong cột B.
Tìm mean, medium, mode
Vẽ đồ thị box-plot
• Dùng Insert >> Bar Chart >> 2-D Bar >> Stacked
Bar Chart để vẽ chồng 3 bar-chart lên nhau với
Series1 = Q3; Series2 = Q2; Series3 = Q1.
Vẽ đồ thị box-plot
Vẽ đồ thị box-plot
• Chọn hình rồi vào tính năng Layout trên
menubar >> Error bars >> More error bars
Obtions… >> chọn Series1.

• Sau đó chọn vào mục Minus – Customize và
nhấp chuột vào nút specify để đinh dạng giá
trị lỗi dương Positive Error Value là = Q3 và
giá trị lỗi âm Negative Error Value là = Min.


Sử dụng VBA macro để giải quyết
• Sub StemAndLeaf()
dataColumn = 1
• 'Clean everything out of the Stem worksheet.
Worksheets("Stem").Cells.Clear
• 'Look at the Data worksheet.
Worksheets("Data").Activate
• 'Find the maximum value.
rowPointer = 2
Do Until Cells(rowPointer, 1).Value = ""
rowPointer = rowPointer + 1
Loop
Maximum = Cells(rowPointer - 1, dataColumn).Value
• 'Set the divisor to strip off leaves.
divisor = 1
Do Until Maximum / divisor <= 10
divisor = divisor * 10
Loop
Sử dụng VBA macro để giải quyết
• 'If the first digit of the largest value is less than 5, then
'use a smaller divisor.
'Otherwise you could end up with four or fewer rows in the plot.
If Fix(Maximum / divisor) < 5 Then divisor = divisor * 10
• 'Calculate the top stem's value.
topStem = Fix(Maximum / divisor)
• 'Set up the Stem worksheet.
Worksheets("Stem").Activate
Cells(1, 1).Value = "Count"
Cells(1, 2).Value = "Stem"
Cells(1, 3).Value = "Leaves"

Worksheets("Data").Activate
rowPointer = 2
Do Until Cells(rowPointer, dataColumn).Value = ""
measurement = Cells(rowPointer, dataColumn).Value
Stem = Fix(measurement / divisor)
leaf = measurement - Stem * divisor
leaf = Fix(leaf * 10 / divisor)
• Worksheets("Stem").Cells(Stem + 2, 3).Value = Worksheets("Stem").Cells(Stem + 2,
3).Value + Trim(Str(leaf))
rowPointer = rowPointer + shrinkFactor
Loop
• 'Get to the Stem worksheet.
Worksheets("Stem").Activate
End Sub
Sử dụng SPSS để giải đáp
• Sử dụng các tính năng của
Analyze trên menubar >>
Descriptive Statistics >> Explore…