Tự động đổi màu ô và chữ trong Excel 2007

  • Thread starter Thread starter salemok
  • Ngày gửi Ngày gửi

salemok

Cao cấp
Mình muốn lập một bảng. Mà khi những ô âm sẽ tự chuyển sang màu đỏ.( chữ hoac màu nền)
Vậy phải làm sao.
 
Pear đọc mà chưa hiểu cách làm, các bạn chỉ dẫn rõ hơn được không?

Xin cảm ơn.
 
Để quản lý số liệu cho tốt( mà ở đây thì chỉ có 2 điều kiện) , sử dụng format/ condition format/ Sau đấy ở codition 1 chọn Cell value is và chọn less than equa to và đánh số 0, rôi chọn format và định dạng màu mình cần
 
cac ban nao co VBA, vui long cho minh xin nhe.
toto_dang@yahoo.com
Bạn tham khảo thêm những ví dụ sau:
Sub BAndFColor()
Dim Rng As Range, rRng As Range
Set Rng = Selection.SpecialCells(xlCellTypeConstants, 1)
1' Tô màu những ô có giá trị <=O
For Each rRng In Rng
If rRng.Value <= 0 Then
rRng.Interior.ColorIndex = 34
rRng.Interior.Pattern = xlSolid
End If
Next rRng
Set Rng = Selection.SpecialCells(xlCellTypeFormulas, 21)
2' Tô màu những ô công thức có giá trị <=O
For Each rRng In Rng
If rRng.Value <= 0 Then
rRng.Font.ColorIndex = 3
End If
Next rRng
Set Rng = Nothing
End Sub
 
Có cách nào để khi mình gõ một cột có các nội dung khác nhau mà màu khác nhau không? Vd:
Trẻ em => có màu đỏ
Người lớn => màu xanh
Người già => màu đen
 
Có cách nào để khi mình gõ một cột có các nội dung khác nhau mà màu khác nhau không? Vd: Trẻ em => có màu đỏ ;
Người lớn => màu xanh ; Người già => màu đen
/)/ếu chỉ là 3 giá trị thay đổi trong cột thì bạn dùng Conditional Formatting;
/(/ếu hơn thì dùng VBA;
TrH1::angel:
Tô chọn cột muốn format; Vô menu Format-> Conditional Formatting
Tại CS này bạn chọn ĐK 1: Cell Value Is; equal to ; bên CS phải nhất bạn nhập "Trẻ em"; Tiếp bạn chọn CS Format & vô ngăn Patterns để chọn màu nền iêu thích của bạn (nên 1 trong ~ màu ở hàng cuối)
Sau đó bạn ấn nút 'Add' Để format trước cho nhóm từ khác: "Người già" & "Ngừoi lớn"
TrH2: :angel:
Bạn phải chuột vô thanh SheetsName (phía trái dưới nhất màn hình excel)
Chọn dòng cuối trong CS vừa xuất hiện & chép đoạn Code này vô;
Viết thêm nếu bạn cần tô trên 4 màu:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ij As Integer
If Not Intersect(Target, Range("D:D")) Is Nothing Then
With Target
If .Value <= 18 Then
Ij = 35
ElseIf .Value < 35 Then: Ij = 34
ElseIf .Value < 55 Then: Ij = 38
Else: Ij = 39
End If
.Interior.ColorIndex = Ij: .Interior.Pattern = xlSolid
End With: End If
End Sub
 
Help me create report

Mình gặp 1 bài toán như sau:
- Mình có 5 file report có format file như sau: UT-N( trong đó N có thứ tự từ 1 đến 5)
- Trong mỗi file UT-N có report lại các trạng thái : 1 colume là Ngày test, 1 colume là trạng thái test( có 3 trạng thái Pass/Fail/Pending), 1 colume la Nguoi test
- Mình cần tổng hợp ra 1 file UT- Report: tự động cập nhật từng ngày một, và chứa các thông tin Người test, ngày test, trạng thái test
ai có thể giúp mình ko
Note: sorry vi minh tim mai cho post cau hoi ma cha thay o dau ca :)
 
Sửa lần cuối:
cho e hỏi , nếu e muốn sử dụng bằng conditional formating cho 4 màu thì có được không ạ. nếu được thi chỉ giúp e với.thanks!
 
Back
Top