Nhờ hỗ trợ code tô màu những ô không phải số nguyên dương hay số lớn hơn 20
- Thread starter LanAnh19
- Ngày gửi
- Tham gia
- 8/6/06
- Bài viết
- 14,523
- Được thích
- 22,777
- Nghề nghiệp
- U80
PHP:
Sub ToMauDuLieuTheoDieuKien()
Dim Rng As Range, Cls As Range: Dim Num As Double
Set Rng = Range([G9], [G65500].End(xlUp))
Rng.Interior.ColorIndex = 2
For Each Cls In Rng
If IsNumeric(Cls.Value) Then
Num = Cls.Value
If Num > 20 Or Num < 0 Then
Cls.Interior.ColorIndex = 35
ElseIf Num / 1 <> Num \ 1 Then
Cls.Interior.ColorIndex = 36
End If
Else
Cls.Interior.ColorIndex = 38
End If
Next Cls
End Sub
Upvote
0
Code không an toàn.
Nếu Num lớn hơn 2 tỷ mọt chút (giới hạn của Long) thì sẽ bị lỗi tràn số.
Upvote
0
HUONGHCKT
Zalo 0986997214
- Tham gia
- 30/8/12
- Bài viết
- 1,704
- Được thích
- 3,042
- Donate (Paypal)
- Donate (Momo)
- Giới tính
- Nam
Góp vui 1 cách củ chuối
Mã:
Option Explicit
Sub ToMauSoNguyen()
Dim I As Long, j As Long, Rng As Range
With Sheets("DATA")
For I = 9 To .Cells(10000, 7).End(xlUp).Row
If IsNumeric(.Cells(I, 7)) = False Then
.Cells(I, 7).Interior.ColorIndex = 6
Else
If .Cells(I, 7) < 0 Or Int(.Cells(I, 7)) <> .Cells(I, 7) Or .Cells(I, 7) > 20 Then
.Cells(I, 7).Interior.ColorIndex = 6
End If
End If
Next I
End With
End Sub
Lần chỉnh sửa cuối:
Upvote
0
Ronaldinho7
Zl: 0707315985
- Tham gia
- 5/4/22
- Bài viết
- 186
- Được thích
- 204
Bạn cũng có thể dùng cách định dạng có điều kiện ngoài việc sử dụng code như hình phía dưới.
(Bôi đen G9-->G cuối trang tính-->vào Conditional Formating-->Nhập công thức như hình dưới)
(Bôi đen G9-->G cuối trang tính-->vào Conditional Formating-->Nhập công thức như hình dưới)
Upvote
0
- Tham gia
- 8/6/06
- Bài viết
- 14,523
- Được thích
- 22,777
- Nghề nghiệp
- U80
Bạn vô cửa sồ Immediate sẽ tìm hiểu cũng được; Nó là toán tử chia lấy phần nguyên
Lần chỉnh sửa cuối:
Upvote
0
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 5,690
- Được thích
- 5,470
Vậy lả giống như hàm Quotient anh nhỉ, em cảm ơn anh.
Upvote
0
- Tham gia
- 8/6/06
- Bài viết
- 14,523
- Được thích
- 22,777
- Nghề nghiệp
- U80
Nếu tham biến Num >20 hay < 0 thì có câu lệnh trên nó lo rồi mà; Mình tưởng như vậy đã đạt rồi
Mong bạn phân tích thêm, xin cảm ơn!
& giống hàm Int() trong VBA
Upvote
0
Tôi chỉ nói là không an toàn.
Nếu bạn sửa dòng IF Num > 20... thì bạn phải dò hết tất cả các ElseIf xem có khả năng gì hay không?
Không giống.
Hàm Int nhận tham số là Double. Nếu nạp Long nó sẽ tự nâng cấp lên.
Trong khi đó, toán tử \ chỉ nhận vế Long. Đưa cho nó số lớn hơn giới hạn của Long sẽ bị lỗi tràn số.
Không giống luôn.
Toán tử \ bản thân là phép chia số nguyên cho nên nó có làm tròn trước khi chia.
Hàm Quotient của bảng tính là phép lấy thương số giữa hai số thực cho nên nó không làm tròn trước khi chia.
Chú thích 1: Toán tử \ là toán tử chia số nguyên. Hai vế của nó (số chia và số bị chia) phải là số nguyên. Trước khi nhận biểu thức ở hai vế bên trái và bên phải, nó ép kiểu các biểu thức này về số nguyên. Tuy nhiên, cách ép kiểu của nó hơi rắc rối. Vì vậy, lúc dùng nó để chia số thực bạn phải cẩn thận.
Chú thích 2: Hàm chính thống để chặt bỏ phần thập phân của một số thực là hàm FIX. Hàm này tương đương với hàm TRUNC của bảng tính.
Lần chỉnh sửa cuối:
Upvote
0
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 5,690
- Được thích
- 5,470
Khi thử lúc trước em cũng thấy như vậy nhưng chưa hiểu vì sao, cảm ơn anh nhiều ạ.
Upvote
0
Các bạn cho hỏi thêm, mình muốn nó thông báo địa chỉ Ô nào bị lỗi luôn, thì cách thêm code như thế nào
Ví dụ: lỗi ở G10 ...
Mình có thêm Msgbox nhưng chưa biết cú pháp như thế nào
Upvote
0
Cũng không khó gì. Ngay dưới dòng bôi màu, bạn thêm:
PHP:
MsgBox "Loi tai o : " & .Cells(I, 7).Address
Upvote
0
HUONGHCKT
Zalo 0986997214
- Tham gia
- 30/8/12
- Bài viết
- 1,704
- Được thích
- 3,042
- Donate (Paypal)
- Donate (Momo)
- Giới tính
- Nam
Thì sửa lại thành
Mã:
If .Cells(I, 7) < 0 Or Int(.Cells(I, 7)) <> .Cells(I, 7) Or .Cells(I, 7) > 20 Then
.Cells(I, 7).Interior.ColorIndex = 6
else
loi= loi & ", " & i
End If
End If
Next I
End With
if len( loi)>0 then
msgbox " đa có lôi ơ các dòng " & loi
end if
end sub
·Chúc thành công.
Upvote
0
Mình gom chỉ thông báo sau khi chạy xong hết toàn bộ.
PHP:
Option Explicit
Sub ToMauSoNguyen()
Dim I As Long, j As Long, Rng As Range
Dim str As String
With Sheets("DATA")
For I = 9 To .Cells(10000, 7).End(xlUp).Row
If IsNumeric(.Cells(I, 7)) = FALSE Then
.Cells(I, 7).Interior.ColorIndex = 6
If str = "" Then str = .Cells(I, 7).Address Else: str = str & ", " & .Cells(I, 7).Address
Else
If .Cells(I, 7) < 0 Or Int(.Cells(I, 7)) <> .Cells(I, 7) Or .Cells(I, 7) > 20 Then
.Cells(I, 7).Interior.ColorIndex = 6
If str = "" Then str = .Cells(I, 7).Address Else: str = str & ", " & .Cells(I, 7).Address
End If
End If
Next I
End With
Application.Assistant.DoAlert "Thông báo !!!", "L" & ChrW(7895) & "i t" & ChrW(7841) & "i các ô sau: " & str , msoAlertButtonOK, msoAlertIconInfo, 0, 0, 0
End Sub
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,387
- Được thích
- 37,029
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Anh tô màu trắng hết cho bằng ấy ô à? 50 ngàn ô cũng tô trắng luôn?
Upvote
0
Upvote
0
- Tham gia
- 4/11/07
- Bài viết
- 14,387
- Được thích
- 37,029
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Ảnh đang dùng Interior.ColorIndex, không tô là 0. Ảnh dùng 2 là tô trắng và đây là tói quen của khá nhiều người kể cả làm bằng tay.
Upvote
0
bebo021999
Thành viên gạo cội
- Tham gia
- 26/1/11
- Bài viết
- 5,928
- Được thích
- 8,707
- Giới tính
- Nam
- Nghề nghiệp
- GPE
Mình chân đất mắt toét nên làm đơn giản thế này;
Với Row(1:20) biểu thị dãy số nguyên từ 1-20
PHP:
Option Explicit
Sub tomau()
Dim cell As Range
For Each cell In Range("G9:G" & Cells(Rows.Count, "G").End(xlUp).Row)
If Not IsNumeric(Evaluate("=Match(" & cell.Value & ", Row(1:20), 0)")) Then cell.Interior.Color = vbRed
Next
End Sub
Upvote
0
Bài viết mới nhất
- Question
- Question
