Không xác định được lỗi code thời gian (1 người xem)

[truckhoa2006]

Em có 1 file excel . Em đang tập tành viết code .
Tại cột C : giờ nhập . Khi nhập ngày tháng vào cột B thì cột C sẽ cho ra giờ phút hiện tại.
Bình thường thì không sao , nhưng khi em chọn số xe ở cột D thì file báo lỗi sai. Em vẫn không hiểu sao nó vẫn báo lỗi dù code có liên quan đến cột D đâu.
Và còn cái tiêu đề cột B nó cứ nhảy ra ngày, mặc dù em ghi là "ngày tháng". Nhưng nó cứ hiện số ngày tháng năm.
Mong các anh chị giúp dùm cho em.
Em cảm ơn các thầy cô, các bạn đã đọc bài.

 

[quanluu]

Em có 1 file excel . Em đang tập tành viết code .
Tại cột C : giờ nhập . Khi nhập ngày tháng vào cột B thì cột C sẽ cho ra giờ phút hiện tại.
Bình thường thì không sao , nhưng khi em chọn số xe ở cột D thì file báo lỗi sai. Em vẫn không hiểu sao nó vẫn báo lỗi dù code có liên quan đến cột D đâu.
Và còn cái tiêu đề cột B nó cứ nhảy ra ngày, mặc dù em ghi là "ngày tháng". Nhưng nó cứ hiện số ngày tháng năm.
Mong các anh chị giúp dùm cho em.
Em cảm ơn các thầy cô, các bạn đã đọc bài.

code của bạn sai Cells(Target.Row, 2) <> "", bạn cứ ngẫm lại sẽ hiểu. nó phải là if target.column =2 then

 

[SA_DQ]

Em có 1 file excel.
Tại cột C : giờ nhập . Khi nhập ngày tháng vào cột B thì cột C sẽ cho ra giờ phút hiện tại.
Bình thường thì không sao , nhưng khi em chọn số xe ở cột D thì file báo lỗi sai. Em vẫn không hiểu sao nó vẫn báo lỗi dù code có liên quan đến cột D đâu.

Và còn cái tiêu đề cột B nó cứ nhảy ra ngày, mặc dù em ghi là "ngày tháng". Nhưng nó cứ hiện số ngày tháng năm.

Bạn nên dịch các dòng lệnh sang tiếng Việt sẽ thấy ngay thôi.

Private Sub Worksheet_Change(ByVal Target As Range)
1 If Cells(Target.Row, 2) <> "" Then
    Cells(Target.Row, 2) = Now
3    Cells(Target.Row, 3).NumberFormat = "h:mm;@"
 End If
End Sub

D1: Nếu ô thuộc cột B & dòng là dòng mà vừa tác đông vào có dữ liệu thì thực hiện 2 dòng lệnh tiếp sau:
D2: Ô (có dữ liệu) này được gán hàm trả về ngày hiện hành
D3: Ô bên fải liền kề được định dạng là [Giờ:Fút]
Vậy giả dụ bạn nhập dì vô [G1] hay [W1] đi chăng nữa, thì ô [B1] cũng fải nghe lời & râm rắp & thực thi lệnh D2
là nhập ngày hiện hành vô [B1]

 

[truckhoa2006]

code của bạn sai Cells(Target.Row, 2) <> "", bạn cứ ngẫm lại sẽ hiểu. nó phải là if target.column =2 then

Được rồi anh ơi, cám ơn anh

 

[truckhoa2006]

Bạn nên dịch các dòng lệnh sang tiếng Việt sẽ thấy ngay thôi.

Private Sub Worksheet_Change(ByVal Target As Range)
1 If Cells(Target.Row, 2) <> "" Then
    Cells(Target.Row, 2) = Now
3    Cells(Target.Row, 3).NumberFormat = "h:mm;@"
 End If
End Sub

D1: Nếu ô thuộc cột B & dòng là dòng mà vừa tác đông vào có dữ liệu thì thực hiện 2 dòng lệnh tiếp sau:
D2: Ô (có dữ liệu) này được gán hàm trả về ngày hiện hành
D3: Ô bên fải liền kề được định dạng là [Giờ:Fút]
Vậy giả dụ bạn nhập dì vô [G1] hay [W1] đi chăng nữa, thì ô [B1] cũng fải nghe lời & râm rắp & thực thi lệnh D2
là nhập ngày hiện hành vô [B1]

Sorry anh, số 3 này là do em thử thay đổi số xem kết quả ra sao , mà quên chưa chỉnh lại là số 2.

[COLOR=#0000BB][FONT=monospace]Cells[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Target[/FONT][/COLOR][COLOR=#007700][FONT=monospace].[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Row[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]3[/FONT][/COLOR][COLOR=#007700][FONT=monospace]).[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]NumberFormat [/FONT][/COLOR][COLOR=#007700][FONT=monospace]= [/FONT][/COLOR][COLOR=#DD0000][FONT=monospace]"h:mm;@"[/FONT][/COLOR]