Chức năng do người dùng định nghĩa để thay đổi màu của ô

Question

Tôi đã nhìn thấy nhiều người dùng đặt câu hỏi cố gắng thay đổi màu của ô bằng cách sử dụng chức năng do người dùng định nghĩa. Tôi đã luôn luôn ấn tượng rằng nó không thể làm như vậy. Sự hiểu biết của tôi là một hàm do người dùng định nghĩa không thể thay đổi bất kỳ thuộc tính nào của một ô ngoại trừ giá trị của ô chứa công thức. Subs là những gì thay đổi các tế bào mình.

Tuy nhiên, khi chơi xung quanh với một số mã để kiểm tra điều này, tôi thấy rằng nó không phải luôn luôn như vậy.
Sử dụng mã đơn giản:

Function ColorCell(rng As Range) 
If rng.Value = 1 Then 
    ColorCell = False 
Else 
    ColorCell = True 
    rng.Interior.ColorIndex = 3 
End If 
End Function 

Nếu tôi nhập vào chức năng vào phòng giam, tôi đạt được kết quả mong đợi, không có tế bào thay đổi màu sắc. Tuy nhiên, nếu tôi sử dụng nút Công thức> Chèn hàm và điều hướng đến công thức của tôi để chèn công thức theo cách này, nó làm tô màu các ô được nhắm mục tiêu.

Làm thế nào điều này có thể và tại sao chức năng hoạt động khác khi được nhập theo các cách khác nhau?

EDIT: này đã được thử nghiệm sử dụng Excel 2007

Answer 1

sử dụng mã này ... chỉ cần thay tên sheet và thử

Sheets("sheet_name").range(j:j).clear 

for j=2 to 15 
if Sheets("sheet_name").Cells(j, 1).value=1 then 

else 

Sheets("sheet_name").Cells(j, 1).Interior.ColorIndex = 3 
next j 

Answer 2

tôi sử dụng Worksheet_Change kiện để phát hiện sự thay đổi giá trị trong phạm vi làm việc. Ví dụ: Tôi muốn làm điều gì đó khi phạm vi A1: A5 đã thay đổi. Tôi sử dụng sự kiện bên dưới.

Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range(<Your working range>)) Is Nothing Then 'Define range that you want to do 
     'Statement here 
     ... 

    End If 
End Sub 

Khi giá trị phạm vi thay đổi. Nó sẽ thực thi mã của bạn.

Và cách khác. Sử dụng định dạng có điều kiện.

Answer 3

Như chúng ta đều biết sớm hay muộn, trong các chức năng của người dùng, bạn không thể truy cập các đăng ký thay đổi trực tiếp mọi thứ trong bảng tính của mình.

Nhưng thử điều này:

Dim ColorMeTarget As Range, ColorMeVal As Long 

Public Function ColorMe(ByVal TargetRange As Range, ByVal ColVal As Long) 
    Set ColorMeTarget = TargetRange 
    ColorMeVal = ColVal 
    ColorMe = ColVal 
End Function 

Public Sub ColorMeSub() 
    Application.OnTime Now + TimeValue("00:00:05"), "ColorMeSub" 
    If ColorMeTarget.Interior.Color <> ColorMeVal Then ColorMeTarget.Interior.Color = ColorMeVal 
End Sub 

Nếu bạn chạy các phụ đầu tiên, nó sẽ liên tục quét các biến tĩnh ColorMeTarget và ColorMeVal để xem nếu có sự thay đổi. Chức năng ColorMe sẽ thiết lập các giá trị này. Một số mã bổ sung là cần thiết trong trường hợp ColorMeTarget chưa được khởi tạo.

Nếu bạn thông minh hơn, trước tiên bạn có thể có chức năng kiểm tra xem liệu có thực sự là một thay đổi và thêm các yêu cầu tô màu mới vào ngăn xếp hay không. Tiểu ban tái phát của bạn có thể 'bắt kịp', đặc biệt nếu bạn có nhiều chức năng như thế này.

Bạn thậm chí có thể có tất cả các loại điều khiển bổ sung được thêm vào chức năng/macro của bạn - EVEN STUFF KHÔNG ĐƯỢC BAO GỒM THEO CÁC PHIÊN BẢN MỚI NHẤT CỦA 'ĐỊNH DẠNG ĐIỀU KIỆN' !!! YAY !!!!

Điều gì đó cần thử: Trong một số macro tự động của tôi, tôi có thể đặt OnTime thông qua một hàm nhưng không thể làm cho nó hoạt động ở đây. Nó sẽ được sạch hơn để có chức năng thiết lập các OnTime và không có một phụ reoccuring cần khởi tạo.

Answer 4

cũng có thể thử phương pháp phi kịch bản của tự động tô màu một tế bào dựa trên tình trạng của tế bào (aka Conditional Formatting):