Màu chuỗi con từ Excel VBA: tại sao một số phương pháp rõ ràng không hoạt động?

Question

Tôi đã xây dựng một số hình ảnh thú vị dựa trên khả năng của mã VBA để thiết lập các màu khác nhau cho các bản chất trong Excel. Đối với ô có chứa chuỗi, cú pháp hoạt động như thế này rCell.Characters(start,end).Font.Color=SomeColour

Ứng dụng của tôi tạo chuỗi và đặt giá trị màu trong một bước bằng cách thêm chuỗi mới vào giá trị hiện tại và sau đó đặt màu của chuỗi mới. Điều này không hiệu quả. Bắt đầu với một chuỗi hoàn chỉnh và sau đó tô màu nhiều chuỗi phụ thì hoạt động.

Hai thói quen đơn giản minh họa sự khác biệt:

Sub TestColourString1() 
    'designed to show that substring colour can be done to preexisting string 
    Dim rngTestString As Range 

    Set rngTestString = Range("colour_string") 

    rngTestString.Value = "red green blue" 

    rngTestString.Characters(1, 4).Font.Color = RGB(255, 0, 0) 
    rngTestString.Characters(5, 10).Font.Color = RGB(0, 255, 0) 
    rngTestString.Characters(11, 14).Font.Color = RGB(0, 0, 255) 

    End Sub 




    Sub TestColourString2() 
    'designed to show that setting colour while building string doesn't work 
    Dim rngTestString As Range 

    Set rngTestString = Range("colour_string") 

    rngTestString.Value = "red " 
    rngTestString.Characters(1, 4).Font.Color = RGB(255, 0, 0) 

    rngTestString.Value = rngTestString.Value & "green " 
    rngTestString.Characters(5, 10).Font.Color = RGB(0, 255, 0) 

    rngTestString.Value = rngTestString.Value & "blue" 
    rngTestString.Characters(11, 14).Font.Color = RGB(0, 0, 255) 


    End Sub 

Hai thói quen dẫn đến hai kết quả khác nhau hiển thị dưới đây:

Đối với chuỗi dài với nhiều subsegments nó thậm chí còn tồi tệ hơn. Tôi đang sử dụng Excel 2010.

Vì vậy, đây có phải là lỗi của tôi hay là lỗi? Có cách nào tốt hơn để tạo và chuỗi màu từ VBA?

Answer 1

Chỉ định .Value không kỳ diệu tìm cách thêm vào dữ liệu hiện có. Nó xóa dữ liệu cũ và đưa vào dữ liệu mới.

Nếu các ký tự có màu, màu của ký tự đầu tiên được sử dụng để tô màu chuỗi mới.

Nếu bạn muốn các phụ thêm thực tế, giống như nếu bạn tự sử dụng thanh công thức trong Excel, sau đó nối sử dụng .Characters:

Dim rngTestString As Range 

Set rngTestString = Range("colour_string") 

Range("colour_string").Characters(Len(Range("colour_string").Value) + 1).Text = "red " 
rngTestString.Characters(1, 4).Font.Color = RGB(255, 0, 0) 

Range("colour_string").Characters(Len(Range("colour_string").Value) + 1).Text = "green " 
rngTestString.Characters(5, 10).Font.Color = RGB(0, 255, 0) 

Range("colour_string").Characters(Len(Range("colour_string").Value) + 1).Text = "blue" 
rngTestString.Characters(11, 14).Font.Color = RGB(0, 0, 255) 

Answer 2

Formatting (bao gồm cả màu) substrigns trong một loạt các tế bào excel với macro , xem video:

http://youtu.be/O0h6T5Z7HwY