Giữ cố định giá trị ngày nhập liệu

tqluong

Thành viên mới
Tham gia ngày
19 Tháng tư 2009
Bài viết
2
Được thích
0
Điểm
0
Tuổi
40
Kính nhờ các anh chị giúp mình vấn đề sau:

Giả sử khi nhập liệu ô A1 thì ô B1 tự động hiện giá trị ngày tháng nhập liệu, nhưng mình muốn cố định ngày tháng này luôn, nếu sử dụng hàm now() or today() thì qua ngày hôm sau là nó tự động nhảy ngày mất.
Tương tự khi nhập liệu ô A2 thì ô B2 tiếp tục tự động hiện ngày tháng tương ứng.
 

concogia

Gội rồi mới Cạo
Tham gia ngày
17 Tháng chín 2009
Bài viết
3,285
Được thích
6,550
Điểm
860
Kính nhờ các anh chị giúp mình vấn đề sau:

Giả sử khi nhập liệu ô A1 thì ô B1 tự động hiện giá trị ngày tháng nhập liệu, nhưng mình muốn cố định ngày tháng này luôn, nếu sử dụng hàm now() or today() thì qua ngày hôm sau là nó tự động nhảy ngày mất.
Tương tự khi nhập liệu ô A2 thì ô B2 tiếp tục tự động hiện ngày tháng tương ứng.
Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub
Nhập dữ liệu ở cột A nhé bạn
 

tqluong

Thành viên mới
Tham gia ngày
19 Tháng tư 2009
Bài viết
2
Được thích
0
Điểm
0
Tuổi
40
Cám ơn concogia nhiều, mình đã làm được, chắc phải nghiên cứu thêm VBA mới được
 

nvtnet

Thành viên thường trực
Tham gia ngày
31 Tháng năm 2011
Bài viết
202
Được thích
6
Điểm
385
Tuổi
35
Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub
Nhập dữ liệu ở cột A nhé bạn
Cho em hỏi, Trong đoạn code chỉ thấy là nhập liệu ở cột A, và mặc định nó điền ngày ở cột B, nhưng nếu em muốn Quy định nhập ở 1 cột bất kỳ nào đó, và hiển thị ngày ở một cột bất kỳ nào đó thì code như thế nào ạ
 

Tranvuhien

Thành viên mới
Tham gia ngày
10 Tháng mười hai 2018
Bài viết
3
Được thích
0
Điểm
163
Tuổi
32
Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub
Nhập dữ liệu ở cột A nhé bạn
Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub
Nhập dữ liệu ở cột A nhé bạn
Bạn có thể làm giúp mình 1 file hoàn chỉnh được không ạ? Mình nhập liệu vào ô b1 thì ngày tháng nhập vào sẽ hiện vào ô a1 và cứ như thế đến ô b100 và a100. Mình đã chép đoạn code vào excel 2016 mà không được.
 
Top Bottom