Cảm ơn anh
Trước đây em vẫn làm công thức hoặc dùng filter nhưng mỗi lần chèn thêm dòng thì lại phải chạy lại công thức từ đầu. Nên em muốn xin code để đánh dấu cột G
Public Sub DanhDauX()
Dim i As Long
Dim lr As Long
Dim sArr, dArr
lr = Range("A" & Rows.Count).End(xlUp).Row
sArr = Range("A2:D" & lr).Value
lr = UBound(sArr, 1)
ReDim dArr(1 To lr, 1 To 1)
For i = 1 To lr
If sArr(i, 1) <> sArr(i, 3) Or sArr(i, 2) <> sArr(i, 4) Then dArr(i, 1) = "X"
Next
Range("G2").Resize(lr, 1) = dArr
End Subrecord macro + xào xáo dược code này
Option Explicit
Sub Macro1()
Dim rws
With Sheet1
rws = .Range("A1000000").End(xlUp).Row
Range("A1", "G" & rws).AutoFilter Field:=6, Criteria1:="FALSE"
Range("G4:G10943") = "x"
Range("A1", "G" & rws).AutoFilter Field:=6
Range("A1", "G" & rws).AutoFilter Field:=5, Criteria1:="FALSE"
Range("G4:G10943") = "x"
Range("A1", "G" & rws).AutoFilter
End With
End SubCảm ơn bạn đã giúp đỡ, chúc bạn cuối tuần vui vẻ nhé
Thử một cách khác:
Sub DanhDau()
Dim row As Integer
Dim DongCuoi As Long
DongCuoi = Sheet1.Range("B" & Rows.Count).End(xlUp).row
For row = 2 To DongCuoi
If StrComp("TRUE", Cells(row, 5).Value, vbTextCompare) Or _
StrComp("TRUE", Cells(row, 6).Value, vbTextCompare) Then
Cells(row, 7).Value = "X"
End If
Next row
End SubEm cảm ơn anh be09 đã giúp đỡ. Chúc anh ngày vui
Anh ơi! em áp dụng code của anh, nhưng khi tăng số lượng cột so khớp lên thì code bị lỗi
https://www.mediafire.com/file/45qd15y5vg60g99/ProgreesBar.rar/fileMáy tính xử lý các con số gần đúng nên so sánh "=" hoặc "<>" có lúc loạn cào cào
Thêm một lần Cảm ơn anh. Nhưng mà cái này thú vị thật. Rõ ràng trên bảng tính , Excel xác nhận là 124409.36=124409.36 = TRUE nhưng khi đưa vào VBA lại False
Sửa code bài 9 lại 1 tí:
Sub DanhDau()
Dim row As Integer
Dim DongCuoi As Long
DongCuoi = Sheet1.Range("B" & Rows.Count).End(xlUp).row
For row = 2 To DongCuoi
If StrComp("TRUE", Cells(row, 7).Value, vbTextCompare) Or _
StrComp("TRUE", Cells(row, 8).Value, vbTextCompare) Or _
StrComp("TRUE", Cells(row, 9).Value, vbTextCompare) Then
Cells(row, 10).Value = "X"
End If
Next row
End SubCảm ơn anh. Hôm nay gặp mới biết. Cái này đúng là ngoài tầm hiểu biết của em, rõ ràng trên bảng tính em đã xem đến hàng thập phân thứ 20 mà hai số vẫn cứ là 124409.36000000000000000000000000.
Vâng code này của anh ra đúng ạ
Sai số nầy nằm trong code, còn trên bảng tính có lẽ ngài Bil đã loại lỗi nầy
Sub Button1_Click()
Dim i As Long
Dim lr As Long
Dim sArr, dArr
lr = Range("A" & Rows.Count).End(xlUp).Row
sArr = Range("A2:F" & lr).Value
lr = UBound(sArr, 1)
ReDim dArr(1 To lr, 1 To 1)
For i = 1 To lr
'****
If i = 1051 Then
e = sArr(i, 3) - sArr(i, 6)
End If
'****
If sArr(i, 1) <> sArr(i, 4) Or sArr(i, 2) <> sArr(i, 5) Or sArr(i, 3) <> sArr(i, 6) Then dArr(i, 1) = "x"
Next
Range("J2").Resize(lr, 1) = dArr
MsgBox (lr)
End SubCảm ơn anh. Em vẫn đang làm so khớp cho phần còn lại của cái bảng tính này. Khi nào xong em sẽ nghiên cứu kiến thức mới của anh
