NHỜ CÁC ANH GIÚP VBA. TỰ ĐỘNG CHUYỂN TỪ CÔNG THỨC THÀNH GIÁ TRỊ THEO THỜI GIAN

[linhtnpt002]

EM CÓ FILE DATA NHẬP XUẤT SAU Ở SHEET " DATA " . EM MUỐN SAU GHI ĐIỀN NGÀY XUẤT Ở CỘT " CJ " THÌ SAU 3 NGÀY HOẶC 2 NGÀY TẤT CẢ DỮ LIỆU Ở HÀNG ĐÓ SẼ TỰ ĐỘNG CHUYỂN TỪ CÔNG THỨC THÀNH GIÁ TRỊ. APP DỤNG TỪ HÀNG 9 TRỞ ĐI Ạ
RẤT MONG ĐƯỢC CÁC ANH GIÚP.

 

[bebo021999]

Code này đặt trong ThisWorkbook module, mỗi khi open file thì sẽ thực hiện kiểm tra các giá trị ngày trong cột, nếu quá 2 ngày so với hiện tại thì sẽ chuyển cả dòng sau value.
Nhấn Alt-F11 mở cửa sổ VBA, double click vào chỗ ThisWorbbok rồi dán code này vô:

Option Explicit
Private Sub Workbook_Open()
Dim cell As Range
Sheets("DATA").Activate
For Each cell In Sheets("DATA").Range("CJ8:CJ" & Cells(Rows.Count, "CJ").End(xlUp).Row)
    If Not IsEmpty(cell) And cell.Value2 + 2 < Int(Now) Then
        With Range(Cells(cell.Row, "B"), Cells(cell.Row, "CN"))
            .Value = .Value
        End With
    End If
Next
End Sub

Nếu muốn n ngày thì sửa:
cell.Value2 + 2
thành
cell.Value2 + n

 

[huhumalu]

Chỉnh lại xíu của anh bebo021999, do yêu cầu là từ dòng 9, và chỉ cần đổi cái nào có công thức.

Option Explicit
Private Sub Workbook_Open()
Dim cell As Range
Sheets("DATA").Activate
For Each cell In Sheets("DATA").Range("CJ9:CJ" & Cells(Rows.Count, "CJ").End(xlUp).Row)
    If Not IsEmpty(cell) And cell.Value2 + 2 < Int(Now) Then
        With Range(Cells(cell.Row, "B"), Cells(cell.Row, "CN"))
            .Formula = .Value
        End With
    End If
Next
End Sub

 

[Hoàng Tuấn 868]

EM CÓ FILE DATA NHẬP XUẤT SAU Ở SHEET " DATA " . EM MUỐN SAU GHI ĐIỀN NGÀY XUẤT Ở CỘT " CJ " THÌ SAU 3 NGÀY HOẶC 2 NGÀY TẤT CẢ DỮ LIỆU Ở HÀNG ĐÓ SẼ TỰ ĐỘNG CHUYỂN TỪ CÔNG THỨC THÀNH GIÁ TRỊ. APP DỤNG TỪ HÀNG 9 TRỞ ĐI Ạ
RẤT MONG ĐƯỢC CÁC ANH GIÚP.

Nội quy diễn đàn. . .

 

[Maika8008]

Nội quy diễn đàn. . .

Tôi báo cáo ngay từ lúc thớt mới ra lò mà không thấy mod nào làm việc. Cũng lạ.
Hay là mục báo cáo bị lỗi, không đến tay quản trị diễn đàn?

 

[bebo021999]

Tôi báo cáo ngay từ lúc thớt mới ra lò mà không thấy mod nào làm việc. Cũng lạ.
Hay là mục báo cáo bị lỗi, không đến tay quản trị diễn đàn?

Thời buổi đói kém, gạo châu củi quế, đói quá nên cũng phiên phiến thôi ạ.

 

[VetMini]

Nội quy diễn đàn. . .

Tôi báo cáo ngay từ lúc thớt mới ra lò mà không thấy mod nào làm việc. Cũng lạ.
Hay là mục báo cáo bị lỗi, không đến tay quản trị diễn đàn?

Gạo đã thành cơm. Bài đã có bài giải.
Báo đốm hay cáo bạc bi giờ chỉ là trò cười cho thớt.
Mót miếc gì cũng hơi khó, khóa bài thì cũng vô ích mà xóa bài thì kẹt. Cùng lắm chỉ có biện pháp cảnh báo thớt. Mà nếu ở địa vị thớt thì bạn thừa hiểu là chỉ cần đăng bài lên là có lời giải, nội quy chỉ là vật cản trở đối với dân đói bài.