Phân tích định lượng trách nhiệm các bên trong việc chậm trễ tiến độ dự án xây dựng gây ra bởi công tác làm lại

ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA VÕ VĂN TRỊ PHÂN TÍCH ĐỊNH LƯỢNG TRÁCH NHIỆM CÁC BÊN TRONG VIỆC CHẬM TRỄ TIẾN ĐỘ DỰ ÁN XÂY DỰNG GÂY RA BỞI CÔNG TÁC LÀM LẠI Chuyên ngành: CÔNG NGHỆ VÀ QUẢN LÝ XÂY DỰNG Mã số : 60.58.90 LUẬN VĂN THẠC SĨ TP Hồ Chí Minh, tháng năm 2013 Cơng trình hồn thành tại: Trường Đại học Bách Khoa – ĐHQG-HCM Cán Hướng dẫn khoa học: TS LƯƠNG ĐỨC LONG Cán chấm nhận xét 1: PGS TS NGÔ QUANG TƯỜNG Cán chấm nhận xét 2: TS ĐINH CÔNG TỊNH Luận văn thạc sĩ bảo vệ Trường Đại học Bách Khoa, ĐHQG Tp HCM Ngày 25 Tháng Năm 2013 Thành phần Hội đồng đánh giá luận văn thạc sĩ gồm: PGS TS PHẠM HỒNG LUÂN (CHỦ TỊCH HỘI ĐỒNG) PGS TS LƯU TRƯỜNG VĂN (THƯ KÝ HỘI ĐỒNG) TS LƯƠNG ĐỨC LONG PGS TS NGÔ QUANG TƯỜNG TS ĐINH CÔNG TỊNH Xác nhận Chủ tịch Hội đồng đánh giá LV Trưởng Khoa quản lý chuyên ngành sau luận văn sửa chữa (nếu có) CHỦ TỊCH HỘI ĐỒNG PGS TS PHẠM HỒNG LUÂN TRƯỞNG KHOA ĐẠI HỌC QUỐC GIA TP HCM CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM TRƯỜNG ĐẠI HỌC BÁCH KHOA Độc lập - Tự - Hạnh phúc NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: VÕ VĂN TRỊ MSHV : 11086088 Ngày, tháng, năm sinh: 20 - 10 - 1988 Nơi sinh: Bình Định Chuyên ngành: CÔNG NGHỆ VÀ QUẢN LÝ XÂY DỰNG Mã số: 60.58.90 I- TÊN ĐỀ TÀI: PHÂN TÍCH ĐỊNH LƯỢNG TRÁCH NHIỆM CÁC BÊN TRONG VIỆC CHẬM TRỄ TIẾN ĐỘ DỰ ÁN XÂY DỰNG GÂY RA BỞI CÔNG TÁC LÀM LẠI II- NHIỆM VỤ VÀ NỘI DUNG: Xác định phương pháp phân tích định lượng chậm trễ dự án ảnh hưởng công tác làm lại phân phối trách nhiệm bên liên quan điều kiện giới hạn nguồn lực Đánh giá phương pháp rút ngắn thời gian hoàn thành dự án, xây dựng phương pháp tối ưu hóa thời gian chi phí với hỗ trợ máy tính nhằm định đưa dự án trở kế hoạch ban đầu với chi phí thấp III- NGÀY GIAO NHIỆM VỤ: 21/01/2013 IV- NGÀY HOÀN THÀNH NHIỆM VỤ: 21/06/2013 V- CÁN BỘ HƯỚNG DẪN: TS LƯƠNG ĐỨC LONG TP HCM, ngày tháng năm 2013 CÁN BỘ HƯỚNG DẪN CHỦ NHIỆM BỘ MÔN ĐÀO TẠO TS LƯƠNG ĐỨC LONG TS LƯƠNG ĐỨC LONG TRƯỞNG KHOA Luận Văn Thạc Sĩ GVHD: TS Lương Đức Long LỜI CẢM ƠN Trong q trình thực luận văn, tơi nhận thấy thực thử thách lớn đòi hỏi nỗ lực học viên Đề hồn thành luận văn khơng dựa vào cố gắng thân mà phải kể đến giúp đỡ nhiều người khác Đặc biệt, tơi xin bày tỏ lịng biết ơn chân thành đến thầy TS Lương Đức Long bảo tận tình động viên tơi lúc khó khăn Nhân xin cảm ơn đến gia đình, thầy cơ, bạn bè hỗ trợ cổ vũ giúp tơi hồn thành luận văn Tp HCM, ngày 20 tháng 07 năm 2013 Võ Văn Trị Ngành: Công Nghệ Và Quản Lý Xây Dựng HVTH: Võ Văn Trị Khóa: 2011 MSHV: 11086088 Luận Văn Thạc Sĩ GVHD: TS Lương Đức Long LỜI CAM ĐOAN Tôi, Võ Văn Trị, xin cam kết trình thực luận văn: “phân tích định lượng trách nhiệm bên việc chậm trễ tiến độ dự án xây dựng gây công tác làm lại”, số liệu thu thập kết nghiên cứu thể hồn tồn trung thực chưa cơng bố nghiên cứu khác (ngoại trừ báo tác giả) Tơi xin chịu trách nhiệm hồn tồn nghiên cứu Tp HCM, ngày 20 tháng 07 năm 2013 Võ Văn Trị Ngành: Công Nghệ Và Quản Lý Xây Dựng HVTH: Võ Văn Trị Khóa: 2011 MSHV: 11086088 ABSTRACT Rework is an important cause of cost and schedule overrun in the construction project The previous reports informed that cost of rework is about 5% of total construction cost Althought several reseach analyzed the root causes of rework and its impact in project cost, but no research exists to support decisions with respect to effective strategy for reduce effects of rework on the cost and schedule in the project This research introduce schedule analysis mechanism consider rework from perspectives: (1) presentation of rework on the schedule, (2) delay analysis mechanism for qualifying and apportioning among parties responsible, (3) optimization method for determining the best selection for recovering schedule at minimum cost The research also mentioned about apportioning damage of subcontractors in the situation concurrent delays, and clearly contract terms in this circumstance are needed to avoid disputes Luận Văn Thạc Sĩ 1GVHD: TS Lƣơng Đức Long MỤC LỤC CHƢƠNG 1: GIỚI THIỆU ĐỀ TÀI 1.1 Giới thiệu chung: 1.2 Xác định vấn đề nghiên cứu: 10 1.3 Mục tiêu nghiên cứu: 10 1.4 Phạm vi nghiên cứu: 11 1.5 Đóng góp nghiên cứu: 11 1.5.1 Về mặt hàn lâm: 11 1.5.2 Về mặt thực tiễn: .11 CHƢƠNG 2: TỔNG QUAN 12 2.1 Các định nghĩa: 12 2.1.1 Thuật ngữ, khái niệm chậm trễ: 12 2.1.2 Thuật ngữ, khái niệm việc làm lại: .13 2.1.3 Thuật ngữ, khái niệm phân tích tiến độ: .14 2.1.4 Thuật ngữ, khái niệm xác định chi phí: 19 2.1.5 Thuật ngữ, khái niệm tài nguyên tối ƣu hóa tiến độ - chi phí: 19 2.2 Tổng quan nghiên cứu liên quan đến đề tài: 21 2.2.1 Xác định nguyên nhân ảnh hƣởng việc làm lại lên kết dự án: 21 2.2.2 Xác định thiệt hại tiến độ: 22 2.2.3 Xác định thiệt hại chi phí phân phối trách nhiệm: .23 2.2.4 Phân phối tài nguyên tối ƣu hóa chi phí - tiến độ: .24 2.3 Kết luận: 24 CHƢƠNG 3: PHƢƠNG PHÁP NGHIÊN CỨU 26 3.1 Qui trình nghiên cứu: 26 3.2 Thu thập liệu: 27 3.3 Công cụ nghiên cứu: 27 3.4 Cấu trúc luận văn: 28 Ngành: Công Nghệ Và Quản Lý Xây Dựng Khóa: 2011 MSHV: 11086088 HVTH: Võ Văn Trị Luận Văn Thạc Sĩ 2GVHD: TS Lƣơng Đức Long CHƢƠNG 4: TRÌNH BÀY SỰ ẢNH HƢỞNG CỦA CƠNG TÁC LÀM LẠI LÊN TIẾN ĐỘ DỰ ÁN 29 4.1 Giới thiệu: 29 4.2 Trình bày công tác làm lại: 29 4.2.1 Trình bày cơng tác làm lại MS Project: 29 4.2.2 Trình bày cơng tác làm lại MS Excel: 31 4.3 Trình bày ảnh hƣởng công tác làm lại lên tiến độ dự án: 34 4.3.1 Trƣờng hợp công tác bị làm lại công tác găng: 34 4.3.2 Trƣờng hợp công tác làm lại công tác không găng: 35 4.3.3 Trƣờng hợp làm lại điều kiện giới hạn tài nguyên: .36 4.3.4 Trong trƣờng hợp tổng quát dự án: 37 4.4 Kết luận: 39 CHƢƠNG 5: PHÂN TÍCH TIẾN ĐỘ XEM XÉT VIỆC LÀM LẠI VÀ TĂNG TỐC DỰ ÁN 40 5.1 Giới thiệu: 40 5.2 Chiến lƣợc tăng tốc dự án: 40 5.3 Phân tích tiến độ: 41 5.6 Kết luận: 50 CHƢƠNG 6: PHÂN PHỐI TÀI NGUYÊN VÀ TỐI ƢU HĨA THỜI GIAN – CHI PHÍ 51 6.1 Giới thiệu: 51 6.2 Tìm thời gian hồn thành dự án không xét ràng buộc tài nguyên: 52 6.3 Tìm thời gian hồn thành dự án với tài nguyên bị giới hạn: 55 6.4: Tìm chi phí tối thiểu để rút ngắn thời gian hoàn thành dự án xuống T ngày: 56 6.5 Kết luận: 64 CHƢƠNG 7: ÁP DỤNG CHO TRƢỜNG HỢP CỤ THỂ 65 7.1 Giới thiệu: 65 7.2 Thông tin dự án: 65 7.3 Dữ liệu kiện gây chậm trễ bên: 65 7.3.1 Phần móng bê tơng cốt thép: 65 Ngành: Công Nghệ Và Quản Lý Xây Dựng Khóa: 2011 MSHV: 11086088 HVTH: Võ Văn Trị Luận Văn Thạc Sĩ 3GVHD: TS Lƣơng Đức Long 7.3.1.1 Chủ đầu tƣ: .65 7.3.1.2 Nhà thầu: 65 7.3.2 Phần hoàn thiện: 66 7.4 Điểu khoản thƣởng, phạt vi phạm tiến độ: 66 7.5 Tiến độ hợp đồng: 66 7.6 Cập nhật kiện thực tế, phân tích tiến độ, rút ngắn tiến độ phần móng bê tông cốt thép: 68 7.6.1 Cập nhật kiện thực tế: 68 7.6.2 Phân tích tiến độ phần móng bê tơng cốt thép: .75 7.6.3 Tối ƣu hóa thời gian – chi phí phần móng bê tông cốt thép: 79 7.7 Cập nhật kiện thực tế, phân tích tiến độ, rút ngắn tiến độ phần hoàn thiện: 86 7.8 Kết luận: 93 CHƢƠNG 8: KẾT LUẬN VÀ KIẾN NGHỊ 94 8.1 Kết luận: 94 8.2 Hạn chế hƣớng nghiên cứu tiếp theo: 95 LÝ LỊCH TRÍCH NGANG 98 QUÁ TRÌNH ĐÀO TẠO 98 Ngành: Cơng Nghệ Và Quản Lý Xây Dựng Khóa: 2011 MSHV: 11086088 HVTH: Võ Văn Trị Luận Văn Thạc Sĩ 4GVHD: TS Lƣơng Đức Long DANH MỤC HÌNH VẼ Hình 1.1: Biểu đồ phần trăm chi phí việc làm lại tổng chi phí dự án (Hegazy vcs, 2011) Hình 2.1: Phân loại chậm trễ xây dựng 12 Hình 2.2: Biểu đồ xƣơng cá phân loại nguyên nhân gây việc làm lại (Fayek vcs, 2003) 13 Hình 2.3: Tiến độ thi cơng theo kế hoạch 16 Hình 2.3: Tiến độ thi cơng thực tế 16 Hình 2.4: Tiến độ thi cơng cập nhật ngày thứ 16 Hình 2.5: Tiến độ thi cơng cập nhật ngày thứ 16 Hình 2.6: Tiến độ thi cơng cập nhật ngày thứ 17 Hình 2.7: Tiến độ thi cơng cập nhật ngày thứ 18 Hình 2.8: Tiến độ thi cơng cập nhật ngày thứ 18 Hình 2.9: Tiến độ thi công cập nhật ngày thứ 18 Hình 2.10: Biểu đồ xác suất thời gian thực tƣơng ứng phƣơng pháp thi công khác (Feng vcs, 2000), PDF: hàm mật độ xác suất 20 Hình 2.11: Biểu đồ xác suất chi phí tƣơng ứng phƣơng pháp thi công khác (Feng vcs, 2000), PDF: hàm mật độ xác suất 21 Hình 2.12: Mối quan hệ tuyến tính thời gian chi phí cơng tác 21 Hình 3.1: Qui trình nghiên cứu tổng thể 26 Hình 3.2: Cấu trúc tổng thể luận văn 28 Hình 4.1: Tiến độ thi công theo kế hoạch 29 Hình 4.2: Tiến độ thi công đƣợc cập nhật ngày thứ 29 Hình 4.3: Tiến độ thi cơng thực tế có cơng tác làm lại ngày thứ 30 Hình 4.4: Tiến độ thi công thực tế thêm ngày bị gián đoạn 30 Hình 4.5: Tiến độ thực tế đƣợc cập nhật thêm cơng việc làm lại 31 Hình 4.6: Tiến độ dự án theo kế hoạch 31 Hình 4.7: So sánh tiến trình thi cơng theo kế hoạch thực tế ngày thứ 32 Hình 4.8: Tiến độ cịn lại cơng tác lắp dựng khung thép theo suất kế hoạch 32 Ngành: Cơng Nghệ Và Quản Lý Xây Dựng Khóa: 2011 MSHV: 11086088 HVTH: Võ Văn Trị Sub createcostconstraints() ‘TAO RANG BUOC BAN DAU 'Tim so luong cong tac slct = For i1 = To 1000 If Cells(i1 + 1, 1).Value > Then slct = slct + End If Next i1 'tim cac rang buoc ve chi phi 'tim gia tri rate, maxreducetime, modified duration For j22 = To slct If Len(Cells(j22 + 1, 5).Value) - Len(Replace(Cells(j22 + 1, 5).Value, "days", "")) = Then If Len(Cells(j22 + 1, 3).Value) - Len(Replace(Cells(j22 + 1, 3).Value, "days", "")) = Then Cells(j22 + 1, 12).Value = Replace(Cells(j22 + 1, 3).Value, "days", "") - Replace(Cells(j22 + 1, 5).Value, "days", "") If Cells(j22 + 1, 12).Value = Then Cells(j22 + 1, 11).Value = Else Cells(j22 + 1, 11).Value = (Cells(j22 + 1, 6).Value Cells(j22 + 1, 4).Value) / (Replace(Cells(j22 + 1, 3).Value, "days", "") - Replace(Cells(j22 + 1, 5).Value, "days", "")) End If Else Cells(j22 + 1, 12).Value = Replace(Cells(j22 + 1, 3).Value, "day", "") - Replace(Cells(j22 + 1, 5).Value, "days", "") If Cells(j22 + 1, 12).Value = Then Cells(j22 + 1, 11).Value = Else Cells(j22 + 1, 11).Value = (Cells(j22 + 1, 6).Value Cells(j22 + 1, 4).Value) / (Replace(Cells(j22 + 1, 3).Value, "day", "") - Replace(Cells(j22 + 1, 5).Value, "days", "")) End If End If Else If Len(Cells(j22 + 1, 3).Value) - Len(Replace(Cells(j22 + 1, 3).Value, "days", "")) = Then Cells(j22 + 1, 12).Value = Replace(Cells(j22 + 1, 3).Value, "days", "") - Replace(Cells(j22 + 1, 5).Value, "day", "") If Cells(j22 + 1, 12).Value = Then Cells(j22 + 1, 11).Value = Else Cells(j22 + 1, 11).Value = (Cells(j22 + 1, 6).Value Cells(j22 + 1, 4).Value) / (Replace(Cells(j22 + 1, 3).Value, "days", "") - Replace(Cells(j22 + 1, 5).Value, "day", "")) End If Else Cells(j22 + 1, 12).Value = Replace(Cells(j22 + 1, 3).Value, "day", "") - Replace(Cells(j22 + 1, 5).Value, "day", "") If Cells(j22 + 1, 12).Value = Then Cells(j22 + 1, 11).Value = Else Cells(j22 + 1, 11).Value = (Cells(j22 + 1, 6).Value Cells(j22 + 1, 4).Value) / (Replace(Cells(j22 + 1, 3).Value, "day", "") - Replace(Cells(j22 + 1, 5).Value, "day", "")) End If End If End If If Len(Cells(j22 + 1, 3).Value) - Len(Replace(Cells(j22 + 1, 3).Value, "days", "")) = Then Cells(j22 + 1, 21).Formula = "=" & Replace(Cells(j22 + 1, 3).Value, "days", "") & "-" & "M" & (j22 + 1) Else Cells(j22 + 1, 21).Formula = "=" & Replace(Cells(j22 + 1, 3).Value, "day", "") & "-" & "M" & (j22 + 1) End If If Cells(j22 + 1, 11).Value Then 'cong tac SS b = b + Cells(b, 18).Formula = "=O" Replace(chuoicon, "SS", "") Replace(chuoicon, "SS", "") + & + (i2 + 1) & "+" & & "-O" "U" & & Cells(b, 19).Formula = "=U" & (i2 + 1) Else 'cong tac FS b = b + Cells(b, 18).Formula = "=O" & (i2 + 1) & "-O" & Val(chuoicon) + Cells(b, 19).Formula = "=U" & (i2 + 1) End If Else If Len(chuoicon) - Len(Replace(chuoicon, "SS", "")) > Then 'cong tac SS 'tim vi tri chu S dau tien vtcs = InStr(1, chuoitam, "S") vtcd = InStr(1, chuoitam, "d") b = b + Cells(b, 18).Formula = "=O" & (i2 + 1) & "-O" & Left(chuoicon, vtcs - 1) + & "+" & "U" & Left(chuoicon, vtcs - 1) + & "-" & Mid(chuoicon, vtcs + 2, vtcd - vtcs - 2) Cells(b, 19).Formula = "=U" & (i2 + 1) Else 'cong tac FS b = b + Cells(b, 18).Formula = "=O" & (i2 + 1) & "-O" & Val(chuoicon) + Cells(b, 19).Formula = "=U" & (i2 + 1) End If End If If vtdp > Then chuoitam = Right(chuoitam, Len(chuoitam) - vtdp) Else chuoitam = chuoitam End If Next i4 End If Next i2 'thoi gian hoan Cells(2, 20).Formula = "=max(O2:O" & slct + & ")" 'ham muc tieu Cells(2, 22).Formula = "=sumproduct(M2:M" & slct + & ",K2:K" & slct + & ")" 'tim thoi gian khoi som For j23 = To slct Cells(j23 + 1, 14).Formula = "=O" & j23 + & "-U" & j23 + Next j23 End Sub Sub optimizeproject() ‘TOI UU HOA THOI GIAN CHI PHI createcostconstraints Dim mtcs(1000, 1) As Double Dim mttt(1000, 1) As Double Dim Matran(), gtri, gtri2 Dim mtrandom(1000, 1) As Double Dim mttam(1000, 1) As Double 'TIM THOI GIAN HOAN THANH DU AN CO XET GIOI HAN TAI NGUYEN tght = Cells(5, 22).Value 'tim so luong cong tac j1 = For j2 = To 1000 If Cells(j2, 1).Value > Then j1 = j1 + Else Exit For End If Next j2 'tim thoi gian hoan Cells(2, 20).Formula = "=max(" & "O2:" & "O" & (j1 + 1) & ")" 'tim so luong rang buoc = j3 = For j4 = To 1000 If Len(Cells(j4, 15).Value) > Then j3 = j3 + Else Exit For End If Next j4 'tim so luong rang buoc >= j5 = For j6 = To 1000 If Len(Cells(j6, 17).Value) > Then j5 = j5 + Else Exit For End If Next j6 'tim so luong tai nguyen du an sltn = For j7 = To 1000 If Len(Cells(j7 + 1, 9).Value) > Then sltn = sltn + End If Next j7 'tim so luong cac phuong an toi uu loai = For j8 = To 100 If Cells(1, j8 + 199).Value Then loai = loai + Else Exit For End If Next j8 'tim gia tri max_i max_i = For j18 = To 1000 If Cells(j18, 200).Value > Then max_i = max_i + Else Exit For End If Next j18 cost = 10 ^ For j9 = To loai 'tnover = 'reducetime = For j10 = To j1 Cells(j10 + 1, 13).Value = Cells(j10 + 1, 15).Value = Cells(j10 + 1, 21).Value Next j10 Solverreset SolverOk SetCell:=Range("V2"), _ MaxMinVal:=2, _ ByChange:=("O2:" & " O" & (j1 + 1) & "," & "M2:" & " M" & (j1 + 1)), _ engine:=1 'rang buoc = SolverAdd CellRef:="$T$" & 2, _ Relation:=2, _ FormulaText:="$T$" & For j17 = To max_i - SolverAdd CellRef:="$N$" & Cells(j17 + 1, j9 + 199) + 1, _ Relation:=3, _ FormulaText:="$O$" & Cells(j17, j9 + 199) + Next j17 'rang buoc so nguyen SolverAdd CellRef:="$O$" & & ":$O$" & j1 + 1, _ Relation:=4 SolverAdd CellRef:="$M$" & & ":$M$" & j1 + 1, _ Relation:=4 'rang buoc >= SolverAdd CellRef:="$M$" & & ":$M$" & j3 + 1, _ Relation:=1, _ FormulaText:="$L$" & & ":$L$" & j3 + 'rang buoc >= SolverAdd CellRef:="$P$" & & ":$P$" & j3 + 1, _ Relation:=3, _ FormulaText:="$Q$" & & ":$Q$" & j3 + 'rang buoc >= SolverAdd CellRef:="$R$" & & ":$R$" & j5 + 1, _ Relation:=3, _ FormulaText:="$S$" & & ":$S$" & j5 + SolverSolve userfinish:=True For j20 = To tght 'so sanh tai nguyen If Cells(j9 + + j1, j20 + 23).Value > rmax Then 'tai nguyen bi vuot qua gioi han ‘Tim loai tai nguyen bi vuot qua gioi han tnover = Exit For Else tnover = End If Next j20 If tnover = Then If cost >= Cells(2, 22).Value Then cost = Cells(2, 22).Value For j16 = To max_i mttam(j16, 1) = Cells(j16, j9 + 199).Value Next j16 End If End If Next j9 'reducetime = For j10 = To j1 Cells(j10 + 1, 13).Value = Cells(j10 + 1, 15).Value = Cells(j10 + 1, 21).Value Next j10 Solverreset SolverOk SetCell:=Range("V2"), _ MaxMinVal:=2, _ ByChange:=("O2:" & " O" & (j1 + 1) & "," & "M2:" & " M" & (j1 + 1)), _ engine:=1 'rang buoc = SolverAdd CellRef:="$T$" & 2, _ Relation:=2, _ FormulaText:="$T$" & For j17 = To max_i - SolverAdd CellRef:="$N$" & mttam(j17 + 1, 1) + 1, _ Relation:=3, _ FormulaText:="$O$" & mttam(j17, 1) + Next j17 'rang buoc so nguyen SolverAdd CellRef:="$O$" & & ":$O$" & j1 + 1, _ Relation:=4 SolverAdd CellRef:="$M$" & & ":$M$" & j1 + 1, _ Relation:=4 'rang buoc >= SolverAdd CellRef:="$M$" & & ":$M$" & j3 + 1, _ Relation:=1, _ FormulaText:="$L$" & & ":$L$" & j3 + 'rang buoc >= SolverAdd CellRef:="$P$" & & ":$P$" & j3 + 1, _ Relation:=3, _ FormulaText:="$Q$" & & ":$Q$" & j3 + 'rang buoc >= SolverAdd CellRef:="$R$" & & ":$R$" & j5 + 1, _ Relation:=3, _ FormulaText:="$S$" & & ":$S$" & j5 + SolverSolve userfinish:=True End Sub Sub cleardataproject() For i = To 240 For j = To 240 Cells(i, j + 8).Value = "" Next j Next i End Sub Sub SolverMacro() ' Example Solver VBA Macro Dim cb As CommandBar Dim cbp As CommandBarPopup Dim optimizeproject As CommandBarButton Dim dataproject As CommandBarButton 'khai bao menu Set cb = Application.CommandBars("Worksheet Menu Bar") 'tao menu bar Set cbp = cb.Controls.Add(msoControlPopup, , , , False) cbp.Caption = "Optimize Time-Cost & Limit Resource" 'tao menu item Set dataproject False) = cbp.Controls.Add(msoControlButton, , , , , , , , , , dataproject.Caption = " Project Data" dataproject.OnAction = "projectdata" Set dataproject False) = cbp.Controls.Add(msoControlButton, dataproject.Caption = "Time without Resource" dataproject.OnAction = "timeandnoresource" Set dataproject False) = cbp.Controls.Add(msoControlButton, dataproject.Caption = "Time and Resource" dataproject.OnAction = "timeandresource" Set optimizeproject = cbp.Controls.Add(msoControlButton, , , , False) optimizeproject.Caption = "Optimize Time and Cost" optimizeproject.OnAction = "optimizeproject" Set dataproject False) = cbp.Controls.Add(msoControlButton, , , dataproject.Caption = "Clear" dataproject.OnAction = "cleardataproject" End Sub Sub deletemenu() Dim cb As CommandBar Dim cbp As CommandBarPopup Dim optimizeTimeandCost As CommandBarButton 'lay tham chieu den trinh don Set cb = Application.CommandBars("worksheet menu bar") 'tham chieu den trinh don hehe Set cbp = cb.Controls("Optimize Time-Cost & Limit Resource") If Not IsNull(cbp) Then cbp.Delete End If End Sub , ... QUẢN LÝ XÂY DỰNG Mã số: 60.58.90 I- TÊN ĐỀ TÀI: PHÂN TÍCH ĐỊNH LƯỢNG TRÁCH NHIỆM CÁC BÊN TRONG VIỆC CHẬM TRỄ TIẾN ĐỘ DỰ ÁN XÂY DỰNG GÂY RA BỞI CÔNG TÁC LÀM LẠI II- NHIỆM VỤ VÀ NỘI DUNG: Xác định. .. phân loại chậm trễ xây dựng. nếu phân loại theo cách diễn chậm trễ có loại chậm trễ nhƣ sau: chậm trễ đồng thời, chậm trễ độc lập, chậm trễ nối tiếp Chậm trễ độc lập: loại chậm trễ xảy cách riêng... – chi phí Các phƣơng pháp phân tích chậm trễ tiến độ Các biện pháp tăng tốc tiến độ dự án xây dựng Nghiên cứu sở lý thuyết Nguyên nhân ảnh hƣởng công tác làm lại lên kết dự án xây dựng Trƣờng