Tự động tô màu trong Excel như thế nào????

Liên hệ QC

File đính kèm

ptlong04x1 đã viết:
Thử đoạn code này xem, chủ yếu là để nhìn cho rõ chứ đôi lúc nó cũng gây phiền phức.

PHP: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = 0
    ActiveCell.EntireRow.Interior.ColorIndex = 8
    ActiveCell.EntireColumn.Interior.ColorIndex = 8
    Application.CutCopyMode = True
End Sub
Xem File, nhớ Enables Macros.
Nhấp chuột vào đây để mở rộng...
bạn ơi cho mình hỏi mình chèn lệnh này vào đâu vậy ak ?
 
nhờ các bác hướng dẫn giúp em tô màu cả dòng khi mình nhập ngày ở cột D1 thì cả dòng đó chuyển sang màu xanh, tương tự nhập ở D2 thì cả dòng 2 chuyển sang mau xanh. em mò mãi trong Conditional Formatting mà chưa tìm ra. cảm ơn các bác.
 
namnhim đã viết:
nhờ các bác hướng dẫn giúp em tô màu cả dòng khi mình nhập ngày ở cột D1 thì cả dòng đó chuyển sang màu xanh, tương tự nhập ở D2 thì cả dòng 2 chuyển sang mau xanh. em mò mãi trong Conditional Formatting mà chưa tìm ra. cảm ơn các bác.
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo:
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    For Each Target In Range("D1:D100")
        If IsDate(Target) Then
            Target.EntireRow.Interior.ColorIndex = 35
            Else
            Target.EntireRow.Interior.ColorIndex = -4142
        End If
    Next
    Application.ScreenUpdating = True
End Sub
 
cái này dung thế nào bạn nhỉ. cảm ơn bạn
 
namnhim đã viết:
cái này dung thế nào bạn nhỉ. cảm ơn bạn
Nhấp chuột vào đây để mở rộng...
Bạn làm như sau:
1. Gõ Alt +F11 để mở cửa sổ VBA
2.Chép Code vào Sheet1
3. Ghi lại
4.Gõ Alt +Q để quay trở lại bảng tính
5. Bây giờ bạn nhập các giá trị là ngày tháng vào cột D xem thế nào nhé
123.jpg
 
em muốn thêm nếu nhập ngày ở cột b1 thì dòng đó chuyển sang màu đỏ, nhập cột C1 thì dòng đó chuyển sang màu vàng, cảm ơn bác
 
namnhim đã viết:
em muốn thêm nếu nhập ngày ở cột b1 thì dòng đó chuyển sang màu đỏ, nhập cột C1 thì dòng đó chuyển sang màu vàng, cảm ơn bác
Nhấp chuột vào đây để mở rộng...
Bạn thử:
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$B$1" And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 3
    End If
    If Target.Address = "$C$1" And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 6
    End If
    If Target.Address = "$D$1" And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 35
    End If
    Application.ScreenUpdating = True
End Sub
 
cảm ơn bạn phulien1902 rất nhiều. cái này dùng cho 1 động ok, nếu nhiều dòng thì sửa thế nào bạn nhỉ?
 
namnhim đã viết:
cảm ơn bạn phulien1902 rất nhiều. cái này dùng cho 1 động ok, nếu nhiều dòng thì sửa thế nào bạn nhỉ?
Nhấp chuột vào đây để mở rộng...
Thì thế này bạn nhé:
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Column = 2 And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 3
    End If
    If Target.Column = 3 And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 6
    End If
    If Target.Column = 4 And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 35
    End If
    Application.ScreenUpdating = True
End Sub
 
Xin kéo chủ đề này lên một chút
- Mình có sửa một chút đoạn code của anh Batê ở trang 2 và tạo được một đoạn mã sao cho khi nhập dữ liệu ở cột A thì tự động tô màu cho 4 ô A,B,C,D trên cùng hàng đó. Xóa dữ liệu đi thì phần tô màu cũng mất. Code này dùng cho một form nhập liệu của mình
-Vì một số dữ liệu cuối của ngày hôm nay có thể là dữ liệu đầu tiên của ngày mai cho nên thay vì xóa đi nhập lại thì mình giữ chuột trái và kéo thả nó lên hàng đầu tiên. Vấn đề phát sinh là khi kéo như vậy, phần tô màu cũ của nó không bị mất đi. Vậy có cách nào xóa phần tô màu cũ đi không ? Mình gởi file đính kèm.
 

File đính kèm

ptlong04x1 đã viết:
Thử đoạn code này xem, chủ yếu là để nhìn cho rõ chứ đôi lúc nó cũng gây phiền phức.

PHP: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = 0
    ActiveCell.EntireRow.Interior.ColorIndex = 8
    ActiveCell.EntireColumn.Interior.ColorIndex = 8
    Application.CutCopyMode = True
End Sub
Xem File, nhớ Enables Macros.
Nhấp chuột vào đây để mở rộng...

Làm cách nào để khi in nó không in cái màu hàng hoặc cột đó không hả các bác? Xin cám ơn các bác nhiều!
 
huytuna đã viết:
Bạn giúp mình cụ thể hơn có được ko? Cám ơn bạn nhiều!
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo ở đây
www.giaiphapexcel.com

Cách vô hiệu hóa nhanh một Sub

Chào các thành viên GPE! Thông thường để vô hiệu hóa một Sub nào đó thì ta thường đánh dấu nháy ' cho Sub đó, ta đánh dấu nháy cho tất cả các dòng từ đầu Sub cho đến End Sub như vậy sẻ mất nhiều thời gian. Vậy cho hỏi có cách nào để vô hiệu hóa nhanh một Sub không? đồng thời có cách nào bỏ toàn...
www.giaiphapexcel.com www.giaiphapexcel.com
Hoặc
www.giaiphapexcel.com

Xin hỏi Vô hiệu hóa code khi không muốn sử dụng

Chào các bạn! Mình có một đoạn code khi sử dụng sẽ đọc số tiền thành chữ: Cụ thể là ô C3: 100.000.000 khi ở ô D3 sử dụng code =VND(C3) sẽ đọc là: (Một trăm triệu đồng ./. ) Các bạn cho mình hỏi Sub để sử dụng đọc tiền trong code nói trên là sub nào trong đoạn code mình gửi. Nhờ các bạn vô hiệu...
www.giaiphapexcel.com www.giaiphapexcel.com
 
AnhThu-1976 đã viết:
Bạn tham khảo ở đây
www.giaiphapexcel.com

Cách vô hiệu hóa nhanh một Sub

Chào các thành viên GPE! Thông thường để vô hiệu hóa một Sub nào đó thì ta thường đánh dấu nháy ' cho Sub đó, ta đánh dấu nháy cho tất cả các dòng từ đầu Sub cho đến End Sub như vậy sẻ mất nhiều thời gian. Vậy cho hỏi có cách nào để vô hiệu hóa nhanh một Sub không? đồng thời có cách nào bỏ toàn...
www.giaiphapexcel.com www.giaiphapexcel.com
Hoặc
www.giaiphapexcel.com

Xin hỏi Vô hiệu hóa code khi không muốn sử dụng

Chào các bạn! Mình có một đoạn code khi sử dụng sẽ đọc số tiền thành chữ: Cụ thể là ô C3: 100.000.000 khi ở ô D3 sử dụng code =VND(C3) sẽ đọc là: (Một trăm triệu đồng ./. ) Các bạn cho mình hỏi Sub để sử dụng đọc tiền trong code nói trên là sub nào trong đoạn code mình gửi. Nhờ các bạn vô hiệu...
www.giaiphapexcel.com www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...

Mình không hiểu gì về VBA cả bạn à! Mình chỉ thấy code trên rất hay, nên mình muốn nhờ bạn và mọi người trên GPE giúp làm sao vẫn giữ sử dụng code trên, nhưng khi mình in thì nó sẽ không hiển thị màu sắc của cột và hàng đã chuyển màu tự động đó thôi… Cám ơn bạn và mọi người rất nhiều!
 
huytuna đã viết:
Mình không hiểu gì về VBA cả bạn à! Mình chỉ thấy code trên rất hay, nên mình muốn nhờ bạn và mọi người trên GPE giúp làm sao vẫn giữ sử dụng code trên, nhưng khi mình in thì nó sẽ không hiển thị màu sắc của cột và hàng đã chuyển màu tự động đó thôi… Cám ơn bạn và mọi người rất nhiều!
Nhấp chuột vào đây để mở rộng...
Trước đây tôi cũng như bạn, tôi cũng không biết gì và cũng tự tìm tòi thêm khi được các thành viên khác hướng dẫn
 
Chào các ac nhờ các ac chuyển cho e file dpf này sang exel mà ko bị lỗi font cho e với ạ
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

V
Cho 2 biến - kết quả trả về giá trị của hàng đầu tiên
Trả lời
0
Đọc
1
vic_it
V
D
Giúp đỡ thống kê dữ liệu theo điều kiện
Trả lời
7
Đọc
140
VetMini
V
Mr.hieudoanxd
  • Question Question
[Cần hướng dẫn] Về lập trình Viết Function với Settimer và Killtimer
    • Thích
Trả lời
2
Đọc
110
Mr.hieudoanxd
Mr.hieudoanxd
bachloc1212
Đưa Text từ các dòng khác nhau về chung 1 dòng
Trả lời
10
Đọc
188
VetMini
V
N
Sửa lỗi code vba khi chạy cho ra kết quả không đúng
Trả lời
6
Đọc
137
VetMini
V
Ha Manh-LD
  • Question Question
Lấy dữ liệu từ file csv
Trả lời
1
Đọc
94
ptm0412
ptm0412
T
Nhờ hỗ trợ hàm SUMIF không phân biệt được các ký tự "0" trước một số trong chuỗi
Trả lời
2
Đọc
105
VetMini
V
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
13
Đọc
402
LuuAnh980
LuuAnh980
HeSanbi
  • Đã giải quyết
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
9
Đọc
833
HeSanbi
HeSanbi
Tienvinh191
  • Question Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
28
Đọc
2K
quyenpv
quyenpv
F
Hiển thị text trong Gantt chart (Google sheets)
Trả lời
0
Đọc
45
FATA11
F
Maika8008
  • Đã giải quyết
[Chia sẻ] Dùng VBA trộn dữ liệu Excel sang file Word mẫu (tương tự chức năng Mail Merge)
    • Thích
    • Yêu thích
    • Cảm ơn
25 26 27
Trả lời
522
Đọc
50K
Manhhung90
Manhhung90
C
Trách nhiệm pháp lý của chi nhánh doanh nghiệp Việt Nam tại nước ngoài với Công ty tại Việt Nam
Trả lời
5
Đọc
211
VetMini
V
C
  • Question Question
import data từ excel lên google sheet
Trả lời
5
Đọc
615
SonBDND
S
ptm0412
Chúc mừng năm mới Ất Tỵ 2025
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
1
Đọc
139
ptm0412
ptm0412
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
2
Đọc
954
thopd
T
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
2
Đọc
125
VetMini
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
307
Đọc
22K
kunkoi9390
K
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
6
Đọc
2K
tranhungdao12a3
T
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
45
Đọc
14K
ngocthu90
ngocthu90
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom