code VBA không chạy lệnh khi thay đổi giá trị điền vào

  • Thread starter Thread starter hic1802
  • Ngày gửi Ngày gửi
Liên hệ QC
H

hic1802

Thành viên tiêu biểu
Tham gia
16/2/13
Bài viết
545
Được thích
34
Giới tính
Nam
Chào diễn đàn GPE,
Lâu mới ghé thăm thấy giao diện và post bài mới hơi khác
Em có đoạn code nhờ mọi người giúp

Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim rngTempA As Range
    On Error GoTo Loi
    Set rngA = Application.Intersect(Me.Range("A5", Me.Cells(Me.Rows.Count, 1)), Target)
    If rngA Is Nothing Then GoTo Thoat 'vung khong lien quan
  
    For Each rngTempA In rngA.Areas
        With rngTempA
            .Offset(, 1).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[1]="""","""",VLOOKUP(RC[1],DM_SP!R2C2:R9999C7,6,0))")
            .Offset(, 7).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],DONGIA!R2C7:R9998C10,4,0))")
            .Offset(, 8).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-4]/RC[-1],"""")")
            .Offset(, 9).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],DM_SP!R2C2:R999C7,3,0))")
            .Offset(, 10).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-8]="""","""",VLOOKUP(RC[-8],DM_SP!R2C2:R999C7,4,0))")
            .Offset(, 11).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-9]="""","""",VLOOKUP(RC[-9],DM_SP!R2C2:R999C7,4,0))")
            .Offset(, 75).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-15]+RC[-16]+RC[-17],0)")
            .Offset(, 82).FormulaR1C1 = GetFormual(rngTempA, "=SUMIFS(BC_NGAYSX!R5C12:R9940C12,BC_NGAYSX!R5C3:R9940C3,RC[-79])")
            .Offset(, 83).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-14]="""","""",IF(RC[-1]="""",""CN"",IFERROR(RC[-2]/RC[-1],0)))")
            .Offset(, 84).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-5]<>"""",IFERROR(RC[-5]/RC[-2],""""),IFERROR(RC[-10]/RC[-2],""""))")
            .Offset(, 85).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-1]/RC[-78],"""")")
            .Offset(, 86).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-12]/RC[-11],"""")")
            .Offset(, 87).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(2*RC[-1]/(RC[-78]+RC[-77]),"""")")
            .Offset(, 92).FormulaR1C1 = GetFormual(rngTempA, "=RC[-6]")
            .Offset(, 93).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-19]/(RC[-34]+RC[-33]),"""")")
            .Offset(, 94).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[-94]<>"""",R[-1]C<>""""),R[-1]C+1,IF(AND(RC[-94]<>"""",R[-1]C=""""),1,""""))")
            .Offset(, 95).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[1]<>"""",RC[2]<>"""",RC[3]<>"""",RC[4]<>""""),""x"","""")")
            .Offset(, 81).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[-7]="""",RC[-2]=""""),"""",IF(RC[-7]=RC[-2],""ÐÚNG"",""SAI""))")
            .Offset(, 58).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-32]+RC[-31]+RC[-30]+RC[-29]+RC[-28]+RC[-27]+RC[-26]+RC[-25]+RC[-24]+RC[-23]+RC[-22]*0.1+RC[-21]*0.035+RC[-20]+RC[-19]+RC[-18]+RC[-17]+RC[-16]+RC[-15]+RC[-14]+RC[-13]+RC[-12]+RC[-11]+RC[-10]+RC[-9]+RC[-8]+RC[-7]+RC[-6]+RC[-5]*1+RC[-4],0)")
      
        End With
      
         rngTempA.Resize(, 100).Borders.LineStyle = 1
    
    Next
Thoat:
    Set rngA = Nothing
    Set rngTempA = Nothing
  
    With Range("C4:C99999")
    If Not Intersect(Target, .Cells) Is Nothing Then
      If Target <> "" Then Target.Offset(, 3).Value = Now()
        Target.Offset(, 94).NumberFormat = "hh:mm - dd/mm"
    End If
    End With
  
    Exit Sub
Loi:
    MsgBox Err.Description
    Resume Thoat
  
If Not Intersect(Range("N4:y99999"), Target) Is Nothing Then
Cells(Target.Row, 98).Value = Now()
Cells(Target.Row, 98).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then
Cells(Target.Row, 99).Value = Now()
Cells(Target.Row, 99).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then
Cells(Target.Row, 100).Value = Now()
Cells(Target.Row, 100).NumberFormat = "hh:mm - dd/mm"
End If
End Sub

Em thấy code chạy đúng khi cột A thay đổi
Còn khi các range khác thay đổi ko thấy chạy lệnh tức là các dòng lệnh phía dưới không thấy tác dụng gì
Mã: 
If Not Intersect(Range("N4:y99999"), Target) Is Nothing Then

Cells(Target.Row, 98).Value = Now()

Cells(Target.Row, 98).NumberFormat = "hh:mm - dd/mm"

End If

If Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then

Cells(Target.Row, 99).Value = Now()

Cells(Target.Row, 99).NumberFormat = "hh:mm - dd/mm"

End If

If Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then

Cells(Target.Row, 100).Value = Now()

Cells(Target.Row, 100).NumberFormat = "hh:mm - dd/mm"

End If

Nhờ mọi người giúp đỡ dòng code trên.
Cảm ơn mọi người trước.
 
Tôi không theo dõi code của bạn nhưng nếu đoán được ý thì cho cả cụm "không thấy tác dụng gì" lên trước dòng "On Error GoTo Loi"
 
batman1 đã viết:
Tôi không theo dõi code của bạn nhưng nếu đoán được ý thì cho cả cụm "không thấy tác dụng gì" lên trước dòng "On Error GoTo Loi"
Nhấp chuột vào đây để mở rộng...
Vẫn ko được bác ơi
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim rngTempA As Range
  
With Range("C4:C99999")
    If Not Intersect(Target, .Cells) Is Nothing Then
        If Target <> "" Then
        Target.Offset(, 3).Value = Now()
        Target.Offset(, 3).NumberFormat = "hh:mm - dd/mm"
    End If
End With
  
If Not Intersect(Range("N4:y99999"), Target) Is Nothing Then
Cells(Target.Row, 98).Value = Now()
Cells(Target.Row, 98).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then
Cells(Target.Row, 99).Value = Now()
Cells(Target.Row, 99).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then
Cells(Target.Row, 100).Value = Now()
Cells(Target.Row, 100).NumberFormat = "hh:mm - dd/mm"
End If
  
    On Error GoTo Loi
    Set rngA = Application.Intersect(Me.Range("A5", Me.Cells(Me.Rows.Count, 1)), Target)
    If rngA Is Nothing Then GoTo Thoat 'vung khong lien quan
  
    For Each rngTempA In rngA.Areas
        With rngTempA
            .Offset(, 1).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[1]="""","""",VLOOKUP(RC[1],DM_SP!R2C2:R9999C7,6,0))")
            .Offset(, 7).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],DONGIA!R2C7:R9998C10,4,0))")
            .Offset(, 8).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-4]/RC[-1],"""")")
            .Offset(, 9).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],DM_SP!R2C2:R999C7,3,0))")
            .Offset(, 10).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-8]="""","""",VLOOKUP(RC[-8],DM_SP!R2C2:R999C7,4,0))")
            .Offset(, 11).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-9]="""","""",VLOOKUP(RC[-9],DM_SP!R2C2:R999C7,4,0))")
            .Offset(, 75).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-15]+RC[-16]+RC[-17],0)")
            .Offset(, 82).FormulaR1C1 = GetFormual(rngTempA, "=SUMIFS(BC_NGAYSX!R5C12:R9940C12,BC_NGAYSX!R5C3:R9940C3,RC[-79])")
            .Offset(, 83).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-14]="""","""",IF(RC[-1]="""",""CN"",IFERROR(RC[-2]/RC[-1],0)))")
            .Offset(, 84).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-5]<>"""",IFERROR(RC[-5]/RC[-2],""""),IFERROR(RC[-10]/RC[-2],""""))")
            .Offset(, 85).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-1]/RC[-78],"""")")
            .Offset(, 86).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-12]/RC[-11],"""")")
            .Offset(, 87).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(2*RC[-1]/(RC[-78]+RC[-77]),"""")")
            .Offset(, 92).FormulaR1C1 = GetFormual(rngTempA, "=RC[-6]")
            .Offset(, 93).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-19]/(RC[-34]+RC[-33]),"""")")
            .Offset(, 94).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[-94]<>"""",R[-1]C<>""""),R[-1]C+1,IF(AND(RC[-94]<>"""",R[-1]C=""""),1,""""))")
            .Offset(, 95).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[1]<>"""",RC[2]<>"""",RC[3]<>"""",RC[4]<>""""),""x"","""")")
            .Offset(, 81).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[-7]="""",RC[-2]=""""),"""",IF(RC[-7]=RC[-2],""ÐÚNG"",""SAI""))")
            .Offset(, 58).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-32]+RC[-31]+RC[-30]+RC[-29]+RC[-28]+RC[-27]+RC[-26]+RC[-25]+RC[-24]+RC[-23]+RC[-22]*0.1+RC[-21]*0.035+RC[-20]+RC[-19]+RC[-18]+RC[-17]+RC[-16]+RC[-15]+RC[-14]+RC[-13]+RC[-12]+RC[-11]+RC[-10]+RC[-9]+RC[-8]+RC[-7]+RC[-6]+RC[-5]*1+RC[-4],0)")
      
        End With
      
         rngTempA.Resize(, 100).Borders.LineStyle = 1
    
    Next
Thoat:
    Set rngA = Nothing
    Set rngTempA = Nothing
  
    Exit Sub
Loi:
    MsgBox Err.Description
    Resume Thoat
  

End Sub

Em thấy nó báo lỗi ở đoạn If Target <> "" Then
 
Lần chỉnh sửa cuối:
Tôi nói về cái cụm mà bạn liệt kê ra.

Tại sao bạn lại cho cả
Mã: 
With Range("C4:C99999")
    If Not Intersect(Target, .Cells) Is Nothing Then
      If Target <> "" Then Target.Offset(, 3).Value = Now()
        Target.Offset(, 94).NumberFormat = "hh:mm - dd/mm"
    End If
    End With
lên đầu?

Tôi nói thế này
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim rngTempA As Range

If Not Intersect(Range("N4:y99999"), Target) Is Nothing Then
Cells(Target.Row, 98).Value = Now()
Cells(Target.Row, 98).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then
Cells(Target.Row, 99).Value = Now()
Cells(Target.Row, 99).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then
Cells(Target.Row, 100).Value = Now()
Cells(Target.Row, 100).NumberFormat = "hh:mm - dd/mm"
End If

    On Error GoTo Loi
...
End Sub
 
batman1 đã viết:
Tôi nói về cái cụm mà bạn liệt kê ra.

Tại sao bạn lại cho cả
Mã: 
With Range("C4:C99999")
    If Not Intersect(Target, .Cells) Is Nothing Then
      If Target <> "" Then Target.Offset(, 3).Value = Now()
        Target.Offset(, 94).NumberFormat = "hh:mm - dd/mm"
    End If
    End With
lên đầu?

Tôi nói thế này
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim rngTempA As Range

If Not Intersect(Range("N4:y99999"), Target) Is Nothing Then
Cells(Target.Row, 98).Value = Now()
Cells(Target.Row, 98).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then
Cells(Target.Row, 99).Value = Now()
Cells(Target.Row, 99).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then
Cells(Target.Row, 100).Value = Now()
Cells(Target.Row, 100).NumberFormat = "hh:mm - dd/mm"
End If

    On Error GoTo Loi
...
End Sub
Nhấp chuột vào đây để mở rộng...

Vì dòng đó cũng ko chạy bác ơi
Nếu không có đoạn đó thì chạy ko được chuẩn cho lắm,
Nếu chạy được đoạn code đó thì đúng ý của e nên e chạy thử luôn.
 
hic1802 đã viết:
Vì dòng đó cũng ko chạy bác ơi
Nếu không có đoạn đó thì chạy ko được chuẩn cho lắm,
Nếu chạy được đoạn code đó thì đúng ý của e nên e chạy thử luôn.
Nhấp chuột vào đây để mở rộng...
Nếu bạn muốn người khác giúp chỉnh lại code thì:
1. Tốt nhất là đính kèm tập tin.
2. Mô tả kỹ bạn muốn làm gì, thay đổi, nhập dữ liệu vào những cột nào. Có thao tác nào làm liền với vài ô (nhiều hơn 1 ô) không? Vd. bạn chọn C4:C10 (hoặc chọn vd. C4 và C13) rồi nhấn Delete hoặc dán vào nó từ nguồn ngoài?
 
batman1 đã viết:
Nếu bạn muốn người khác giúp chỉnh lại code thì:
1. Tốt nhất là đính kèm tập tin.
2. Mô tả kỹ bạn muốn làm gì, thay đổi, nhập dữ liệu vào những cột nào. Có thao tác nào làm liền với vài ô (nhiều hơn 1 ô) không? Vd. bạn chọn C4:C10 (hoặc chọn vd. C4 và C13) rồi nhấn Delete hoặc dán vào nó từ nguồn ngoài?
Nhấp chuột vào đây để mở rộng...

Đây bác ơi, chạy trên sheet luôn a
 

File đính kèm

Nhắc lại
2. Mô tả kỹ bạn muốn làm gì, thay đổi, nhập dữ liệu vào những cột nào. Có thao tác nào làm liền với vài ô (nhiều hơn 1 ô) không? Vd. bạn chọn C4:C10 (hoặc chọn vd. C4 và C13) rồi nhấn Delete hoặc dán vào nó từ nguồn ngoài?
Nhấp chuột vào đây để mở rộng...

Về lỗi thì khi bạn nhập / xóa ở đâu thì sảy ra lỗi?

Vd. nếu bạn nhập xóa cùng một lúc cho nhiều ô trong cột C thì có lỗi.

Tôi không phân tích code để suy ra ý của bạn. Đơn giản vì ý bạn thế nào tự bạn viết ra được.

Tôi biết chơi nhưng tôi không thích chơi trò "đoán ý đồng đội"

Code hiện tại thiếu End If
Mã: 
With Range("C4:C99999")
    If Not Intersect(Target, .Cells) Is Nothing Then
    If Target <> "" Then
        Target.Offset(, 3).Value = Now()
        Target.Offset(, 3).NumberFormat = "hh:mm - dd/mm"
    End If
    End If        ' <-- hiện đang thiếu
End With
 
Lần chỉnh sửa cuối:
batman1 đã viết:
Nhắc lại


Về lỗi thì khi bạn nhập / xóa ở đâu thì sảy ra lỗi?

Vd. nếu bạn nhập xóa cùng một lúc cho nhiều ô trong cột C thì có lỗi.

Tôi không phân tích code để suy ra ý của bạn. Đơn giản vì ý bạn thế nào tự bạn viết ra được.

Tôi biết chơi nhưng tôi không thích chơi trò "đoán ý đồng đội"

Code hiện tại thiếu End If
Mã: 
With Range("C4:C99999")
    If Not Intersect(Target, .Cells) Is Nothing Then
    If Target <> "" Then
        Target.Offset(, 3).Value = Now()
        Target.Offset(, 3).NumberFormat = "hh:mm - dd/mm"
    End If
    End If        ' <-- hiện đang thiếu
End With
Nhấp chuột vào đây để mở rộng...

Cảm ơn bác đã góp ý, e xin thưa như sau:
Theo em thì cơ bản kết quả của 2 đoạn code
Mã: 
With Range("C4:C99999")
    If Not Intersect(Target, .Cells) Is Nothing Then
      If Target <> "" Then Target.Offset(, 3).Value = Now()
        Target.Offset(, 94).NumberFormat = "hh:mm - dd/mm"
    End If
    End With
và dòng code
Mã: 
If Not Intersect(Range("N4:y99999"), Target) Is Nothing Then
Cells(Target.Row, 98).Value = Now()
Cells(Target.Row, 98).NumberFormat = "hh:mm - dd/mm"
End If

đều là khi thay đổi 1 ô trong vùng ô được lựa chọn sẽ ghi lại thời gian thực thay đổi tại dòng chứa ô thay đổi đó.
Tuy nhiên ở code đầu em test 1 mình đoạn đó thì khi ta thao tác với nhiều ô (paste 1 vùng dữ liệu ngoài vào) cho kết quả tại tất cả vùng đc thay đổi, các dòng đó đều ghi lại thời gian, còn ở code 2 thì chỉ có dòng tại ô được paste mới ghi lại thời gian, các dòng phía dưới không có ghi lại. Do e cũng chỉ amator nên không rõ bản chất code lắm nên khi e chèn thêm code đầu đó vào thì thấy chạy lỗi, khi chạy riêng nó thì không thấy báo lỗi gì cả.
Hiện tại đã chỉnh thêm như ý bác nhưng khi paste 1 vùng dữ liệu ngoài vào ô C4 thì báo lỗi tại dòng : If Target <> "" Then
 
Lần chỉnh sửa cuối:
Tôi đoán được vì thế mới viết
Vd. nếu bạn nhập xóa cùng một lúc cho nhiều ô trong cột C thì có lỗi.
Nhấp chuột vào đây để mở rộng...

Mã: 
Application.EnableEvents = False
Set rngA = Intersect(Target, Range("C4:C99999"))
If Not rngA Is Nothing Then
    rngA.Offset(, 3).ClearContents
    For Each rngTempA In rngA
        If rngTempA.Value <> "" Then
            rngTempA.Offset(, 3).Value = Now()
            rngTempA.Offset(, 3).NumberFormat = "hh:mm - dd/mm"
        End If
    Next
End If
...
...
Application.EnableEvents = True
 
batman1 đã viết:
Tôi đoán được vì thế mới viết


Mã: 
Application.EnableEvents = False
Set rngA = Intersect(Target, Range("C4:C99999"))
If Not rngA Is Nothing Then
    rngA.Offset(, 3).ClearContents
    For Each rngTempA In rngA
        If rngTempA.Value <> "" Then
            rngTempA.Offset(, 3).Value = Now()
            rngTempA.Offset(, 3).NumberFormat = "hh:mm - dd/mm"
        End If
    Next
End If
...
...
Application.EnableEvents = True
Nhấp chuột vào đây để mở rộng...

không thấy chạy code bác ơi
Bác xem code nhé

Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim rngTempA As Range
    
Application.EnableEvents = False
Set rngA = Intersect(Target, Range("C4:C99999"))
If Not rngA Is Nothing Then
    rngA.Offset(, 3).ClearContents
    For Each rngTempA In rngA
        If rngTempA.Value <> "" Then
            rngTempA.Offset(, 3).Value = Now()
            rngTempA.Offset(, 3).NumberFormat = "hh:mm - dd/mm"
        End If
    Next
End If
    
If Not Intersect(Range("N4:y99999"), Target) Is Nothing Then
Cells(Target.Row, 98).Value = Now()
Cells(Target.Row, 98).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then
Cells(Target.Row, 99).Value = Now()
Cells(Target.Row, 99).NumberFormat = "hh:mm - dd/mm"
End If
If Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then
Cells(Target.Row, 100).Value = Now()
Cells(Target.Row, 100).NumberFormat = "hh:mm - dd/mm"
End If
Application.EnableEvents = True
    
    On Error GoTo Loi
    Set rngA = Application.Intersect(Me.Range("A5", Me.Cells(Me.Rows.Count, 1)), Target)
    If rngA Is Nothing Then GoTo Thoat 'vung khong lien quan
    
    For Each rngTempA In rngA.Areas
        With rngTempA
            .Offset(, 1).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[1]="""","""",VLOOKUP(RC[1],DM_SP!R2C2:R9999C7,6,0))")
            .Offset(, 7).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],DONGIA!R2C7:R9998C10,4,0))")
            .Offset(, 8).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-4]/RC[-1],"""")")
            .Offset(, 9).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],DM_SP!R2C2:R999C7,3,0))")
            .Offset(, 10).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-8]="""","""",VLOOKUP(RC[-8],DM_SP!R2C2:R999C7,4,0))")
            .Offset(, 11).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-9]="""","""",VLOOKUP(RC[-9],DM_SP!R2C2:R999C7,4,0))")
            .Offset(, 75).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-15]+RC[-16]+RC[-17],0)")
            .Offset(, 82).FormulaR1C1 = GetFormual(rngTempA, "=SUMIFS(BC_NGAYSX!R5C12:R9940C12,BC_NGAYSX!R5C3:R9940C3,RC[-79])")
            .Offset(, 83).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-14]="""","""",IF(RC[-1]="""",""CN"",IFERROR(RC[-2]/RC[-1],0)))")
            .Offset(, 84).FormulaR1C1 = GetFormual(rngTempA, "=IF(RC[-5]<>"""",IFERROR(RC[-5]/RC[-2],""""),IFERROR(RC[-10]/RC[-2],""""))")
            .Offset(, 85).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-1]/RC[-78],"""")")
            .Offset(, 86).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-12]/RC[-11],"""")")
            .Offset(, 87).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(2*RC[-1]/(RC[-78]+RC[-77]),"""")")
            .Offset(, 92).FormulaR1C1 = GetFormual(rngTempA, "=RC[-6]")
            .Offset(, 93).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-19]/(RC[-34]+RC[-33]),"""")")
            .Offset(, 94).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[-94]<>"""",R[-1]C<>""""),R[-1]C+1,IF(AND(RC[-94]<>"""",R[-1]C=""""),1,""""))")
            .Offset(, 95).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[1]<>"""",RC[2]<>"""",RC[3]<>"""",RC[4]<>""""),""x"","""")")
            .Offset(, 81).FormulaR1C1 = GetFormual(rngTempA, "=IF(AND(RC[-7]="""",RC[-2]=""""),"""",IF(RC[-7]=RC[-2],""ÐÚNG"",""SAI""))")
            .Offset(, 58).FormulaR1C1 = GetFormual(rngTempA, "=IFERROR(RC[-32]+RC[-31]+RC[-30]+RC[-29]+RC[-28]+RC[-27]+RC[-26]+RC[-25]+RC[-24]+RC[-23]+RC[-22]*0.1+RC[-21]*0.035+RC[-20]+RC[-19]+RC[-18]+RC[-17]+RC[-16]+RC[-15]+RC[-14]+RC[-13]+RC[-12]+RC[-11]+RC[-10]+RC[-9]+RC[-8]+RC[-7]+RC[-6]+RC[-5]*1+RC[-4],0)")
        
        End With
        
         rngTempA.Resize(, 100).Borders.LineStyle = 1
      
    Next
Thoat:
    Set rngA = Nothing
    Set rngTempA = Nothing
    
    Exit Sub
Loi:
    MsgBox Err.Description
    Resume Thoat
    

End Sub
 
hic1802 đã viết:
không thấy chạy code bác ơi
Bác xem code nhé
Nhấp chuột vào đây để mở rộng...
Bạn đưa file chỉ có 1 sheet, trong khi công thức của bạn lấy dữ liệu của rất nhiều sheet khác khi edit cột A.
Bạn xem file này, tôi không tính đến cột A nhé.
Các cột bạn muốn định dạng kiểu "hh:mm - dd/mm" thì thực hiện 1 lần trên sheet, đâu cần mỗi lần mỗi Format.
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range, Tg As Variant
    Tg = Now
If Not Intersect(Target, Range("C4:C99999")) Is Nothing Then
    For Each Cll In Target
        Cll.Offset(, 3).ClearContents
        If Cll.Value <> "" Then Cll.Offset(, 3).Value = Tg 'Cll.Offset(, 3).Value
    Next Cll
   
ElseIf Not Intersect(Range("N4:Y99999"), Target) Is Nothing Then
    For Each Cll In Target
        If Cll.Value <> Empty Then Cells(Cll.Row, 98).Value = Tg
    Next Cll
   
ElseIf Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then
    For Each Cll In Target
        If Cll.Value <> Empty Then Cells(Cll.Row, 99).Value = Tg
    Next Cll

ElseIf Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then
    For Each Cll In Target
        If Cll.Value <> Empty Then Cells(Cll.Row, 100).Value = Tg
    Next Cll

'ElseIf Not Intersect(Target, Range("A4:A50000")) Is Nothing Then
    'For Each Cll In Target
        'With Cll
            '.Offset(, 1).FormulaR1C1 = "=IF(RC[1]="""","""",VLOOKUP(RC[1],DM_SP!R2C2:R9999C7,6,0))"
            '.Offset(, 7).FormulaR1C1 = "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],DONGIA!R2C7:R9998C10,4,0))"
            '.Offset(, 8).FormulaR1C1 = "=IFERROR(RC[-4]/RC[-1],"""")"
            '.Offset(, 9).FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],DM_SP!R2C2:R999C7,3,0))"
            '.Offset(, 10).FormulaR1C1 = "=IF(RC[-8]="""","""",VLOOKUP(RC[-8],DM_SP!R2C2:R999C7,4,0))"
            '.Offset(, 11).FormulaR1C1 = "=IF(RC[-9]="""","""",VLOOKUP(RC[-9],DM_SP!R2C2:R999C7,4,0))"
            '.Offset(, 75).FormulaR1C1 = "=IFERROR(RC[-15]+RC[-16]+RC[-17],0)"
            '.Offset(, 82).FormulaR1C1 = "=SUMIFS(BC_NGAYSX!R5C12:R9940C12,BC_NGAYSX!R5C3:R9940C3,RC[-79])"
            '.Offset(, 83).FormulaR1C1 = "=IF(RC[-14]="""","""",IF(RC[-1]="""",""CN"",IFERROR(RC[-2]/RC[-1],0)))"
            '.Offset(, 84).FormulaR1C1 = "=IF(RC[-5]<>"""",IFERROR(RC[-5]/RC[-2],""""),IFERROR(RC[-10]/RC[-2],""""))"
            '.Offset(, 85).FormulaR1C1 = "=IFERROR(RC[-1]/RC[-78],"""")"
            '.Offset(, 86).FormulaR1C1 = "=IFERROR(RC[-12]/RC[-11],"""")"
            '.Offset(, 87).FormulaR1C1 = "=IFERROR(2*RC[-1]/(RC[-78]+RC[-77]),"""")"
            '.Offset(, 92).FormulaR1C1 = "=RC[-6]"
            '.Offset(, 93).FormulaR1C1 = "=IFERROR(RC[-19]/(RC[-34]+RC[-33]),"""")"
            '.Offset(, 94).FormulaR1C1 = "=IF(AND(RC[-94]<>"""",R[-1]C<>""""),R[-1]C+1,IF(AND(RC[-94]<>"""",R[-1]C=""""),1,""""))"
            '.Offset(, 95).FormulaR1C1 = "=IF(AND(RC[1]<>"""",RC[2]<>"""",RC[3]<>"""",RC[4]<>""""),""x"","""")"
            '.Offset(, 81).FormulaR1C1 = "=IF(AND(RC[-7]="""",RC[-2]=""""),"""",IF(RC[-7]=RC[-2],""ÐÚNG"",""SAI""))"
            '.Offset(, 58).FormulaR1C1 = "=IFERROR(RC[-32]+RC[-31]+RC[-30]+RC[-29]+RC[-28]+RC[-27]+RC[-26]+RC[-25]+RC[-24]+RC[-23]+RC[-22]*0.1+RC[-21]*0.035+RC[-20]+RC[-19]+RC[-18]+RC[-17]+RC[-16]+RC[-15]+RC[-14]+RC[-13]+RC[-12]+RC[-11]+RC[-10]+RC[-9]+RC[-8]+RC[-7]+RC[-6]+RC[-5]*1+RC[-4],0)"
        'End With
    'Next Cll
    'Target.Resize(, 100).Value = Target.Resize(, 100).Value
End If
End Sub
 
Lần chỉnh sửa cuối:
Ba Tê đã viết:
Bạn đưa file chỉ có 1 sheet, trong khi công thức của bạn lấy dữ liệu của rất nhiều sheet khác khi edit cột A.
Bạn xem file này, tôi không tính đến cột A nhé.
Các cột bạn muốn định dạng kiểu "hh:mm - dd/mm" thì thực hiện 1 lần trên sheet, đâu cần mỗi lần mỗi Format.
PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range, Tg As Variant
    Tg = Now
If Not Intersect(Target, Range("C4:C99999")) Is Nothing Then
    For Each Cll In Target
        Cll.Offset(, 3).ClearContents
        If Cll.Value <> "" Then Cll.Offset(, 3).Value = Tg 'Cll.Offset(, 3).Value
    Next Cll
 
ElseIf Not Intersect(Range("N4:Y99999"), Target) Is Nothing Then
    For Each Cll In Target
        If Cll.Value <> Empty Then Cells(Cll.Row, 98).Value = Tg
    Next Cll
 
ElseIf Not Intersect(Range("bh4:bk99999"), Target) Is Nothing Then
    For Each Cll In Target
        If Cll.Value <> Empty Then Cells(Cll.Row, 99).Value = Tg
    Next Cll

ElseIf Not Intersect(Range("bl4:bo99999"), Target) Is Nothing Then
    For Each Cll In Target
        If Cll.Value <> Empty Then Cells(Cll.Row, 100).Value = Tg
    Next Cll

'ElseIf Not Intersect(Target, Range("A4:A50000")) Is Nothing Then
    'For Each Cll In Target
        'With Cll
            '.Offset(, 1).FormulaR1C1 = "=IF(RC[1]="""","""",VLOOKUP(RC[1],DM_SP!R2C2:R9999C7,6,0))"
            '.Offset(, 7).FormulaR1C1 = "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],DONGIA!R2C7:R9998C10,4,0))"
            '.Offset(, 8).FormulaR1C1 = "=IFERROR(RC[-4]/RC[-1],"""")"
            '.Offset(, 9).FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],DM_SP!R2C2:R999C7,3,0))"
            '.Offset(, 10).FormulaR1C1 = "=IF(RC[-8]="""","""",VLOOKUP(RC[-8],DM_SP!R2C2:R999C7,4,0))"
            '.Offset(, 11).FormulaR1C1 = "=IF(RC[-9]="""","""",VLOOKUP(RC[-9],DM_SP!R2C2:R999C7,4,0))"
            '.Offset(, 75).FormulaR1C1 = "=IFERROR(RC[-15]+RC[-16]+RC[-17],0)"
            '.Offset(, 82).FormulaR1C1 = "=SUMIFS(BC_NGAYSX!R5C12:R9940C12,BC_NGAYSX!R5C3:R9940C3,RC[-79])"
            '.Offset(, 83).FormulaR1C1 = "=IF(RC[-14]="""","""",IF(RC[-1]="""",""CN"",IFERROR(RC[-2]/RC[-1],0)))"
            '.Offset(, 84).FormulaR1C1 = "=IF(RC[-5]<>"""",IFERROR(RC[-5]/RC[-2],""""),IFERROR(RC[-10]/RC[-2],""""))"
            '.Offset(, 85).FormulaR1C1 = "=IFERROR(RC[-1]/RC[-78],"""")"
            '.Offset(, 86).FormulaR1C1 = "=IFERROR(RC[-12]/RC[-11],"""")"
            '.Offset(, 87).FormulaR1C1 = "=IFERROR(2*RC[-1]/(RC[-78]+RC[-77]),"""")"
            '.Offset(, 92).FormulaR1C1 = "=RC[-6]"
            '.Offset(, 93).FormulaR1C1 = "=IFERROR(RC[-19]/(RC[-34]+RC[-33]),"""")"
            '.Offset(, 94).FormulaR1C1 = "=IF(AND(RC[-94]<>"""",R[-1]C<>""""),R[-1]C+1,IF(AND(RC[-94]<>"""",R[-1]C=""""),1,""""))"
            '.Offset(, 95).FormulaR1C1 = "=IF(AND(RC[1]<>"""",RC[2]<>"""",RC[3]<>"""",RC[4]<>""""),""x"","""")"
            '.Offset(, 81).FormulaR1C1 = "=IF(AND(RC[-7]="""",RC[-2]=""""),"""",IF(RC[-7]=RC[-2],""ÐÚNG"",""SAI""))"
            '.Offset(, 58).FormulaR1C1 = "=IFERROR(RC[-32]+RC[-31]+RC[-30]+RC[-29]+RC[-28]+RC[-27]+RC[-26]+RC[-25]+RC[-24]+RC[-23]+RC[-22]*0.1+RC[-21]*0.035+RC[-20]+RC[-19]+RC[-18]+RC[-17]+RC[-16]+RC[-15]+RC[-14]+RC[-13]+RC[-12]+RC[-11]+RC[-10]+RC[-9]+RC[-8]+RC[-7]+RC[-6]+RC[-5]*1+RC[-4],0)"
        'End With
    'Next Cll
    'Target.Resize(, 100).Value = Target.Resize(, 100).Value
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Em xin lỗi là phải cắt đi 1 số bảng tính vì liên quan đến thông tin sản phẩm và số liệu, bác thông cảm.
Vì file này được dùng chung cho nhiều máy tính, e có định dạng trên excel nhưng hệ điều hành các máy quy chuẩn định dạng khác nhau (đa phần dạng mm/dd/yyyy) mà các máy đó ko cho phép chỉnh định dạng (sợ lỗi đến các phần mềm khác). Ta có thể định dạng giá trị biến Tg dạng dd/mm/yyyy luôn trong code trên của bác được không a?
 
Lần chỉnh sửa cuối:
hic1802 đã viết:
Em xin lỗi là phải cắt đi 1 số bảng tính vì liên quan đến thông tin sản phẩm và số liệu, bác thông cảm.
Vì file này được dùng chung cho nhiều máy tính, e có định dạng trên excel nhưng hệ điều hành các máy quy chuẩn định dạng khác nhau (đa phần dạng mm/dd/yyyy) mà các máy đó ko cho phép chỉnh định dạng (sợ lỗi đến các phần mềm khác). Ta có thể định dạng giá trị biến Tg dạng dd/mm/yyyy luôn trong code trên của bác được không a?
Nhấp chuột vào đây để mở rộng...
Bạn tự làm thử được mà. Vì trong code của bạn đã biết dùng NumberFormat
 
Tôi đã nói là tôi không xem code của bạn. Bạn nói là tập tin đã chạy đúng, chỉ còn mỗi khoản C:C, N:Y, BH:BK, BL:BO. Vậy tôi làm cho bạn phần đấy thôi.
hic1802 đã viết:
không thấy chạy code bác ơi
Nhấp chuột vào đây để mở rộng...
Tôi đã nói là tôi không chơi trò "đoán ý đồng đội"

Im re? Chạy nhưng ra kết quả sai? Chạy thì "bùm"?

Hãy viết kiểu: Tôi chạy code thì thấy chỗ này nó thế này, chỗ kia nó thế kia, mà đúng phải là: chỗ này nó thế kia, chỗ kia nó thế này. Vân vân và phân vân.

May quá đã có người làm cho bạn. Tôi rút lui.
 
batman1 đã viết:
Tôi đã nói là tôi không xem code của bạn. Bạn nói là tập tin đã chạy đúng, chỉ còn mỗi khoản C:C, N:Y, BH:BK, BL:BO. Vậy tôi làm cho bạn phần đấy thôi.

Tôi đã nói là tôi không chơi trò "đoán ý đồng đội"

Im re? Chạy nhưng ra kết quả sai? Chạy thì "bùm"?

Hãy viết kiểu: Tôi chạy code thì thấy chỗ này nó thế này, chỗ kia nó thế kia, mà đúng phải là: chỗ này nó thế kia, chỗ kia nó thế này. Vân vân và phân vân.

May quá đã có người làm cho bạn. Tôi rút lui.
Nhấp chuột vào đây để mở rộng...
Không phải đâu bác ơi, tại e không biết diễn giải ý như thế nào nên e copy nguyên đoạn code e sửa và test khi change cột C (dạng copy nhiều dữ liệu) thì code ko chạy. :wounded1:
 
hic1802 đã viết:
Không phải đâu bác ơi, tại e không biết diễn giải ý như thế nào
Nhấp chuột vào đây để mở rộng...
Không biết diễn giải? Không biết nói một câu: "Tôi copy cùng lúc vào C7:C10 4 giá trị a, b, c, d nhưng trong cột F không thấy xuất hiện ngày"?

Dạng copy nhiều dữ liệu? Bạn vẫn không biết cho ví dụ cụ thể à?

Nếu tôi không lầm thì code
Mã: 
Set rngA = Intersect(Target, Range("C4:C99999"))
If Not rngA Is Nothing Then
    rngA.Offset(, 3).ClearContents
    For Each rngTempA In rngA
        If rngTempA.Value <> "" Then
            rngTempA.Offset(, 3).Value = Now()
            rngTempA.Offset(, 3).NumberFormat = "hh:mm - dd/mm"
        End If
    Next
End If
phục vụ cả dán, xóa nhiều dữ liệu.
 
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

Uyên dương Hoya
Lỗi định dạng font chữ trong excel
Trả lời
3
Đọc
64
ptm0412
ptm0412
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
40
Đọc
13K
Hoàng Tuấn 868
H
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
1
Đọc
36
vietduc147258
V
T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
Trả lời
12
Đọc
406
VetMini
V
HeSanbi
  • Question Question
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
8
Đọc
622
nguyendang95
N
ntnguyentam1907
Lấy bảng dữ liệu chứng khoán về excel
2
Trả lời
22
Đọc
3K
nguyendang95
N
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Cảm ơn
Trả lời
5
Đọc
760
hoangtuan.net
hoangtuan.net
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
305
Đọc
21K
pkt.bacdau
pkt.bacdau
HONGVY91
Đếm số lượng 2 cột và đếm không trùng
Trả lời
2
Đọc
120
hoangtuaotrang_hp_vn
H
hanhlx88
Nhờ giúp file Excel báo lỗi: Excel cannot complete this task with available resources
Trả lời
3
Đọc
186
hanhlx88
hanhlx88
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
3
Đọc
113
VetMini
V
HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3 4
Trả lời
73
Đọc
10K
HeSanbi
HeSanbi
L
Folder chứa chương trình bị khóa bởi Lock folder
2
Trả lời
28
Đọc
25K
qthangvphaui
Q
P
Xin trợ giúp cách lập lịch trực tịnh tiến dần cho 1 nhóm người.
Trả lời
4
Đọc
145
phambahoang
P
N
Tính tổng với điều kiện gần đúng
Trả lời
3
Đọc
67
HUONGHCKT
H
Bùi Thúy Thúy
  • Question Question
Lấy dữ liệu thời tiết Accuweather để điền vào nhật ký thi công
2 3 4
Trả lời
63
Đọc
19K
Mutants Men
M
Anxseo
  • Đã khóa
Cách crack my excel
Trả lời
1
Đọc
182
HeSanbi
HeSanbi
phatnguyen7301
  • Question Question
Tạo âm thanh khi nhấn vào một phím
Trả lời
5
Đọc
246
yaaasoo01
Y
anhtuan1066
  • Question Question
Chèn hình vào cell bằng hàm tự tạo
    • Thích
    • Ngạc nhiên
10 11 12
Trả lời
235
Đọc
106K
XaNguyen
X
vc_đi chơi
Khóa Hoặc mã hóa File excel có độ bảo mật cao
    • Cảm ơn
    • Thích
Trả lời
3
Đọc
209
Hoangkhang01213
Hoangkhang01213
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.
Back
Top Bottom