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ái ấy thì Record Macro lấy công thức thay cái cũ đi là xong bạn à

.
........................................ o O o .........................................
 If sArr(I, 1) = Empty And sArr(I, 4) <> Empty Then dArr(K, 8) = "=IF(RC[-2]<>"""",PRODUCT(RC[-3]:RC[-1]),"""")"
......................................... o O o .........................................

Giờ mới rảnh để xem lại bài viết của bạn đây! Mình rất cảm ơn sự nhiệt tình của bạn. Có vướng mắc trong CODE mình sẽ hỏi bạn thêm nhé. Bạn có thể diễn giải cách bạn thực hiện trong CODE để mình rõ hơn được không? Vì mình thấy có tới 02 Module
1/ Module 1: Gồm 3 thủ tục TÌM ĐƠN GIÁ, TÍNH TIỀN và LẤY DỰ TOÁN
2/ Module 2: Là 1 thủ tục MACRO để xác định ô hoạt động
Mình còn gà mờ về VBA quá nên rất mong được sự hướng dẫn của bạn
Phần đơn giá là nó sẽ tự link từ sheet Giá sang, mình muốn đổi cho nó thành hàm index thì có thể sửa trong CODE được không?
Còn nữa:
3/ Nếu mình chèn dòng hoặc delete dòng thì CODE còn đúng nữa hay không?
4/ khi LINK đơn giá của từng hạng mục sang sheet DỰ TOÁN thì có thể tạo cho nó thành LINK được không bạn?

 

[PacificPR]

Bạn bấm F8 duyệt qua các dòng lệnh xem nó hoạt động thế nào. Đây là cách của mình học VBA đấy bạn
À em quên câu hỏi thư 2.
+ Nếu dùng hàm trong dư toàn thì coi như là mình làm thủ công rồi
+ Vì cái link cell nên code em làm hơi dài. Nếu lấy Value thì code ngắn lại 1 khúc và dễ làm hơn

 

[sondaubac]

Bạn bấm F8 duyệt qua các dòng lệnh xem nó hoạt động thế nào. Đây là cách của mình học VBA đấy bạn
À em quên câu hỏi thư 2.
+ Nếu dùng hàm trong dư toàn thì coi như là mình làm thủ công rồi
+ Vì cái link cell nên code em làm hơi dài. Nếu lấy Value thì code ngắn lại 1 khúc và dễ làm hơn

Có thể xem qua File này giúp mình với được không bạn?

 

[PacificPR]

Có thể xem qua File này giúp mình với được không bạn?

Noá bị làm sao vậy. Sáng mai mình xem thử. Bây giờ đang dùng đt chỉ tán gẫu
được thôi ...

 

[Gà Công Nghệ]

Noá bị làm sao vậy. Sáng mai mình xem thử. Bây giờ đang dùng đt chỉ tán gẫu được thôi ...

Bạn sài điện thoại mà bạn không sài mạng xã hội. Đôi lúc có công việc thì mạng xã hội cũng có nhiều cái hay.

 

[sondaubac]

Noá bị làm sao vậy. Sáng mai mình xem thử. Bây giờ đang dùng đt chỉ tán gẫu
được thôi ...

Ví dụ như bây giờ mình tạo sẵn 1 cơ sở dữ liệu căn cứ vào các mã hiệu và cứ thế là nhập mã hiệu vào cột mã hiệu là nó sẽ tự chạy ra số thứ tự, tên hạng mục công việc, định mức có được không nhỉ.
Xem qua cái này giúp mình với nha bạn, bạn tốt quá.

 

[PacificPR]

Ví dụ như bây giờ mình tạo sẵn 1 cơ sở dữ liệu căn cứ vào các mã hiệu và cứ thế là nhập mã hiệu vào cột mã hiệu là nó sẽ tự chạy ra số thứ tự, tên hạng mục công việc, định mức có được không nhỉ.
Xem qua cái này giúp mình với nha bạn, bạn tốt quá.

Mình thấy anh @HieuCD đang xem bài rồi. Bạn sẽ có cách tối ưu cho bài toán này thôi.

 

[Gà Công Nghệ]

Bạn bấm F8 duyệt qua các dòng lệnh xem nó hoạt động thế nào. Đây là cách của mình học VBA đấy bạn
À em quên câu hỏi thư 2.
+ Nếu dùng hàm trong dư toàn thì coi như là mình làm thủ công rồi
+ Vì cái link cell nên code em làm hơi dài. Nếu lấy Value thì code ngắn lại 1 khúc và dễ làm hơn

Hi, nhờ bạn mình mới biết thêm được cái F8. Từ nào giờ di chuyển chuột để dò không à, mỏi mắt và tốn công sức nữa. Cám ơn bạn nhiều nghe.

 

[sondaubac]

Đây là File mà mình muốn hoàn thành dựa vào những câu hỏi trước đó mà mình đã đặt ra.
1/ Từ bảng DATA có thể căn cứ vào cột MÃ SỐ để xuất kết quả sang Sheet PhantichVT trước rồi sau đó xuất kết quả sang sheet Dongia chitiet được không ? (File Hoi Code VBA 8)
2/ Có 1 file mẫu của đàn anh đi trước đã gửi cho mình tham khảo như mong muốn mà mình đã nói ở mục 1 nhưng không biết làm cách nào để tải lên cả.

 

[HieuCD]

Mình thấy anh @HieuCD đang xem bài rồi. Bạn sẽ có cách tối ưu cho bài toán này thôi.

Phương án hợp lý là chọn 1 trong 2 cách
1/ dùng công thức không dùng VBA
2/ dùng VBA không có công thức Excel
Dùng công thức là ổn nhất trong tình huống nầy

 

[sondaubac]

Phương án hợp lý là chọn 1 trong 2 cách
1/ dùng công thức không dùng VBA
2/ dùng VBA không có công thức Excel
Dùng công thức là ổn nhất trong tình huống nầy

Anh ơi, anh xem dùm em File "Hoi Code VBA 8" với

 

[HieuCD]

Anh ơi, anh xem dùm em File "Hoi Code VBA 8" với

Chỉ dùng công thức hay chỉ dùng VBA không lồng công thức?

 

[sondaubac]

Chỉ dùng công thức hay chỉ dùng VBA không lồng công thức?

làm sao mà làm VBA xong thì nó hiện lên công thức luôn được không anh?

 

[HieuCD]

làm sao mà làm VBA xong thì nó hiện lên công thức luôn được không anh?

Mục đích dùng VBA để làm gì? nếu có công thức thì cứ copy và dán lại nếu thêm dữ liệu là xong

 

[sondaubac]

Mục đích dùng VBA để làm gì? nếu có công thức thì cứ copy và dán lại nếu thêm dữ liệu là xong

Thì muốn học hỏi và nâng cao khả năng làm việc văn phòng thôi mà anh

 

[sondaubac]

Mình thấy anh @HieuCD đang xem bài rồi. Bạn sẽ có cách tối ưu cho bài toán này thôi.

Mình cảm ơn bạn đã hỗ trợ giúp đỡ mình nhé!

Bạn có thể chỉ cho mình biết tại sao trong quá trình lập VBA bạn tạo ra 2 Module :

Module 1: Gồm 3 thủ tục Tìm Đơn Giá, Tính Tiền, Lấy Dự toán

Module 2: Gồm 1 Macro (Cái này để làm gì vậy?)

Và bạn đã làm cách nào để tổng hợp 2 Module được và chạy đồng loạt được vậy. Mình hỏi nhiều quá bạn thông cảm cho mình nhé

 

[PacificPR]

Mình cảm ơn bạn đã hỗ trợ giúp đỡ mình nhé!

Bạn có thể chỉ cho mình biết tại sao trong quá trình lập VBA bạn tạo ra 2 Module :

Module 1: Gồm 3 thủ tục Tìm Đơn Giá, Tính Tiền, Lấy Dự toán

Module 2: Gồm 1 Macro (Cái này để làm gì vậy?)

Và bạn đã làm cách nào để tổng hợp 2 Module được và chạy đồng loạt được vậy. Mình hỏi nhiều quá bạn thông cảm cho mình nhé

Bạn xem cái file này thử xem
Cách thực hiện:
*) Cập nhật đơn giá: Tại Sheets("1. Gia") nhập đơn giá thực tế xong ---> Click nút Cập nhật đơn giá
*) Nhập mã hiệu tại sheets("3. Du toan ")
- Click vào cột B hiện Form chọn mã hiệu
- Nhập khối lượng
----------- Xong -----------------

 

[sondaubac]

Bạn xem cái file này thử xem
Cách thực hiện:
*) Cập nhật đơn giá: Tại Sheets("1. Gia") nhập đơn giá thực tế xong ---> Click nút Cập nhật đơn giá
*) Nhập mã hiệu tại sheets("3. Du toan ")
- Click vào cột B hiện Form chọn mã hiệu
- Nhập khối lượng
----------- Xong -----------------

Bạn ơi, lúc click vào cột B bên dự toán để chọn mã hiệu thì nó báo là Run time Error '1004':

 

[PacificPR]

Mình làm vẫn bình thường

 

[sondaubac]

Về cơ bản thì chỉ cần thay đổi dữ liệu trong Sheet DATA và đơn giá thì sẽ chạy được đúng không bạn. Mình thì bị lỗi này. Hay là do Excel của mình chỉ là 2010 nên bị lỗi nhỉ.
Nó báo là "Unable to set the LineStyle property of the Borders class".