Nhờ giúp em viết code VBA tính cột thành tiền và link đơn giá

[sondaubac]

Nhờ các thầy, các anh trên GPE giúp em viết 1 đoạn code VBA để link công thức như sau:

Em đã tính toán ra kết quả, nhưng cứ ngồi link bằng tay thấy bất tiện quá, mong mọi người viết dùm em 1 đoạn CODE để tính các nội dung sau:

1/ Tính cột thành tiền dựa vào:
Định mức * Đơn giá
Riêng vật liệu khác và máy khác thì tính bằng % của thành tiền các loại vật liệu ở trên

2/ Link kết quả của đơn giá từng hạng mục

Em xin chân thành cảm ơn!

 

[sondaubac]

Cảm ơn mọi người đã giúp đỡ. Mình còn vướng phần tạo Form nhập dữ liệu đầu vào nữa, mong mọi người giúp đỡ thêm chỗ này với

 

[PacificPR]

Cảm ơn mọi người đã giúp đỡ. Mình còn vướng phần tạo Form nhập dữ liệu đầu vào nữa, mong mọi người giúp đỡ thêm chỗ này với

Cái phần tìm kiếm nhanh Bác tự làm nha

 

[sondaubac]

Cái phần tìm kiếm nhanh Bác tự làm nha

ôi cảm ơn bạn nhé, tuyệt vời quá.
Nhờ sự giúp đỡ của mọi người đặc biệt là bạn Pacific mình đã làm được điều mà mình mong muốn. Tuy nhiên nhìn vào CODE của em vẫn còn rối rắm và chưa gọn gàng. Rất mong mọi người hỗ trợ tinh giản và gộp các CODE lại cho ngắn gọn hơn hoặc là sửa lại CODE cho hợp lý

 

[sondaubac]

Sao đến phần định dạng kẻ khung mình làm lúc thì được, lúc thì lại báo lỗi "unable to set the linestyle property of the border class"

Mình làm CODE như thế này bị báo lỗi khi áp dụng đối với sheet1 còn các sheet khác thì lâu lâu mới bị, còn không thì dùng bình thường????? Lạ quá

Sub Dinh_Dang()

    Dim ir As Integer
    Dim ic As Integer
 
    ir = 6                                                                      ' Dòng đầu tiên chứa dữ liệu cần định dạng
    ic = Range("C65536").End(xlUp).Row        ' Dòng cuối cùng chứa dữ liệu cần định dạng
 
    Range("A" & ir, "L" & ic).Select
    Selection.HorizontalAlignment = xlCenter     'canh giữa cho đều theo cột
   
    Selection.Borders(xlInsideVertical).LineStyle = xlContinuous        ' Kẻ dòng đứng
    Selection.Borders(xlInsideHorizontal).LineStyle = xlDot             ' Kẻ dòng ngang
    Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous              ' Kẻ khung trái
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous               ' Kẻ khung trên
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous            ' Kẻ khung dưới
    Selection.Borders(xlEdgeRight).LineStyle = xlContinuous             ' Kẻ khung phải
 
 
 
End Sub