Nhập dữ liệu ở cột A, tự động điền giờ (giá trị) vào cột B (1 người xem)

Bảy Dzõ · 30/4/13

Vấn đề của em như sau:
Ở cột A em sẽ dùng cho các bạn nhập dữ liệu vào và em muốn nếu cột A có dữ liệu thì cột B sẽ hiển thị thời gian nhập một cách tự động và chỉ là value. Nếu sử dụng hàm now() thì mỗi lần nhập thì thời gian ở cột B sẽ tự động cập nhật theo hệ thống:
Ví dụ;
A1: 3245624967 B1: 10:37am
B1: 2235961453 B2: 10:39am
Nếu A trống thì B cũng trống.

Có cách nào làm thế được ko anh? Cám ơn.

nghiaphuc · 30/4/13

Bảy Dzõ đã viết:
Sẵn tiện đây có bài hỏi về vấn đề này, cho phép em ké một ít với ý cũng gần như thế vì sợ mở thêm topic. Vấn đề của em như sau:
Ở cột A em sẽ dùng cho các bạn nhập dữ liệu vào và em muốn nếu cột A có dữ liệu thì cột B sẽ hiển thị thời gian nhập một cách tự động và chỉ là value. Nếu sử dụng hàm now() thì mỗi lần nhập thì thời gian ở cột B sẽ tự động cập nhật theo hệ thống:
Ví dụ;
A1: 3245624967 B1: 10:37am
B1: 2235961453 B2: 10:39am
Nếu A trống thì B cũng trống.

Có cách nào làm thế được ko anh? Cám ơn.

Cái này thì dễ ẹc à, chỉ cần code sau cho sheet cần áp dụng:

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    For Each Cll In Intersect(Target, [A:A])
        If Cll <> "" Then
            Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
        Else
            Cll.Offset(, 1).ClearContents
        End If
    Next
End Sub

Bảy Dzõ · 30/4/13

nghiaphuc đã viết:
Cái này thì dễ ẹc à, chỉ cần code sau cho sheet cần áp dụng:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [A:A])
If Cll <> "" Then
Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
Else
Cll.Offset(, 1).ClearContents
End If
Next
End Sub[/GPECODE]

Cám ơn anh Nghĩa Phúc. Học được món mới... với anh thì một cái búng tay còn em ăn canh bí, cháo bí dài dài...

Sẵn tiện anh chỉ giúp cho em nếu muốn thay đổi cột thời gian (cột B) thành cột khác ví dụ (cột F) thì đổi ở đâu thưa anh? Thân.

nghiaphuc · 30/4/13

Bảy Dzõ đã viết:
Cám ơn anh Nghĩa Phúc. Học được món mới... với anh thì một cái búng tay còn em ăn canh bí, cháo bí dài dài... Sẵn tiện anh chỉ giúp cho em nếu muốn thay đổi cột thời gian (cột B) thành cột khác ví dụ (cột F) thì đổi ở đâu thưa anh? Thân.

Bạn sửa số 1 chỗ Cll.Offset(, 1) thành 1 số khác là được, số 1 ở đây là số cột để dịch chuyển từ cột A đến cột kết quả. Chẳng hạn sửa cột B thành cột F thì thay số 1 bởi số 5.

Bảy Dzõ · 30/4/13

nghiaphuc đã viết:
Bạn sửa số 1 chỗ Cll.Offset(, 1) thành 1 số khác là được, số 1 ở đây là số cột để dịch chuyển từ cột A đến cột kết quả. Chẳng hạn sửa cột B thành cột F thì thay số 1 bởi số 5.

Cảm ơn anh em đã hiểu là làm thử được. Thân

ndu96081631 · 30/4/13

nghiaphuc đã viết:
Cái này thì dễ ẹc à, chỉ cần code sau cho sheet cần áp dụng:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [A:A])
If Cll <> "" Then
Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
Else
Cll.Offset(, 1).ClearContents
End If
Next
End Sub[/GPECODE]

Giả định rằng A1:A10 đang có dữ liệu và B1:B10 toàn bộ đều có dữ liệu =9:32:00
Thí nghiệm 1 phát bằng cách click phải dòng 5, chọn Delete ---> Điều đương nhiên dòng 6 sẽ được đôn lên thành dòng 5.
Tại thời điểm Delete, giả sử thời gian khi ấy là 9:33:00 thì B5 bây giờ sẽ sẽ từ 9:32:00 biến thành 9:33:00
Ẹc... Ẹc...

nghiaphuc · 30/4/13

ndu96081631 đã viết:
Giả định rằng A1:A10 đang có dữ liệu và B1:B10 toàn bộ đều có dữ liệu =9:32:00
Thí nghiệm 1 phát bằng cách click phải dòng 5, chọn Delete ---> Điều đương nhiên dòng 6 sẽ được đôn lên thành dòng 5.
Tại thời điểm Delete, giả sử thời gian khi ấy là 9:33:00 thì B5 bây giờ sẽ sẽ từ 9:32:00 biến thành 9:33:00
Ẹc... Ẹc...

Ayza, còn có tình huống nghiệt ngã như vậy nữa sao?! Vậy thì phải xử lý nó thế nào anh nhỉ?

ndu96081631 · 30/4/13

nghiaphuc đã viết:
Ayza, còn có tình huống nghiệt ngã như vậy nữa sao?! Vậy thì phải xử lý nó thế nào anh nhỉ?

Dễ mà:
Xét cột kết quả, cái nào rổng thì điền giờ, ngược lại thì.. im re
Vậy thôi
Đại khái thế này chắc được:

Mã:

If Cll <> "" Then
  If Cll.Offset(, 1) = "" Then Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
Else
  Cll.Offset(, 1).ClearContents
End If

Bảy Dzõ · 30/4/13

ndu96081631 đã viết:
Giả định rằng A1:A10 đang có dữ liệu và B1:B10 toàn bộ đều có dữ liệu =9:32:00
Thí nghiệm 1 phát bằng cách click phải dòng 5, chọn Delete ---> Điều đương nhiên dòng 6 sẽ được đôn lên thành dòng 5.
Tại thời điểm Delete, giả sử thời gian khi ấy là 9:33:00 thì B5 bây giờ sẽ sẽ từ 9:32:00 biến thành 9:33:00
Ẹc... Ẹc...

Đúng thiệt sư phụ đúng là sư phụ... Em hoàn toàn chưa nghĩ tới cái tình huống theo anh Nghĩa Phúc nói là nghiệt ngã này...

nghiaphuc · 30/4/13

ndu96081631 đã viết:
Dễ mà:
Xét cột kết quả, cái nào rổng thì điền giờ, ngược lại thì.. im re
Vậy thôi
Đại khái thế này chắc được:

Mã:

If Cll <> "" Then [COLOR=#ff0000]If Cll.Offset(, 1) = "" Then Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")[/COLOR] Else Cll.Offset(, 1).ClearContents End If

Thực tế thì còn tình huống thế này: Lúc trước đã nhập nội dung vào ô A5, tại ô B5 sẽ ghi lại thời điểm lúc đó. Sau này ta lại sửa giá trị ô A5, vậy thì có lẽ thời điểm tại ô B5 phải được cập nhật theo thời điểm hiện tại chứ anh.

Quang_Hải · 30/4/13

nghiaphuc đã viết:
Thực tế thì còn tình huống thế này: Lúc trước đã nhập nội dung vào ô A5, tại ô B5 sẽ ghi lại thời điểm lúc đó. Sau này ta lại sửa giá trị ô A5, vậy thì có lẽ thời điểm tại ô B5 phải được cập nhật theo thời điểm hiện tại chứ anh.

Vậy thì sửa ô nào thì mần ô đó đi, ai kêu For Each In... mần chi.

Bảy Dzõ · 30/4/13

nghiaphuc đã viết:
Thực tế thì còn tình huống thế này: Lúc trước đã nhập nội dung vào ô A5, tại ô B5 sẽ ghi lại thời điểm lúc đó. Sau này ta lại sửa giá trị ô A5, vậy thì có lẽ thời điểm tại ô B5 phải được cập nhật theo thời điểm hiện tại chứ anh.

Trường hợp Anh nói có thể xảy ra nhưng đối với em thì tính là thời gian nhập lần đầu sẽ được ghi nhận. Trường hợp Anh đưa ra thì em sẽ học thêm được điều mới

nghiaphuc · 30/4/13

quanghai1969 đã viết:
Vậy thì sửa ô nào thì mần ô đó đi, ai kêu For Each In... mần chi.

Sửa ô nào mần ô đó hay For Each thì cũng rứa thôi chứ có khác chi đâu anh? Chỉ là For Each thì làm được nhiều hơn thôi, chẳng hạn như mình xóa nguyên cả một vùng trên cột A, hoặc copy một vùng khác và dán vào cột A.

Quang_Hải · 30/4/13

Bảy Dzõ đã viết:
Trường hợp Anh nói có thể xảy ra nhưng đối với em thì tính là thời gian nhập lần đầu sẽ được ghi nhận. Trường hợp Anh đưa ra thì em sẽ học thêm được điều mới

Vậy thì add cái giờ nhập vào mới nhất và cả luôn cái giờ trước đó để biết có chỉnh sửa thông tin

Bảy Dzõ · 30/4/13

quanghai1969 đã viết:
Vậy thì add cái giờ nhập vào mới nhất và cả luôn cái giờ trước đó để biết có chỉnh sửa thông tin

Ặc ặc ý này hay nè anh

nghiaphuc · 30/4/13

quanghai1969 đã viết:
Vậy thì add cái giờ nhập vào mới nhất và cả luôn cái giờ trước đó để biết có chỉnh sửa thông tin

Vậy thì cũng đâu có đáp ứng được cho tình huống Delete row của anh ndu. Bởi vì khi xóa hàng 5 thì hàng 6 được đôn lên trên thành hàng 5. Thực chất thì hàng 5 mới này chẳng có thay đổi gì cả, nhưng vẫn bị "add cái giờ mới nhất" vào.

ndu96081631 · 1/5/13

nghiaphuc đã viết:
Thực tế thì còn tình huống thế này: Lúc trước đã nhập nội dung vào ô A5, tại ô B5 sẽ ghi lại thời điểm lúc đó. Sau này ta lại sửa giá trị ô A5, vậy thì có lẽ thời điểm tại ô B5 phải được cập nhật theo thời điểm hiện tại chứ anh.

Nếu cột A là những danh mục thuộc dạng DUY NHẤT thì có thể có cách

Bảy Dzõ · 1/5/13

ndu96081631 đã viết:
Nếu cột A là những danh mục thuộc dạng DUY NHẤT thì có thể có cách

Cho em hỏi ý thầy là dữ liệu không lặp lại? Nếu đúng thế thì dữ liệu sẽ không lặp lại thưa thầy (đối với trường hợp em muốn áp dụng). Nó là mà an ninh của thẻ nhân viên dạng RFID cho nên ko có trường hợp bị trùng.

ndu96081631 · 1/5/13

Bảy Dzõ đã viết:
Cho em hỏi ý thầy là dữ liệu không lặp lại? Nếu đúng thế thì dữ liệu sẽ không lặp lại thưa thầy (đối với trường hợp em muốn áp dụng). Nó là mà an ninh của thẻ nhân viên dạng RFID cho nên ko có trường hợp bị trùng.

Tôi cũng đoán vậy!
Mới chí có ý tưởng thôi: Là dùng Dictionaray "ghi nhớ" lại các bản ghi. Mai này có xóa, sửa gì đó thì ta sẽ tra cứu vào Dictionary này và quyết định có điền giờ hay không
(làm Dictionary hoài cũng phát ngán rồi ---> Để các cao thủ khác làm thử xem sao)

siwtom · 1/5/13

ndu96081631 đã viết:
Tôi cũng đoán vậy!
Mới chí có ý tưởng thôi: Là dùng Dictionaray "ghi nhớ" lại các bản ghi. Mai này có xóa, sửa gì đó thì ta sẽ tra cứu vào Dictionary này và quyết định có điền giờ hay không
(làm Dictionary hoài cũng phát ngán rồi ---> Để các cao thủ khác làm thử xem sao)

Sư phụ nghỉ cho tiểu đệ biểu diễn tí.

Sửa code của nghiaphuc trong notepad nên không test. Chỉ "ước lượng" bằng mắt rồi sửa thôi.

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    For Each Cll In Intersect(Target, [A:A])
        If Cll <> "" Then
            If Cll <> Cll.ID Then
                Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
                Cll.ID = Cll
            End If
        Else
            Cll.Offset(, 1).ClearContents
            Cll.ID = ""
        End If
    Next
End Sub

Bảy Dzõ · 1/5/13

siwtom đã viết:
Sư phụ nghỉ cho tiểu đệ biểu diễn tí.

Sửa code của nghiaphuc trong notepad nên không test. Chỉ "ước lượng" bằng mắt rồi sửa thôi.

[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [A:A])
If Cll <> "" Then
If Cll <> Cll.ID Then
Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
Cll.ID = Cll
End If
Else
Cll.Offset(, 1).ClearContents
Cll.ID = ""
End If
Next
End Sub

[/GPECODE]

Bác Siwtom có thể giúp em giải thích sự khác biệt giữa code của bác và code anh Nghĩa Phúc giùm em được không? Vì em đang lọ mọ học nên muốn biết điểm khác biệt. Cám ơn bác

siwtom · 1/5/13

Bảy Dzõ đã viết:
Bác Siwtom có thể giúp em giải thích sự khác biệt giữa code của bác và code anh Nghĩa Phúc giùm em được không? Vì em đang lọ mọ học nên muốn biết điểm khác biệt. Cám ơn bác

code ngắn thì bạn so sánh sẽ thấy chỗ tôi thêm vào mà.
Khi nhập vào ô tại cột A lần đầu thì ô.Value <> ô.ID (ô.ID = "") nên code

Mã:

            If Cll <> Cll.ID Then
                Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
                Cll.ID = Cll
            End If

được thực hiện (đk của IF thỏa). Kết quả ta có giờ tại cột B, và ô.Value = ô.ID
Khi ta xóa dòng thì vẫn có Cll = Cll.ID nên block IF không được thực hiện do đk không thỏa, vậy cột B không đổi.
Khi ta sửa cột A thì lại có Cll <> Cll.ID nên block IF lại được thực hiện (do đk thỏa) nên cột B được làm mới, và lại có Cll = Cll.ID
Khi xóa trong cột A thì cũng lại có Cll = Cll.ID (= "") và trở lại trạng thái ban đầu khi chưa nhập gì cả và "trò chơi" lại bắt đầu từ đầu

Bảy Dzõ · 1/5/13

siwtom đã viết:
code ngắn thì bạn so sánh sẽ thấy chỗ tôi thêm vào mà.
Khi nhập vào ô tại cột A lần đầu thì ô.Value <> ô.ID (ô.ID = "") nên code

Mã:

If Cll <> Cll.ID Then Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM") Cll.ID = Cll End If

được thực hiện (đk của IF thỏa). Kết quả ta có giờ tại cột B, và ô.Value = ô.ID
Khi ta xóa dòng thì vẫn có Cll = Cll.ID nên block IF không được thực hiện do đk không thỏa, vậy cột B không đổi.
Khi ta sửa cột A thì lại có Cll <> Cll.ID nên block IF lại được thực hiện (do đk thỏa) nên cột B được làm mới, và lại có Cll = Cll.ID
Khi xóa trong cột A thì cũng lại có Cll = Cll.ID (= "") và trở lại trạng thái ban đầu khi chưa nhập gì cả và "trò chơi" lại bắt đầu từ đầu

Cám ơn anh đã giải thích cặn kẽ. Thật cái lòng là em mới học nên tò mò hỏi để tìm ra cái khác biệt và công dụng của cái khác biệt đó để ghi nhớ mà sử dụng lần sau. Em đã thử test code của anh và có 1 vấn đề nhỏ như sau:

Em thay đổi cột giờ từ B sang F "Cll.Offset(, 5)", dữ liệu cột A chỉ có 3 hàng nhưng khi em xoá cột A thử thì nó chạy chậm khoảng 18 giây đó anh.

siwtom · 1/5/13

Bảy Dzõ đã viết:
Cám ơn anh đã giải thích cặn kẽ. Thật cái lòng là em mới học nên tò mò hỏi để tìm ra cái khác biệt và công dụng của cái khác biệt đó để ghi nhớ mà sử dụng lần sau. Em đã thử test code của anh và có 1 vấn đề nhỏ như sau:

Em thay đổi cột giờ từ B sang F "Cll.Offset(, 5)", dữ liệu cột A chỉ có 3 hàng nhưng khi em xoá cột A thử thì nó chạy chậm khoảng 18 giây đó anh.

Bạn chọn cả cột hay chọn 3 ô rồi xóa?
Nếu bạn chọn cả cột thì bạn hãy chạy code của nghiaphuc rồi cũng chọn cả cột xem sao. Cái chuyện này không liên quan gì tới việc đổi cột B sang F, vậy bạn cứ để B rồi chạy code

ndu96081631 · 1/5/13

siwtom đã viết:
Sư phụ nghỉ cho tiểu đệ biểu diễn tí.

Sửa code của nghiaphuc trong notepad nên không test. Chỉ "ước lượng" bằng mắt rồi sửa thôi.

Cũng là làm công việc "Đánh dấu" nhưng nay mới biết có thằng ID này
"Tiểu đệ" Hay quá!
Ẹc... Ẹc...

Bảy Dzõ · 1/5/13

siwtom đã viết:
Bạn chọn cả cột hay chọn 3 ô rồi xóa?
Nếu bạn chọn cả cột thì bạn hãy chạy code của nghiaphuc rồi cũng chọn cả cột xem sao. Cái chuyện này không liên quan gì tới việc đổi cột B sang F, vậy bạn cứ để B rồi chạy code

Dạ em xoá cả cột. Cả hai đoạn cốt đều chậm anh ah. Em hiểu là việc thay đổi cột thời gian ko ảnh hưởng tới chuyện này. Nhưng em test thử thì thấy nó chậm nên đưa lên để mọi người giải thích giùm em thôi. Thân.

zzTXTzz · 6/5/13

cái này hay quá !
mọi người cho mình hỏi thêm nhé !
nếu nhập liệu vào cột a thì cột b tự động nhảy giờ ( như code trên)
vậy mình mún thêm nữa như là :
nhập cột a thì cột B nhảy giờ
nhập cột c thì cột D nhảy giờ, và nhập cột
Nhập cột E thì cột F nhảy giờ
Không biết phải viết hay chỉnh sữa code như thế nào !$@!!

Xin các cao thủ chỉ giáo, thanks !

nghiaphuc · 6/5/13

zzTXTzz đã viết:
cái này hay quá !
mọi người cho mình hỏi thêm nhé !
nếu nhập liệu vào cột a thì cột b tự động nhảy giờ ( như code trên)
vậy mình mún thêm nữa như là :
nhập cột a thì cột B nhảy giờ
nhập cột c thì cột D nhảy giờ, và nhập cột
Nhập cột E thì cột F nhảy giờ
Không biết phải viết hay chỉnh sữa code như thế nào
Xin các cao thủ chỉ giáo, thanks !

Trong code của bác siwtom ở bài #20, bạn sửa lại [A:A] thành [A:A,C:C,E:E] là được.

ntktrungkien · 13/11/13

siwtom đã viết:
Sư phụ nghỉ cho tiểu đệ biểu diễn tí.

Sửa code của nghiaphuc trong notepad nên không test. Chỉ "ước lượng" bằng mắt rồi sửa thôi.

[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [A:A])
If Cll <> "" Then
If Cll <> Cll.ID Then
Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
Cll.ID = Cll
End If
Else
Cll.Offset(, 1).ClearContents
Cll.ID = ""
End If
Next
End Sub

[/GPECODE]

Chào các bạn. Các bạn cho mình hỏi 1 chút về cách kết hợp của Code này.
+ Trên cùng 1 sheet:
- Nhập dữ liệu cột A -> côt B tự động hiển thị thời gian
- Nhập dữ liệu cột C -> Cột F tự động hiển thị thời gian.
Nhờ các bạn hỗ trợ giúp mình làm sao làm được như vậy.
Sau khi có giá trị thời gian của cột B & F công thức nào để trừ thời gian giữa 2 cột này để biết được thời gian trôi bao nhiêu (chỉ hiện thị số lượng giờ

hút ví dụ cột B: 13/11/2013 12:59:08 - Cột F :15/11/2013 12:59:08 thì thời gian trôi là 48H với F - B)

quangtranevn · 13/11/13

nghiaphuc đã viết:
Bạn sửa số 1 chỗ Cll.Offset(, 1) thành 1 số khác là được, số 1 ở đây là số cột để dịch chuyển từ cột A đến cột kết quả. Chẳng hạn sửa cột B thành cột F thì thay số 1 bởi số 5.

Nhờ anh chỉ giúp em, nếu cho hiện ngày, tháng, năm thì sao? em có sửa lại thành dd:mm:yyyy nhưng sao nó ra toàn là số hehe, cảm ơn các anh, chị trước.

quangtranevn · 18/11/13

Cảm ơn GPE, sau vài ngày vọc tới vọc lui cuối cùng cũng "ra" hehe. Nhưng em muốn thêm một cột ra giờ và một cột ra ngày thì mình làm thế nào? nhờ các anh chị giúp, cảm ơn.

pro8x · 18/11/13

quangtranevn đã viết:
Cảm ơn GPE, sau vài ngày vọc tới vọc lui cuối cùng cũng "ra" hehe. Nhưng em muốn thêm một cột ra giờ và một cột ra ngày thì mình làm thế nào? nhờ các anh chị giúp, cảm ơn.

thì bạn chỉ cần sửa lại số cột sẽ offset va fomat từ hh:mm sang dạng ngày là dd/mm/yyy thôi mà

y_minh · 1/10/14

Cho em hỏi nếu muốn nhập dữ liệu ngày giờ tự động theo cách này thì làm như thế nào ạ
Nếu dữ liệu từ ô Bi-->ACi thay đổi thì dữ liệu ngày giờ sẽ tự cập nhật ở ô Ai

anhtotbung35 · 4/1/16

ndu96081631 đã viết:
Dễ mà:
Xét cột kết quả, cái nào rổng thì điền giờ, ngược lại thì.. im re
Vậy thôi
Đại khái thế này chắc được:

Mã:

If Cll <> "" Then [COLOR=#ff0000]If Cll.Offset(, 1) = "" Then Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")[/COLOR] Else Cll.Offset(, 1).ClearContents End If

Nếu cũng trường hợp này, em muốn copy trên xuống dòng dưới hoặc dòng trên nữa (cùng cột) thì sao anh

The Secrect · 25/8/16

Mọi người ơi, Em cũng đang gặp vấn đề như trên. Tuy nhiên vấn đề của em là: Em muốn nhập dữ liệu vào cột E thì cột C tự động nhảy giờ. Không biết code phải sửa lại như thế nào. mọi người chỉ dùm em với nha.

Thanks All.

phulien1902 · 25/8/16

The Secrect đã viết:
Mọi người ơi, Em cũng đang gặp vấn đề như trên. Tuy nhiên vấn đề của em là: Em muốn nhập dữ liệu vào cột E thì cột C tự động nhảy giờ. Không biết code phải sửa lại như thế nào. mọi người chỉ dùm em với nha.

Thanks All.

Bạn dùng cái này:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 Then
        Target(1, -1) = Time
    End If
End Sub

The Secrect · 25/8/16

phulien1902 đã viết:
Bạn dùng cái này:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then Target(1, -1) = Time End If End Sub

Cảm ơn bạn nhiều!
Nếu dùng code của bạn để làm cho trường hợp ô target là A và ô hiển thị thời gian là B chắc cũng ổn bạn nhỉ.

The Secrect · 26/8/16

Mọi người ơi mình đang bị kẹt một chút trong cách nhập dữ liệu trong excel, mọi người giúp dùm mình nhé.

Chả là thế này: Mình đang muốn nhập dữ liệu vào 1 vùng cells được thiết lập cố định, sau khi nhấn enter thì toàn bộ dữ liệu ở vùng cells đó sẽ được insert vào trong 1 bảng dữ liệu khác.

Cụ thể như là: Mình muốn nhập dữ liệu vào ô A1 sau khi nhấn enter thì dữ liệu sẽ được đổ và bảng đã lập sẵn từ [A2:A10]

Mình đang loay hoay viết code mà có vẻ như không khả thi vì kiến thức về viết code có hạn.

Rất mong nhận được sự hỗ trợ từ mọi người.

Xin chân thành cảm ơn!

Nhập dữ liệu ở cột A, tự động điền giờ (giá trị) vào cột B (1 người xem)

Người dùng đang xem chủ đề này

Ngu Excel nhất GPE

Thành viên gạo cội

Ngu Excel nhất GPE

Thành viên gạo cội

Ngu Excel nhất GPE

Huyền thoại GPE

Thành viên gạo cội

Huyền thoại GPE

Ngu Excel nhất GPE

Thành viên gạo cội

Thành viên gạo cội

Ngu Excel nhất GPE

Thành viên gạo cội

Thành viên gạo cội

Ngu Excel nhất GPE

Thành viên gạo cội

Huyền thoại GPE

Ngu Excel nhất GPE

Huyền thoại GPE

Thành viên gắn bó

Ngu Excel nhất GPE

Thành viên gắn bó

Ngu Excel nhất GPE

Thành viên gắn bó

Huyền thoại GPE

Ngu Excel nhất GPE

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên hoạt động

Thành viên mới

Thành viên hoạt động

Thành viên mới

GPE - My love

Thành viên mới

Thành viên mới

Thời gian đếm ngược.