Sửa CODE GỘP Ô (Merge Cell) (1 người xem)

[vuongtoituonglai]

Chào anh, chị và các bạn.
Mình có đoạn code mà PGE từng giúp mình bây giờ mình cần sữa lại chút đỉnh nhưng lay hoay mấy hôm nay mà không ra được kết quả. Rất mong các anh, chị và các bạn giúp mình.
1. Chỉnh code cho hình nằm gọn trong 8 ô đã được Merge ví dụ như từ B1:I1
2. Trong Ô A1 là chữ "G" thì Format A2:J2 màu xanh lá, còn Ô A1 chữ "O" thì Format A2:J2 màu cam, các ô còn lại đều tương tự như vậy. Nếu Conditional Formatting có cách làm thì nhờ các anh, chị và các bạn hướng dẫn dùm, còn không có thì vui lòng giúp dùm mình đoạn code.
Chân Thành Cảm Ơn

 

[Zerothink]

...
1. Chỉnh code cho hình nằm gọn trong 8 ô đã được Merge ví dụ như từ B1:I1
....

thử sửa

Set pic = cell_.Parent.Shapes.AddPicture(mPath & fullName, _
           msoFalse, msoTrue, cell_.Left, cell_.Top, cell_.Width, cell_.Height)

thành (thêm phần đỏ)

Set pic = cell_.Parent.Shapes.AddPicture(mPath & fullName, _
           msoFalse, msoTrue, cell_.Left, cell_.Top, cell_.[COLOR=#ff0000]Resize(, 8)[/COLOR].Width, cell_.Height)

rồi thông báo kết quả, vì tôi có picture của bạn mà thử

 

[vuongtoituonglai]

thử sửa

Set pic = cell_.Parent.Shapes.AddPicture(mPath & fullName, _
           msoFalse, msoTrue, cell_.Left, cell_.Top, cell_.Width, cell_.Height)

thành (thêm phần đỏ)

Set pic = cell_.Parent.Shapes.AddPicture(mPath & fullName, _
           msoFalse, msoTrue, cell_.Left, cell_.Top, cell_.[COLOR=#ff0000]Resize(, 8)[/COLOR].Width, cell_.Height)

rồi thông báo kết quả, vì tôi có picture của bạn mà thử

Cảm ơn bạn nhé, kết quả đúng rồi.
Về phần số 2 Format màu bạn biết thì giúp mình luôn nhé.
Cảm ơn bạn

 

[Zerothink]

Cảm ơn bạn nhé, kết quả đúng rồi.
Về phần số 2 Format màu bạn biết thì giúp mình luôn nhé.
Cảm ơn bạn

Bạn bít conditional formating thì cứ thế làm thui, có chi đâu

- Chọn ô A2:J2 và A7:J7 rồi định dạng tô màu XANH
- rồi chọn conditional formating với formula là
=$A1="O"
chọn màu cam -OK

tương tự cho các ô khác, bạn tự làm được đúng k

 

[vuongtoituonglai]

Bạn bít conditional formating thì cứ thế làm thui, có chi đâu

- Chọn ô A2:J2 và A7:J7 rồi định dạng tô màu XANH
- rồi chọn conditional formating với formula là
=$A1="O"
chọn màu cam -OK

tương tự cho các ô khác, bạn tự làm được đúng k

Cảm ơn bạn.
Mình chọn Ô A2:J2 để định dạng là OK, sau đó mình dùng công cụ Format Painter(hình cây cọ) để định dạng cho các ô còn lại theo hàng ngang thì không cho ra kết quả đúng vẫn dùng công cụ này định dạng theo hàng dọc thì cho ra kết quả đúng bạn nghiêng cứu chỉ lại giùm mình chổ này.

 

[Zerothink]

Cảm ơn bạn.
Mình chọn Ô A2:J2 để định dạng là OK, sau đó mình dùng công cụ Format Painter(hình cây cọ) để định dạng cho các ô còn lại theo hàng ngang thì không cho ra kết quả đúng vẫn dùng công cụ này định dạng theo hàng dọc thì cho ra kết quả đúng bạn nghiêng cứu chỉ lại giùm mình chổ này.

Muốn vậy thì bạn phải làm cho từng ô từ A2 đến J2 (bạn đã merged thì cũng chọn ít thôi) và ứng với từng ô đó bạn đặt công thức sau cho conditional formating
=A2="O"

thì giờ có thể painter được ngang dọc

 

[vuongtoituonglai]

Muốn vậy thì bạn phải làm cho từng ô từ A2 đến J2 (bạn đã merged thì cũng chọn ít thôi) và ứng với từng ô đó bạn đặt công thức sau cho conditional formating
=A2="O"

thì giờ có thể painter được ngang dọc

Cảm ơn bạn, mình đã làm được rồi.