Điều đó đã hiệu quả. Nó sẽ hoạt động như thế nào nếu bạn có A1 trong Sheet1 thay đổi xảy ra với B1 trong Sheet2, nhưng A2 trong Sheet1 cũng thay đổi xảy ra với B2 trong Sheet2?

Xin chào Bất cứ ai có thể giúp với câu hỏi trên càng sớm càng tốt, tôi đang rất cần nó và sắp hết thời gian.

Не могли бы вы написать прям оригинальный код,без разъяснений,я новичок и вообще не могтппгя

Chào,
mã này dường như hoạt động nếu tôi tham chiếu đến một ô nhưng nếu tôi nhập một dải ô, dải ô trên trang tính 2 chuyển sang màu đen thay vì đối chiếu với màu nội thất.

bất kỳ ý tưởng tại sao điều đó có thể xảy ra?

Xin chào Crystal,
Cảm ơn rất nhiều. Hoạt động hoàn hảo!
Bạn thật tuyệt vời! O_o

Chào Crystal!
Mã giống nhau sẽ như thế nào nếu tôi muốn nó sao chép sang cả Sheet2 và Sheet3 cùng một lúc?

Xin chào, ai đó có thể trả lời câu hỏi này. Tôi đang cố gắng làm chính xác điều này và không gặp may.

điều này không làm việc cho tôi. Tôi tiếp tục gặp lỗi về "lỗi biên dịch, phát hiện tên không rõ ràng" ....

điều này không làm việc cho tôi. có thể phạm vi ô không giống nhau trên cả hai trang tính. bạn có thể giúp tư vấn những gì phải làm hoặc làm thế nào để điều chỉnh mã xin vui lòng?

Cái này phù hợp với tôi khi dán vào tham chiếu trang thứ hai - nhưng tôi phải thực hiện sửa đổi, tôi sẽ hiển thị sửa đổi bên dưới để bạn có thể xem phiên bản đầu tiên của Crystal, sau đó của tôi với sửa đổi đã hoạt động khi tôi cần bao gồm hai bộ thay thế của một. Đây là cái mà Crystal đưa cho Joey sau khi anh ta nói rằng phạm vi mục tiêu chuyển sang màu đen khi anh ta thử nó:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg theo phạm vi
Làm mờ xCRg theo phạm vi
Dim xStrAddress dưới dạng Chuỗi
Dim xFNum dưới dạng số nguyên
xStrAddress = "Trang tính2! $ A $ 1: $ A $ 10"
Đặt xRg = Application.Range (xStrAddress)
Đặt xCRg = Me.Range ("$ A $ 1: $ A $ 10")
On Error Resume Next
Đối với xFNum = 1 Đến xRg.Count
xRg.Item (xFNum) .Interior.Color = xCRg.Item (xFNum) .Interior.Color
Sau
End Sub
Mod của tôi đã hoạt động để bao gồm hai bộ (ví dụ: tham chiếu các cột hoặc hàng khác nhau hoặc những gì bạn có) đã bao gồm phần này:
On Error Resume Next
Đối với xFNum = 1 Đến xRg.Count
xRg.Item (xFNum) .Interior.Color = xCRg.Item (xFNum) .Interior.Color
Sau
sau mỗi "bộ" của tôi
Vì vậy, nếu không sửa đổi các bộ mẫu mà Crystal đã cung cấp để khác với nhau (có thể là của bạn nếu bạn đang cố gắng tham khảo các hàng khác nhau, v.v.), nó sẽ giống như sau:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg theo phạm vi
Làm mờ xCRg theo phạm vi
Dim xStrAddress dưới dạng Chuỗi
Dim xFNum dưới dạng số nguyên
xStrAddress = "Trang tính2! $ A $ 1: $ A $ 10"
Đặt xRg = Application.Range (xStrAddress)
Đặt xCRg = Me.Range ("$ A $ 1: $ A $ 10") Khi Lỗi Tiếp tục Tiếp theo
Đối với xFNum = 1 Đến xRg.Count
xRg.Item (xFNum) .Interior.Color = xCRg.Item (xFNum) .Interior.Color
Sau
xStrAddress = "Trang tính2! $ A $ 1: $ A $ 10"
Đặt xRg = Application.Range (xStrAddress)
Đặt xCRg = Me.Range ("$ A $ 1: $ A $ 10")
On Error Resume Next
Đối với xFNum = 1 Đến xRg.Count
xRg.Item (xFNum) .Interior.Color = xCRg.Item (xFNum) .Interior.Color
Sau
End Sub

với dòng 6-8 và 13-15 là "bộ" và dòng 9-12 và 16-19 là mã phải lặp lại sau mỗi bộ.
Tôi hy vọng điều đó có ý nghĩa vì tôi không biết gì về điều này, tôi chỉ tìm cách sao chép những gì được liệt kê ở đây đã hoạt động. Lần đầu tiên tôi đã thử có hai bộ bằng cách cắm vào mã như hiện tại, bộ đầu tiên chuyển các ô thành màu đen và bộ thứ hai hoạt động và chuyển các ô mục tiêu sang màu phù hợp. Cuối cùng tôi đã phát hiện ra rằng để hoạt động, mỗi bộ cần mã dòng 9-12 sau nó. Chế độ này cho phép các màu thích hợp (trong trường hợp của tôi) chuyển từ hai cột khác nhau trên trang tính gốc sang các ô tương ứng trong một phạm vi nhất định trên trang tính mục tiêu.

Xin chào esad, tôi đang gặp trường hợp tương tự với bạn, tôi sẽ đánh giá cao nếu bạn chia sẻ

Theo đính kèm
Tên đội ở hàng 2 (R đến AD)
Mỗi hàng dưới tên nhóm liên quan đến nhiệm vụ trong Col D
Điều tôi muốn là khi một cái tên được nhập vào ô L, nó sẽ tô màu ô đó với màu của các thành viên trong nhóm trên hàng đó
ví dụ: trong Col L nhập Emma, ​​nó nhìn Emma ở W1 và đưa Green từ W2 sang. nếu là Paula sẽ nhìn Paula trong T1 và mang hổ phách từ T2, v.v.
Tên đã nhập sẽ vẫn giữ nguyên như ví dụ trong L2 & 3

Cảm ơn bạn đã giúp đỡ
Không chắc chắn về cách đính kèm ảnh chụp màn hình hoặc một FILE, tôi có thể gửi nó qua email

Cảm ơn vì đã cố gắng