Giúp code chỉ so sánh dd/mm/yyyy từ dd/mm/yyyy hh:mm (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em muốn dùng 1 đoạn code nó chỉ hiêu từ dd/mm/yyyy hh:mm sang dd/mm/yyyy còn HH:mm không quan tâm
Ví dụ: Ô A1= 12/23/2016 12:30 thì nó hiểu là 12/23/2016 và đem cái giá trị đó đi để làm Code tiếp theo
Mình có gửi File mọi người giúp mình nhé ( Mình đã làm được 80% rồi )

 

[quanluu]

Chào cả nhà GPE !
Em muốn dùng 1 đoạn code nó chỉ hiêu từ dd/mm/yyyy hh:mm sang dd/mm/yyyy còn HH:mm không quan tâm
Ví dụ: Ô A1= 12/23/2016 12:30 thì nó hiểu là 12/23/2016 và đem cái giá trị đó đi để làm Code tiếp theo
Mình có gửi File mọi người giúp mình nhé ( Mình đã làm được 80% rồi )

Bạn dùng hàm Int hoặc datevalue

 

[chucuoi92]

Chào cả nhà GPE !
Em muốn dùng 1 đoạn code nó chỉ hiêu từ dd/mm/yyyy hh:mm sang dd/mm/yyyy còn HH:mm không quan tâm
Ví dụ: Ô A1= 12/23/2016 12:30 thì nó hiểu là 12/23/2016 và đem cái giá trị đó đi để làm Code tiếp theo
Mình có gửi File mọi người giúp mình nhé ( Mình đã làm được 80% rồi )

Bạn sửa code thế này và không cần mấy công thức đếm trên sheet nữa.

Sub dada()
Dim dem As Integer
         For i = 3 To 47
               If Int(Range("d" & i).Value) = Int(Range("m8").Value) And Range("f" & i).Value = Range("o8").Value Then
                     dem = i
                    Exit For
               End If
        Next
     If dem > 0 Then
               Range("e" & i).Value = Range("e" & i).Value + Range("n8").Value
             Else
              Range("D50000").End(xlUp).Offset(1).Resize(, 3) = Range("m8:o8").Value
      End If
   End Sub

 

[minhtuan55]

Bạn dùng hàm Int hoặc datevalue

Dạ em làm được rồi anh. INT giờ em mới hiểu. Em xin chân thành cảm ơn anh

 

[minhtuan55]

Bạn sửa code thế này và không cần mấy công thức đếm trên sheet nữa.

Sub dada()
Dim dem As Integer
         For i = 3 To 47
               If Int(Range("d" & i).Value) = Int(Range("m8").Value) And Range("f" & i).Value = Range("o8").Value Then
                     dem = i
                    Exit For
               End If
        Next
     If dem > 0 Then
               Range("e" & i).Value = Range("e" & i).Value + Range("n8").Value
             Else
              Range("D50000").End(xlUp).Offset(1).Resize(, 3) = Range("m8:o8").Value
      End If
   End Sub

Code quá Good. Thank you Anh nhiều lắm.