Nhờ các bác tư vấn về macro tiến độ

[4vuong4tron]

Nhờ các bác tư vấn xử lý các trường hợp như hình, bác Maika và bác Bebo giúp e với
(Trong phai gửi kèm đã tích hợp sẵn macro có 2 lựa chọn: lựa chọn 1 là căn chữ đỏ vào giữa, lựa chọn 2 là chữ đỏ ẩn, chữ đỏ là ô chứa công thức)
Kết quả sau khi chạy macro:
ở trường hợp 1 như hình mình thay đổi ngày kết thúc (từ 30 thành 50) chữ đỏ ko tự chỉnh, còn nếu thay đổi ngày bắt đầu <20 chữ màu đỏ sẽ mất, trước khi đổi ngày phải chuyển về 2, đổi ngày, rồi chuyển về 1(mất thêm thao tác)
ở trường hợp 3 nếu xoá cột mã (A16) chữ đỏ ko mất đi, phải chuyển về lựa chọn 2 rồi xoá mới được (mất thêm thao tác)
Cần giúp: theo như yêu cầu hình chụp
Lưu ý: ở trường hợp 2 ngày bắt đầu, kết thúc e muốn xoá luôn để vào lại (trong hình e quyên xoá ô A13 là móng cấp phối đá dăm)

 

[bebo021999]

Ủa, thấy đọc file update rồi mà không thấy hồi âm, tưởng xong rồi chứ!

{Hỏi về macro làm tiến độ}

Nhờ ae tư vấn tạo macro ứng dụng để lập tiến độ (macro 1 và macro 2) macro 1: biến hình 1 thành hình 2 macro 2: biến hình 2 về hình 1 như lúc đầu Hình 1(chữ đỏ nằm ở ngày 11 và 21) và hình 2 (chữ đỏ nằm giữa ngày 11-39 và 21-49) ghi chú: ở cột TT chạy từ 1 đến N

www.giaiphapexcel.com

 

[4vuong4tron]

Ủa, thấy đọc file update rồi mà không thấy hồi âm, tưởng xong rồi chứ!

{Hỏi về macro làm tiến độ}

Nhờ ae tư vấn tạo macro ứng dụng để lập tiến độ (macro 1 và macro 2) macro 1: biến hình 1 thành hình 2 macro 2: biến hình 2 về hình 1 như lúc đầu Hình 1(chữ đỏ nằm ở ngày 11 và 21) và hình 2 (chữ đỏ nằm giữa ngày 11-39 và 21-49) ghi chú: ở cột TT chạy từ 1 đến N

www.giaiphapexcel.com

vẫn chưa ổn lắm bác à vì có vài trường hợp e chưa lường hết, nhờ bác giúp em với
ko biết em nên đăng vào mục nào bác nhỉ, bác cho em xin cái đường dẫn chuyên mục cần đăng để em đăng lại với

 

[BuiQuangThuan]

vẫn chưa ổn lắm bác à, nhờ bác giúp em với, ko biết em nên đăng vào mục nào bác nhỉ, bác cho em xin cái đường dẫn chuyên mục cần đăng để em đăng lại với

Nếu nó cùng 1 vấn đề thì có thể hỏi luôn ở topic bên kia cũng được. Còn nó là vấn đề mới thì lập chủ đề mới như này cũng chẳng sao.
Nhưng cái tên tiêu đề kia có vẻ là phạm quy rồi.

 

[4vuong4tron]

Nếu nó cùng 1 vấn đề thì có thể hỏi luôn ở topic bên kia cũng được. Còn nó là vấn đề mới thì lập chủ đề mới như này cũng chẳng sao.
Nhưng cái tên tiêu đề kia có vẻ là phạm quy rồi.

vẫn là chủ đề cũ nhưng có phát sinh thêm, thấy mấy cái đều phạm quy bị khoá cả nên ko biết đăng vào đâu, hoang mang quá, đang còn nhiều vấn đề cần giải quyết

 

[Maika8008]

vẫn là chủ đề cũ nhưng có phát sinh thêm, thấy mấy cái đều phạm quy bị khoá cả nên ko biết đăng vào đâu, hoang mang quá, đang còn nhiều vấn đề cần giải quyết

Đăng ở đây là được rồi. Tiêu đề hơi chung chung nhưng chắc không phạm quy đâu. Còn nội dung cần giải quyết thì tính sau

 

[bebo021999]

vẫn chưa ổn lắm bác à vì có vài trường hợp e chưa lường hết, nhờ bác giúp em với
ko biết em nên đăng vào mục nào bác nhỉ, bác cho em xin cái đường dẫn chuyên mục cần đăng để em đăng lại với

Vậy post lại file của mình ở đây, mô tả rõ chưa ổn chỗ nào?

 

[4vuong4tron]

Vậy post lại file của mình ở đây, mô tả rõ chưa ổn chỗ nào?

Vậy post lại file của mình ở đây, mô tả rõ chưa ổn chỗ nào?

E xin trình bày câu chuyện thế này:
1. Phai đầu tiên của bác bebo đã ok. Nhưng sau đó e có hỏi bác bebo thêm mấy trường hợp như (ấn 1 sẽ hiện chữ màu đỏ, ấn 2 chữ màu đỏ sẽ ko hiện và trả về công thức như lúc đầu) chưa thấy bác hồi âm (sau này lại thấy bác giúp e sửa lại như bài 2)
2. Sau đó e có post bài khác và có đưa đoạn cod ban đầu lên, yêu cầu cũng khác hơn, có bác maika bổ sung thêm giúp e đoạn cod. Dựa vào hướng dẫn của bác maika em sửa lại macro và chạy thử
3. E thấy cần phải bổ sung thêm cho hoàn thiện hơn nên e có nhờ 2 bác giúp như em đã trình bày ở trên
vì e nhờ 2 bác là 2 yêu cầu khác nhau nên thành ra câu chuyện khó hiểu
Đoạn cod ban đầu của bác bebo (có phai của bác kèm theo)
................................
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
End If
.......................................
Đoạn cod theo hướng dẫn của bác maika thay đoạn cod trên (có phai của bác kèm theo)
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
.Resize(1, ngay).Font.Color = vbRed
Else
.Copy .Resize(1, ngay)
Range("CD" & cell.Row & ":FO" & cell.Row).Font.Color = .Interior.Color
End If

 

[bebo021999]

Wow.
Bắt đầu rối bời rồi đây.
Đẻ đứa con mà nhìn mãi không biết con Lý trưởng hay Quan huyện nữa.

 

[Maika8008]

E xin trình bày câu chuyện thế này:
1. Phai đầu tiên của bác bebo đã ok. Nhưng sau đó e có hỏi bác bebo thêm mấy trường hợp như (ấn 1 sẽ hiện chữ màu đỏ, ấn 2 chữ màu đỏ sẽ ko hiện và trả về công thức như lúc đầu) chưa thấy bác hồi âm (sau này lại thấy bác giúp e sửa lại như bài 2)
2. Sau đó e có post bài khác và có đưa đoạn cod ban đầu lên, yêu cầu cũng khác hơn, có bác maika bổ sung thêm giúp e đoạn cod. Dựa vào hướng dẫn của bác maika em sửa lại macro và chạy thử
3. E thấy cần phải bổ sung thêm cho hoàn thiện hơn nên e có nhờ 2 bác giúp như em đã trình bày ở trên
vì e nhờ 2 bác là 2 yêu cầu khác nhau nên thành ra câu chuyện khó hiểu
Đoạn cod ban đầu của bác bebo (có phai của bác kèm theo)
................................
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
End If
.......................................
Đoạn cod theo hướng dẫn của bác maika thay đoạn cod trên (có phai của bác kèm theo)
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
.Resize(1, ngay).Font.Color = vbRed
Else
.Copy .Resize(1, ngay)
Range("CD" & cell.Row & ":FO" & cell.Row).Font.Color = .Interior.Color
End If

Bạn xem file thử có phải như yêu cầu không?

 

[4vuong4tron]

Bạn xem file thử có phải như yêu cầu không?

Vẫn ko được bác à
E có quay lại video nhờ bác xem hộ

Liên kết: https://youtu.be/Xq1vPO7KllI
Ý em là: Nếu tất cả các công tác đang ở chế độ lựa chọn 1 hoặc 2 đều sẽ thoả mãn điều kiện
a. Khi ta thay đổi ngày bắt đầu hoặc ngày kết thúc chữ đỏ sẽ tự căn chỉnh lại (nếu ở lựa chọn 1 còn ở lựa chọn 2 luôn đúng)
b. Còn khi ta xoá 1 công tác (cột mã màu đỏ chẳng hạn) nào đó thì hàng đó sẽ tự động xoá ngày bắt đầu, ngày kết thúc và đưa về lựa chọn 2 (tức là bỏ liên kết và ô chữ đỏ sẽ không thấy) (nếu ô hiện tại đang ở cả 2 lựa chọn 1 và 2)

 

[Maika8008]

Vẫn ko được bác à
E có quay lại video nhờ bác xem hộ

Liên kết: https://youtu.be/Xq1vPO7KllI
Ý em là: Nếu tất cả các công tác đang ở chế độ lựa chọn 1 hoặc 2 đều sẽ thoả mãn điều kiện
a. Khi ta thay đổi ngày bắt đầu hoặc ngày kết thúc chữ đỏ sẽ tự căn chỉnh lại (nếu ở lựa chọn 1 còn ở lựa chọn 2 luôn đúng)
b. Còn khi ta xoá 1 công tác (cột mã màu đỏ chẳng hạn) nào đó thì hàng đó sẽ tự động xoá ngày bắt đầu, ngày kết thúc và đưa về lựa chọn 2 (tức là bỏ liên kết và ô chữ đỏ sẽ không thấy) (nếu ô hiện tại đang ở cả 2 lựa chọn 1 và 2)

Thử lại có đúng ý chưa nhé.

 

[4vuong4tron]

Thử lại có đúng ý chưa n

Thử lại có đúng ý chưa nhé.

Ok rồi bác nhưng nhờ bác sủa lại hộ em 1 tý:
khi macro đang hiện thị ở chế độ 2, ta thay đổi ngày bắt đầu hoặc ngày kết thúc thì nó vẫn hiện thị chế độ 2 (phai trên đang ở chế độ 1)

 

[vova2209]

Gửi bác tham khảo file tiến độ thi công em hay dùng!

 

[4vuong4tron]

Gửi bác tham khảo file tiến độ thi công em hay dùng!

Cảm ơn bạn, mình cũng muốn làm 1 cái xem sao, về cơ bản cũng giống của bạn nhưng mình muốn dùng macro
mà phai của bạn load lâu thật, bạn theo dõi bài mình, khi nào hoàn thiện góp ý mình với

 

[vova2209]

Cảm ơn bạn, mình cũng muốn làm 1 cái xem sao, về cơ bản cũng giống của bạn nhưng mình muốn dùng macro
mà phai của bạn load lâu thật

máy mình bật phát lên, phát 1 phát 1, máy bạn chắc dính virus macro nên khởi động chậm rồi

 

[Maika8008]

Ok rồi bác nhưng nhờ bác sủa lại hộ em 1 tý:
khi macro đang hiện thị ở chế độ 2, ta thay đổi ngày bắt đầu hoặc ngày kết thúc thì nó vẫn hiện thị chế độ 2 (phai trên đang ở chế độ 1)

Chắc là ổn rồi đấy.

 

[4vuong4tron]

Chắc là ổn rồi đấy.

Tuyệt vời quá, cảm ơn bác nhiều nhé!
Bác có thể bổ sung thêm 1 trường hợp đặc biệt này hộ em với (e gửi phai thực hành dưới đó bác)
- Khi thay đổi ngay bắt đầu và kết thúc vị trí ô hiện tại ở ngày kết thúc mã đang chọn (trong phai đang ở cột FO)
-Khi chọn 1 và 2 thì sẽ bỏ qua các hàng có mã tô đậm hoặc viết hoa (A10, A19) tức là hàng đó luôn luôn ở lựa chọn 2 và đường kẻ đen hàng 11 và hàng 20 chuyển sang màu xanh

 

[Maika8008]

Tuyệt vời quá, cảm ơn bác nhiều nhé!
Bác có thể bổ sung thêm 1 trường hợp đặc biệt này hộ em với (e gửi phai thực hành dưới đó bác)
- Khi thay đổi ngay bắt đầu và kết thúc vị trí ô hiện tại ở ngày kết thúc mã đang chọn (trong phai đang ở cột FO)
-Khi chọn 1 và 2 thì sẽ bỏ qua các hàng có mã tô đậm hoặc viết hoa (A10, A19) tức là hàng đó luôn luôn ở lựa chọn 2


View attachment 286902

Có vẻ yêu cầu phát sinh vô tận ha.

 

[BuiQuangThuan]

Có vẻ yêu cầu phát sinh vô tận ha.

Cái này quen này. còn vấn đề phát sinh là còn yêu cầu anh ạ