Xóa ký tự theo màu

[hieuxd]

Nhờ mọi người viết code xóa ký tự theo màu
Trên một File excel có dữ liệu màu đen và màu đỏ em muốn xóa tất cả các ký tự màu đen chỉ giữ lại ký tự màu đỏ
Chi tiết kết quả mong muốn trong file excel em đính kèm

 

[hungpecc1]

Nhờ mọi người viết code xóa ký tự theo màu
Trên một File excel có dữ liệu màu đen và màu đỏ em muốn xóa tất cả các ký tự màu đen chỉ giữ lại ký tự màu đỏ
Chi tiết kết quả mong muốn trong file excel em đính kèm

bạn vào diễn đàn đã được 1 thời gian, mình nghĩ code này bạn hoàn toàn có thể viết được mà !

 

[hieuxd]

bạn vào diễn đàn đã được 1 thời gian, mình nghĩ code này bạn hoàn toàn có thể viết được mà !

Trình độ Code của mình mới ở mức độ đọc và sửa chữa, Viết Code quá kém, Cũng phải lên núi luyện Code thôi, Vì mục đích ứng dụng ngay cho công việc chuyên môn nên cần mọi người giúp, mình sẽ học dần dần từ từ

 

[hungpecc1]

Trình độ Code của mình mới ở mức độ đọc và sửa chữa, Viết Code quá kém, Cũng phải lên núi luyện Code thôi, Vì mục đích ứng dụng ngay cho công việc chuyên môn nên cần mọi người giúp, mình sẽ học dần dần từ từ

bạn thử tùy biến code sau xem thế nào :

Function TextByColor(rng As Range, colorindex As Long) As String
    Dim str$, i&, sResult$, tmp
        str = rng.Value
        For i = 1 To Len(str)
            tmp = Mid(str, i, 1)
            If tmp <> " " Then
                 If rng.Characters(i, 1).Font.colorindex = colorindex Then
                    sResult = sResult & tmp
                End If
            Else
                sResult = sResult & tmp
            End If
        Next
        TextByColor = Application.Trim(sResult)
End Function
'=============ktra==================================
Sub GPE()
    MsgBox TextByColor([B6], 3)
End Sub

Tại ô C4 bạn sẽ nhập công thức :

=TextByColor(B4,3)

hoặc nếu bạn thích tạo một nút bấm dạng command button thì tạo thêm 1 thủ tục nữa !

 

[Cá ngừ F1]

A Hùng có cách khai báo biến lạ ghê ta, chia sẻ đi anh.

 

[hungpecc1]

A Hùng có cách khai báo biến lạ ghê ta, chia sẻ đi anh.

lạ gì đâu , đó là ký hiệu viết tắt trong khai báo biến thôi mà :
ví dụ :

Dim s as string = Dim s$

 

[hieuxd]

bạn thử tùy biến code sau xem thế nào :

Function TextByColor(rng As Range, colorindex As Long) As String
    Dim str$, i&, sResult$, tmp
        str = rng.Value
        For i = 1 To Len(str)
            tmp = Mid(str, i, 1)
            If tmp <> " " Then
                 If rng.Characters(i, 1).Font.colorindex = colorindex Then
                    sResult = sResult & tmp
                End If
            Else
                sResult = sResult & tmp
            End If
        Next
        TextByColor = Application.Trim(sResult)
End Function
'=============ktra==================================
Sub GPE()
    MsgBox TextByColor([B6], 3)
End Sub

Tại ô C4 bạn sẽ nhập công thức :

=TextByColor(B4,3)

hoặc nếu bạn thích tạo một nút bấm dạng command button thì tạo thêm 1 thủ tục nữa !

Bận quá giờ quay lại thử lại thấy Code của Hungpecc1 áp dụng vào công việc của mình rất tốt
VBA thật tuyệt vời

 

[Quang_Hải]

A Hùng có cách khai báo biến lạ ghê ta, chia sẻ đi anh.

Sub khaibao()
Dim i&, str$, j#, k!
MsgBox TypeName(i)
MsgBox TypeName(str)
MsgBox TypeName(j)
MsgBox TypeName(k)
End Sub