Takeofftools - Cập nhật tin công nghệ, máy tính, phần mềm đa dạng
  • Home
  • Phần Mềm
No Result
View All Result
  • Home
  • Phần Mềm
No Result
View All Result
Takeofftools - Cập nhật tin công nghệ, máy tính, phần mềm đa dạng
No Result
View All Result
Home Uncategorized

TÔ MÀU trong excel theo điều kiện.TÔ MÀU dữ liệu TRÙNG nhau với màu khác nhau

admin by admin
July 12, 2020
in Uncategorized
9
TÔ MÀU trong excel theo điều kiện.TÔ MÀU dữ liệu TRÙNG nhau với màu khác nhau



Hướng dẫn Tô màu theo điều kiện trong excel. Tô màu dữ liệu trùng nhau với những màu khác nhau. Hướng dẫn tô màu dữ liệu trong excel theo điều kiện nhập vào.Tô màu những ô trùng dữ liệu với nhau với những màu khác nhau. #tinhocvanphongtht
Nguyễn Thị Tiếp –
Đăng ký kênh để nhận được video mới:
Download tài liệu:
Facebook hỗ trợ:
XEM THÊM CÁC BÀI HƯỚNG DẪN KHÁC TRONG KÊNH TIN HỌC VĂN PHÒNG
========================================
HỌC WORD :

HỌC EXCEL CƠ BẢN:

HƯỚNG DẪN GIẢI BÀI TẬP EXCEL:

HỌC EXCEL NÂNG CAO:

HỌC POWERPOINT ONLINE:

HƯỚNG DẪN LÀM TRÒ CHƠI BẰNG POWERPOINT:

HỌC LẬP TRÌNH VB.NET:

HỌC LẬP TRÌNH ASP.NET:

Nguồn: https://takeofftools.com/

Xem thêm bài viết khác: https://takeofftools.com/hoc-excel/

Xem thêm Bài Viết:

  • 10+ Cách hóa giải vận xui, rước tài lộc vào nhà
  • Thông tin cần biết khi xem Cakhia TV trực tiếp bóng đá
  • Sim tứ quý là gì? Ý nghĩa của sim tứ quý 1111
  • Dự án biệt thự Bình Chánh
  • CRM cho các công ty và đại lý bất động sản
Previous Post

[SEGA Genesis Music] El Viento - Full Original Soundtrack OST

Next Post

Le Huu Nhiem - Luyện gõ máy tính 10 ngón - Mario

Next Post
Le Huu Nhiem – Luyện gõ máy tính 10 ngón – Mario

Le Huu Nhiem - Luyện gõ máy tính 10 ngón - Mario

Comments 9

  1. Vui Vui says:
    2 years ago

    Cho e xin code với cô giáo

    Reply
  2. Huy Nguyen says:
    2 years ago

    Cô giáo nói ngọng N và L

    Reply
  3. Hoan Nhu Dinh says:
    2 years ago

    admin gửi xin code với

    Reply
  4. Cuong Ho says:
    2 years ago

    Nói ngọng nghịu quá, nghe mệt quá.

    Reply
  5. HIỀN VŨ says:
    2 years ago

    Nhận xét k có c ơi

    Reply
  6. HIỀN VŨ says:
    2 years ago

    sao k có mã code hả c

    Reply
  7. ngoc anh le says:
    2 years ago

    ko thấy công thức hả chị ơi? cho em xin công thức ạ daisy.anhle@gmail.com . Em xin cảm ơn ạ.

    Reply
  8. Bibo Taki says:
    2 years ago

    Mình muốn tô màu với 2 điều kiện 1 lượt được không bạn. Ví dụ tô màu những ô số 30 và 28

    Reply
  9. Tin học văn phòng THT says:
    2 years ago

    Đây là hai thủ tục tô màu và hủy tô màu
    Sub ToMau()

    Dim ws As Worksheet

    Dim cell As Range

    Dim myrng As Range

    Dim clr As Long

    Dim lastcell As Range

    Dim i As Long

    Dim lastrow As Long

    Set ws = ThisWorkbook.ActiveSheet

    'Vung can danh dau gia tri trung nhau
    Set myrng = Sheet8.Range("C4:c" & Sheet8.Range("A" & Sheet8.Rows.Count).End(xlUp).Row) 'lua chon vung c4 den c cuoi cùng

    With myrng

    Set lastcell = .Cells(.Cells.Count)

    End With

    myrng.Interior.ColorIndex = xlNone

    clr = 3

    For Each cell In myrng

    'Kiem tra so gia tri trung nhau trong vung, neu co hai gia tri trung nhau tro len thi thuc hien

    If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then

    'Neu la o dau tien cua cac gia tri trung nhau trong vung

    If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Address = cell.Address Then

    'Thiet lap mau

    cell.Interior.ColorIndex = clr

    clr = clr + 1

    i = i + 1

    Else

    'Thiet lap mau tu o thu 2 voi cac gia tri trung nhau

    cell.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Interior.ColorIndex

    End If

    End If

    Next

    'Lay dong cuoi cung cua vung du lieu

    'lastrow = Cells(Rows.Count, "A").End(xlUp).Row

    'Range("A" & lastrow + 2).Value = "Tong so co" & i & " gia tri trung nhau"

    End Sub
    ==============================
    Sub HuyBo_Mau()

    Dim myrng As Range

    Set myrng = Sheet8.Range("C4:C" & Sheet8.Range("A" & Sheet8.Rows.Count).End(xlUp).Row)

    With myrng.Interior

    .Pattern = xlNone

    .TintAndShade = 0

    .PatternTintAndShade = 0

    End With

    End Sub

    Reply

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Tin mới

No Content Available
  • Chính Sách Bảo Mật
  • Liên Hệ
  • Takeofftools – Cập nhật tin công nghệ, máy tính, phần mềm đa dạng

© 2022 JNews - Premium WordPress news & magazine theme by Jegtheme.

No Result
View All Result
  • Home
  • Phần Mềm

© 2022 JNews - Premium WordPress news & magazine theme by Jegtheme.