Hỏi mã code tự động nhảy ngày giờ khi nhập liệu (1 người xem)

[khongphai02]

Em có 1 file
Khi nhập dữ liệu vào cột B thì cột C tự động ghi lại thời gian: ngày/tháng giờhút của thời điểm nhập liệu. Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

Em có tham khảo bài: http://www.giaiphapexcel.com/forum/archive/index.php/t-22291.html nhưng làm không được.

Các bác giúp em với

 

[pinklove]

Anh thử xem có được ko nhé

Mình thấy nó có lỗi này, khi mình kéo chuột chọn toàn bộ vùng dữ liệu từ C đến F để xóa bằng cách ấn phìm Del thì cột D không xóa được mà nó sẽ hiển thị thời điểm lúc xóa. phải xóa lại riêng cột D lần nữa mới được.

 

[Ngoai Thanh]

Tương tự như tiêu đề của bài, mình có code này muốn hỏi các bạn:


Khi cột C và E thay đổi thì cột D và cột F sẽ nhận ngày tháng hiện thời. Bây giờ mình cũng muốn nếu như trong các cột D và F có ngày tháng rồi thì sẽ không nhảy nữa khi thay đổi cột C và E thì mình phải sửa làm sao???

Thì cứ cái "Củ chuối" trên xem sao :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
s = Date
For Each c In Target
If c.Column = 3 And c.Offset(, 1) = "" Then c.Offset(, 1) = s
If c.Column = 5 And c.Offset(, 1) = "" Then c.Offset(, 1) = s
Next
End Sub

 

[pinklove]

Thì cứ cái "Củ chuối" trên xem sao :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
s = Date
For Each c In Target
If c.Column = 3 And c.Offset(, 1) = "" Then c.Offset(, 1) = s
If c.Column = 5 And c.Offset(, 1) = "" Then c.Offset(, 1) = s
Next
End Sub

Code này của bạn cũng bị lỗi khi kéo chuột bôi đen toàn bộ vùng từ cột C đến cột F ấn phím del thì sẽ hiển thị ngày tháng ở 2 cột đó luôn.

 

[Ngoai Thanh]

Code này của bạn cũng bị lỗi khi kéo chuột bôi đen toàn bộ vùng từ cột C đến cột F ấn phím del thì sẽ hiển thị ngày tháng ở 2 cột đó luôn.

Bạn nên chịu khó học đi chút ! code sử dụng sự kiện thay đổi tại cột c và E thì mọi sự thay đổi tại 2 cột này code đều tác động . khi bạn bôi đen các cột gồm cả các cột trên để xóa ( tức là sự kiện thay đổi , theo đúng lệnh, code tác động và tại cột E sẽ hiện thời gian xóa dữ liệu ) . Vậy là đúng sự kiện, đâu phải lỗi ? Có điều không đúng ý bạn "sau này" thôi ! Tôi nói "Sau này" vì lúc đầu bạn chỉ cần gõ dữ liệu vào 2 cột C và E thì 2 cột E và F hiện thời gian nhập liệu và khi cột E và F có dữ liệu thì thời gian đã nhập không đổi nữa . Nếu bạn muốn phát sinh thêm sự kiện xóa dữ liệu thì nhờ thêm vấn đề đó , nhưng bạn lại nói là code " lỗi " cho nó lòi cái đuôi "giỏi " ra . Nói chung là ...xin lỗi!...rút...

 

[giaiphap]

Bạn nên chịu khó học đi chút ! code sử dụng sự kiện thay đổi tại cột c và E thì mọi sự thay đổi tại 2 cột này code đều tác động . khi bạn bôi đen các cột gồm cả các cột trên để xóa ( tức là sự kiện thay đổi , theo đúng lệnh, code tác động và tại cột E sẽ hiện thời gian xóa dữ liệu ) . Vậy là đúng sự kiện, đâu phải lỗi ? Có điều không đúng ý bạn "sau này" thôi ! Tôi nói "Sau này" vì lúc đầu bạn chỉ cần gõ dữ liệu vào 2 cột C và E thì 2 cột E và F hiện thời gian nhập liệu và khi cột E và F có dữ liệu thì thời gian đã nhập không đổi nữa . Nếu bạn muốn phát sinh thêm sự kiện xóa dữ liệu thì nhờ thêm vấn đề đó , nhưng bạn lại nói là code " lỗi " cho nó lòi cái đuôi "giỏi " ra . Nói chung là ...xin lỗi!...rút...

Bạn nói vậy hợi nặng quá, ai mới sinh ra mà giỏi đâu, chẳng qua là bạn nghiên cứu trước thôi!

 

[Ngoai Thanh]

Bạn nói vậy hợi nặng quá, ai mới sinh ra mà giỏi đâu, chẳng qua là bạn nghiên cứu trước thôi!

Ai cũng vậy thôi ! không biết thì học, hỏi ... không phải " phán " . Theo bạn nếu ai đó nhờ bạn về điều gì đó , sau khi bạn bạn giúp , người ta không những không cám ơn mà sổ toẹt :"sai" , vậy ta nên " cám ơn " họ ? ...Hay !

 

[comet_1701]

Tác giả Pinklove không khéo thôi, chắc bạn ý cũng ko có ý gì đầu. Nhưng tác giả nên lưu ý vì mình thấy khá nhiều topic của bạn do ko nói rõ từ đầu nên topic thường phát sinh dài hơn dự kiến. Hôm qua, mình hoàn toàn có thể lấy code của bạn Ngoai Thanh để chế thêm nhưng vì tôn trọng tác giả nên viết kiểu củ chuối hơn tý. Hôm qua đợi mãi ko thấy bạn trả lời nên đi ngủ luôn.

 

[Ngoai Thanh]

Tác giả Pinklove không khéo thôi, chắc bạn ý cũng ko có ý gì đầu. Nhưng tác giả nên lưu ý vì mình thấy khá nhiều topic của bạn do ko nói rõ từ đầu nên topic thường phát sinh dài hơn dự kiến. Hôm qua, mình hoàn toàn có thể lấy code của bạn Ngoai Thanh để chế thêm nhưng vì tôn trọng tác giả nên viết kiểu củ chuối hơn tý. Hôm qua đợi mãi ko thấy bạn trả lời nên đi ngủ luôn.

Không phải , nếu hỏi thêm thì vô tư, vi có thể người hỏi không lường trước hết vấn đề . Khi thấy bài của bạn người ta bảo bị " lỗi" , mình đã thấy khó chịu : Có thể ai đó dùng từ chưa chuẩn ! Nên mình thử xem sao chứ cái ý tưởng đó chẳng dùng được vào việc gì . Và cái từ " vẫn lỗi " như một "phát hiện" mà người giúp không biết. Nhưng mà thôi đi bạn . chấm hết nhá ! Học mãi còn chả vào ...

 

[VetMini]

Thường thường ở diễn đàn này, những người hỏi code "tự động" là chỉ mới có ý tuởng chứ chưa hề suy nghĩ đến những điều phức tạp khác đi kèm theo cái "tự động" này. Lúc nhận được code rồi, họ mới dùng thử và xảy ra 3 trường hợp vấn đề (*):

1. code bị lỗi, không đáp ứng yêu cầu. Do người viết không hiểu yêu cầu hoặc test không kỹ. Cũng có khi do khác biệt về môi trường.
2. code đáp ứng yêu cầu đã nêu ra, nhưng trên thực tế yêu cầu ấy không giống nhu cầu.
3. tất cả đều đáp ứng. Nhưng khi thấy kết quả rồi mới lòi ra thêm nhu cầu khác.

Trường hợp 1: rất ít khi xảy ra. Dẫu có xảy ra thì người viết code cũng vui vẻ sửa chữa.
Trường hợp 2: là cái thường gặp. Cái này là lỗi chủ 100%. Nhưng khi chủ không chịu nhận lỗi mình mà cứ đổ lỗi cho người viết code thì người viết code phải bực mình.
Trường hợp 3: là cái gần như bài nào ở đây cũng bị. cais này tuỳ theo sự kiên nhẫn của người viết code.

(*) để ý tôi dùng từ "trường hợp", nó liên hệ đến trình độ hiểu biết về dữ liệu chứ không phải hiểu biết về code. Không biết về code thì hỏi về code, không biết về dữ liệu của mình thì nói thẳng là mình không nắm vững dữ liệu.

 

[pinklove]

Không phải , nếu hỏi thêm thì vô tư, vi có thể người hỏi không lường trước hết vấn đề . Khi thấy bài của bạn người ta bảo bị " lỗi" , mình đã thấy khó chịu : Có thể ai đó dùng từ chưa chuẩn ! Nên mình thử xem sao chứ cái ý tưởng đó chẳng dùng được vào việc gì . Và cái từ " vẫn lỗi " như một "phát hiện" mà người giúp không biết. Nhưng mà thôi đi bạn . chấm hết nhá ! Học mãi còn chả vào ...

Xin lỗi vì tôi dùng từ không khéo nên khiến bạn phật ý. Tôi không biết về code, chỉ hỏi rồi tìm và xào xáo của các bạn trên diễn đàn để sử dụng thôi, nên tôi ko dám bắt lỗi ai cả. Chẳng qua tôi sử dụng code trên tôi thấy phát sinh vấn đề đó thì tôi nói. Có thể cách diễn đạt làm bạn hiểu lầm. Tôi xin lỗi. Tôi cũng không phải có kinh nghiệm nhiều và không nắm rõ cách code nên trong quá trình làm phát sinh vấn đề mới hỏi thêm nên thường vấp phải vấn đề như bạn comet_1701 nói, đó là toàn hỏi phát sinh. Thành thật xin lỗi nếu đã làm phiền các bạn.

 

[Ngoai Thanh]

Xin lỗi vì tôi dùng từ không khéo nên khiến bạn phật ý. Tôi không biết về code, chỉ hỏi rồi tìm và xào xáo của các bạn trên diễn đàn để sử dụng thôi, nên tôi ko dám bắt lỗi ai cả. Chẳng qua tôi sử dụng code trên tôi thấy phát sinh vấn đề đó thì tôi nói. Có thể cách diễn đạt làm bạn hiểu lầm. Tôi xin lỗi. Tôi cũng không phải có kinh nghiệm nhiều và không nắm rõ cách code nên trong quá trình làm phát sinh vấn đề mới hỏi thêm nên thường vấp phải vấn đề như bạn comet_1701 nói, đó là toàn hỏi phát sinh. Thành thật xin lỗi nếu đã làm phiền các bạn.

Bạn đã nói vậy thì thôi ! mình không nói thêm nữa . Có điều lần sau nếu thấy chưa đúng ý thì bạn hỏi lại , phát sinh phần nào ? kết quả cần thế nào ?...Bởi người giúp thường kiểm tra text code theo yêu cầu trước khi trả lời . cũng có trường hợp lỗi , nhưng không phải như bạn kết luận ... Nói chung là thôi, bạn cũng không phải lăn tăn gì nữa ...Tam biệt .

 

[Nguyễn Thị Phương Minh]

Em có 1 file
Khi nhập dữ liệu vào cột B thì cột C tự động ghi lại thời gian: ngày/tháng giờhút của thời điểm nhập liệu. Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

Em có tham khảo bài: http://www.giaiphapexcel.com/forum/archive/index.php/t-22291.html nhưng làm không được.

Các bác giúp em với

nếu muốn cột ngày nằm ở cột đầu tiên sau đó mới đến cột dữ liệu thì làm sao nhỉ? kiểu nhập dữ liệu ở cột B nhưng ngày nhảy ở cột A ấy

 

[Hoang2013]

/(/ếu muốn cột ngày nằm ở cột đầu tiên sau đó mới đến cột dữ liệu thì làm sao nhỉ? kiểu nhập dữ liệu ở cột B nhưng ngày nhảy ở cột A ấy

Thì sửa code ờ #14 lại xíu là được

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range, s As String
  s = Now
  For Each c In Target
      If c.Column = 2 And c.Offset(, -1).Value = "" Then c.Offset(, -1).Value = s   '<=|'
  Next
End Sub

 

[Nguyễn Thị Phương Minh]

Thì sửa code ờ #14 lại xíu là được

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range, s As String
  s = Now
  For Each c In Target
      If c.Column = 2 And c.Offset(, -1).Value = "" Then c.Offset(, -1).Value = s   '<=|'
  Next
End Sub

Cám ơn nhiều ạ, nhưng lỗi này là sao ạ

 

[phulien1902]

Cám ơn nhiều ạ, nhưng lỗi này là sao ạ

Bạn thử thay dòng:

If c.Column = 2 And c.Offset(, -1).Value = "" Then c.Offset(, -1).Value = s

bằng:

If c.Column = 2 Then c.Offset(, -1).Value = s

 

[Nguyễn Thị Phương Minh]

Bạn thử thay dòng:

If c.Column = 2 And c.Offset(, -1).Value = "" Then c.Offset(, -1).Value = s

bằng:

If c.Column = 2 Then c.Offset(, -1).Value = s

Nó thay đổi từng giây luôn ạ. Và có cách nào để nó chỉ hiện ngày tháng ko thôi ạ

 

[phulien1902]

Nó thay đổi từng giây luôn ạ. Và có cách nào để nó chỉ hiện ngày tháng ko thôi ạ

Bạn thay:

s = Now

bằng:

s = Date

Hoặc:

s = Format(Date, "dd/mm")

 

[Nguyễn Thị Phương Minh]

Nó thay đổi từng giây luôn ạ. Và có cách nào để nó chỉ hiện ngày tháng ko thôi ạ

Bạn thay:

s = Now

bằng:

s = Date

Dạ được rồi. em cám ơn ạ