Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để tự động liên kết một màu ô với một màu khác trong Excel?

Trong khi sử dụng Microsoft Excel, bạn có biết cách tự động liên kết màu ô với màu khác không? Bài viết này sẽ chỉ cho bạn phương pháp để đạt được nó.

Tự động liên kết màu ô với màu khác bằng mã VBA


Tự động liên kết màu ô với màu khác bằng mã VBA

Giả sử bạn muốn liên kết màu tô của ô A1 với C1, khi thay đổi màu tô của ô A1, màu của C1 sẽ tự động chuyển sang như cũ. Hãy làm như sau.

1. Bấm chuột phải vào tab trang tính mà bạn cần liên kết một màu ô với một màu khác, rồi bấm Mã Chế độ xem từ menu chuột phải.

2. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ.

Mã VBA: Tự động liên kết một màu ô với một màu khác trong Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

Chú thích: bạn có thể thay đổi tham chiếu ô trong mã khi bạn cần.

3. Tiếp tục để nhấn Khác + Q cùng một lúc để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Kể từ bây giờ, khi thay đổi màu tô của ô A1, màu tô của ô C1 sẽ tự động được thay đổi thành màu tương tự.


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (48)
Xếp hạng 4.5 trong 5 · xếp hạng 1
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Còn giữa các trang tính trong cùng một sổ làm việc - xin vui lòng cho biết công thức thay đổi như thế nào? cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hướng dẫn tuyệt vời. Thanks :) !!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
vâng, tôi muốn biết làm thế nào để phản chiếu một màu sắc sang một trang tính khác ??? Tôi có một công thức trong cả hai hộp nhưng tôi muốn màu của một trong đó phản chiếu màu trên trang tính khi nó thay đổi. tức là .. Bảng Ngày đào tạo là w / trong 30 ngày và hộp chuyển sang màu đỏ; hộp tương ứng trên trang tính chính, hộp có dấu "X" cũng chuyển thành màu đỏ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Jessica,
Hộp có nghĩa là gì? Hộp văn bản?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để thực hiện việc này nếu hai ô nằm trong các sổ làm việc khác nhau không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Dustin,
Không thể xử lý các sổ làm việc khác nhau. Cảm ơn bình luận của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thấy ở đây, trong phần giải thích, làm thế nào để cho một ô, làm thế nào để làm cho ít ô?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Rogerio,
Ý của bạn là liên kết màu tô của một ô với nhiều ô cùng một lúc?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
y su el la celda A1 tiene un formato condicional?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu các ô là các trang tính khác nhau?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Mario,
Giả sử bạn muốn liên kết màu của ô A1 trong trang tính hiện tại với dải ô B1: J19 trong Sheet2, vui lòng áp dụng mã VBA bên dưới. Sau khi thay đổi màu tô của A1, vui lòng nhấp vào ô khác trong trang tính hiện tại để kích hoạt mã.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg theo phạm vi
Dim xStrAddress dưới dạng Chuỗi
xStrAddress = "Trang tính2! $ B $ 1: $ J $ 19"
Đặt xRg = Application.Range (xStrAddress)
xRg.Interior.Color = Me.Range ("A1"). Nội thất.Color
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đ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?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Mã VBA dưới đây có thể giúp bạn giải quyết vấn đề. Cảm ơn bình luận của bạn.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg theo phạm vi
Dim xStrAddress dưới dạng Chuỗi
xStrAddress = "Trang tính2! $ B $ 1"
Đặt xRg = Application.Range (xStrAddress)
xRg.Interior.Color = Me.Range ("A1"). Nội thất.Color
xStrAddress = "Trang tính2! $ B $ 2"
Đặt xRg = Application.Range (xStrAddress)
xRg.Interior.Color = Me.Range ("A2"). Nội thất.Color
xStrAddress = "Trang tính2! $ B $ 3"
Đặt xRg = Application.Range (xStrAddress)
xRg.Interior.Color = Me.Range ("A3"). Nội thất.Color
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Не могли бы вы написать прям оригинальный код,без разъяснений,я новичок и вообще не могтппгя
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi Andrew,
Đây là toàn bộ mã VBA mà bạn có thể sử dụng trực tiếp trong trang tính của mình. Vui lòng làm theo hướng dẫn từng bước để thêm nó vào cửa sổ mã tương ứng trong trình soạn thảo VBA.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thật không may, nó không hoạt động với tôi. Tôi tự hỏi có phải vì ô gốc là danh sách có quy tắc định dạng có điều kiện để thay đổi màu nền tùy thuộc vào tùy chọn được chọn trong danh sách hay không.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Amanda,
Mã này không hoạt động đối với màu tô được chỉ định bởi quy tắc định dạng có điều kiện. Xin lỗi vì sự bất tiện.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có thể liên kết màu từ một phạm vi trên một trang tính với một phạm vi khác có cùng kích thước trên một trang tính khác không? Ví dụ: tôi có các màu xen kẽ mỗi vài hàng và tôi muốn bảng màu đó sao chép sang một trang tính khác.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Charles,
Đoạn mã dưới đây có thể giúp bạn một việc. Nếu bạn muốn liên kết màu từ dải A1: A19 trên Sheet1 với cùng dải "A1: A19" trên Sheet2, vui lòng sao chép mã vào cửa sổ Mã của Sheet1, sau đó, nhấp vào ô bất kỳ trên Sheet1 để kích hoạt mã. Hy vọng tôi có thể giúp đỡ. Cảm ơn bình luận của bạn.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg theo phạm vi
Dim xStrAddress dưới dạng Chuỗi
xStrAddress = "Trang tính2! $ A $ 1: $ A $ 19"
Đặt xRg = Application.Range (xStrAddress)
xRg.Interior.Color = Me.Range ("A1: A19"). Nội thất.Color
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Joey,
Xin lỗi vì những lỗi lầm. Hãy thử mã này:

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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
đ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" ....
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
đ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?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào LG,
Có hai dòng bạn có thể sửa đổi: phạm vi "$ A $ 1: $ A $ 10" của dòng thứ tám, và "Trang tính 2! $ A $ 1: $ A $ 10" của dòng thứ sáu, cho biết bạn sẽ liên kết màu tô của dải ô A1: A10 trong một trang tính (giả sử Sheet1 và mã phải được thêm vào cửa sổ mã trang tính này) vào cùng một phạm vi trong Sheet2.
Bạn có thể chỉ định hai phạm vi khác nhau khi bạn cần. Và hãy đảm bảo rằng tên trang tính bạn nhập ở dòng thứ sáu là tên trang tính hiện có.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng cái này để tạo ra các mẫu dệt. Tôi muốn có một số nhóm nhóm vì vậy tôi chỉ phải thay đổi một ô để xem điều gì sẽ xảy ra trong mẫu của tôi. Nó hoạt động từ ô a1 đến c1 nhưng khi tôi cố gắng thêm một tập hợp mới a2 vào c1 thì không. Tôi có thể hiểu nhầm, nhưng tôi đã sao chép cùng một công thức bên dưới công thức đầu tiên và thay đổi các tham chiếu ô. Đó có phải là vấn đề? Có cách nào khác không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để liên kết màu ô dựa trên giá trị ô khác và màu được liên kết tự động.

Ví dụ về Pháo đài.



Tôi có giá trị trang 1 là 898 và trên trang 2 giá trị là 898 và ô đó có màu hồng. Làm thế nào tôi có thể liên kết cùng một màu để giống nhau dựa trên manh mối là trang 2 được liên kết với trang 1 - vì vậy nó có thể hiển thị cùng một màu. Nhưng nó sẽ là một phạm vi; sử dụng toàn bộ hàng để khớp các giá trị của nó và sau đó liên kết các màu.



Bất kỳ trợ giúp nào cũng được đánh giá rất cao
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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ẻ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang tìm kiếm các màu sao chép được tạo từ bảng được định dạng có điều kiện sang một bảng khác - tự động bằng công thức / hàm. Điều này có khả thi không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hy,
Tôi muốn điều đó khi tôi thay đổi thủ công màu trong cột A sheet1 để tự động thay đổi màu trong cột A sheet2.
Tôi đang yêu cầu giúp đỡ. Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Ivana, Vui lòng thử mã dưới đây. Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'Cập nhật Extendoffice 20201127
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 $ 100"
Đặt xRg = Application.Range (xStrAddress)
Đặt xCRg = Me.Range ("$ A $ 1: $ A $ 100")
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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hola buenas trễ. Como hacer que cuando seleccione una celda se active otra, y si selecciono otro cambie a otro celda con que este vinculada.Ejemplo: si alecciono A1 se active celda H20, y si doy otro se desactive. Se que seria mucho trabajo porque tensria que programar cada celda, pero no importa, es solo saber como hacerlo. Gracias bởi su apoyo!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, mã trên hoạt động nhưng sẽ không hoạt động nhiều lần trong một trang tính? 
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi all,

Vấn đề của tôi là trang chủ của tôi (trang đầu tiên) chứa một bản tóm tắt thông tin được cung cấp trong các trang sau. Tất cả các ô có liên quan đã được định dạng để phản ánh giá trị của các ô tương ứng của chúng trong các trang tính khác.

vì vậy, ví dụ: ô trang chủ ô F7 của tôi đã được định dạng nên nó sẽ sao chép giá trị của ô tương ứng trong trang tính nguồn:
= quý1! B15

Bây giờ, điều tôi thực sự muốn là các ô trên trang chủ của tôi cũng khớp với màu mà tôi chọn thủ công cho ô (nguồn) tương ứng của chúng trong một trang tính khác. Điều này có thể sử dụng mã hóa VBA không?

Tôi nhận được mã dưới đây từ một trang web khác nhưng nó chỉ hoạt động nếu các ô nằm trên cùng một trang tính.
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Me.Range ("C1"). Interior.Color = Me.Range ("A1"). Interior.Color
End Sub

Có cách nào tôi có thể chỉnh sửa mã này để tham chiếu đến một ô trên một trang tính khác trong cùng một sổ làm việc không?

Cảm ơn bạn rất nhiều vì đã giúp đỡ của bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi tự hỏi nếu bạn có thể giúp tôi
Tôi có một bảng tính có tên các thành viên trong nhóm (17 người trong số họ) ở Hàng 2
Trong cột H, chúng tôi sẽ phân bổ nhiệm vụ cho một thành viên trong nhóm
Trong cột T, chúng tôi có dữ liệu để hiển thị thành viên trong nhóm đang ở giai đoạn nào cho nhiệm vụ này (xanh lá cây / Hổ phách / Đỏ)
Những gì tôi muốn làm là mang màu sắc cho nhiệm vụ từ cột T đến cột H với tên mà chúng tôi đã nhập

Mọi sự trợ giúp sẽ rất được trân trọng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi Ann,
Bạn có phiền cung cấp ảnh chụp màn hình dữ liệu của bạn không? Xin lỗi vì sự bất tiện.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi Ann,
Tôi đã thử một số phương pháp và vẫn không thể giải quyết được vấn đề của bạn. Xin lỗi vì sự bất tiện.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì đã cố gắng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Aqui la tiene en ingles


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 = ("Hoja2! A1")
Đặt xRg = Application.Range (xStrAddress)
Đặt xCRg = Me.Range ("A1")
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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thành công khi sử dụng dòng mã này:
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

Tôi muốn có thể sử dụng một phạm vi để ảnh hưởng đến nhiều người khác trong một phần mã. IE, nếu tôi thay đổi màu trong $ A $ 1: $ A $ 10, nó sẽ thay đổi màu trong $ C $ 10: $ C $ 19, $ D $ 21: $ D $ 30 và $ F $ 10: $ F $ 19. Điều này có khả thi không? Cảm ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào cả nhà, có ai có thể giúp mình trường hợp tương tự với esad với
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL