hỏi về việc ghi nhập liệu

vanhesing · 2/11/10

chào mọi người em có bvaif này đã tìm đủ cách nhưnng vẫn không ra nhờ cả nhà tham khảo .
Mình muốn viết code ghi thời gian nhập liệu , đã thử và sử dụng được , tuy nhiên nó chỉ tốt khi hiện hành 1 mình, khi kết hợp với một code khác để lấy thông tin qua sheet khác thì nó chạy tùm lum hiện thời gian hết tất cả các ô còn lại ....
Vui lòng xem file đính kèm
thanks

ndu96081631 · 2/11/10

vanhesing đã viết:
chào mọi người em có bvaif này đã tìm đủ cách nhưnng vẫn không ra nhờ cả nhà tham khảo .
Mình muốn viết code ghi thời gian nhập liệu , đã thử và sử dụng được , tuy nhiên nó chỉ tốt khi hiện hành 1 mình, khi kết hợp với một code khác để lấy thông tin qua sheet khác thì nó chạy tùm lum hiện thời gian hết tất cả các ô còn lại ....
Vui lòng xem file đính kèm
thanks

Đôi lúc xài Interect cũng phải cẩn thận, nhất là khi ta có thao tác trên 1 vùng lớn "băng qua" vùng intersect này
Hic..
Sửa lại code:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Row >= 9 And Target.Column = 2 And Target.Count = 1 Then
    If Target <> "" Then Target.Offset(, 1) = Now
  End If
End Sub

Lê Duy Thương · 2/11/10

ndu96081631 đã viết:
Đôi lúc xài Interect cũng phải cẩn thận, nhất là khi ta có thao tác trên 1 vùng lớn "băng qua" vùng intersect này
Hic..
Sửa lại code:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Row >= 9 And Target.Column = 2 And Target.Count = 1 Then If Target <> "" Then Target.Offset(, 1) = Now End If End Sub

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Range("$b5:$e100"), Target) Is Nothing Then
         Cells(Target.Row, 1).Value = date()
         Cells(Target.Row, 1).NumberFormat = "dd/mm/yyyy"
   End If
End Sub

BÁC CHO EM HỎI NGHĨA CỦA NOT INTERSECT VÀ On Error Resume Next TRONG VBA LÀ GÌ ?
CÁM ƠN BÁC TRƯỚC

vanhesing · 2/11/10

ndu96081631 đã viết:
Đôi lúc xài Interect cũng phải cẩn thận, nhất là khi ta có thao tác trên 1 vùng lớn "băng qua" vùng intersect này
Hic..
Sửa lại code:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Row >= 9 And Target.Column = 2 And Target.Count = 1 Then If Target <> "" Then Target.Offset(, 1) = Now End If End Sub

Hi Bác ndu . em đã sữa code theo Bác thì lỗi mà em trình bày ở trên không còn nữa nhưng nó chỉ hiện hành có 1 dòng thôi Bác ơi , mà số lần nhập liệu của em thì nhiều,
Sẵn Bác sữa cho em code trong module 1 dùng cột "Số Chứng Từ " làm chuẩn . cột này có data thì mới cho "nhập liệu" không có data thì không cho nhập và hiện bảng thông báo .
Thanks Bác ndu nhiều lắm !!

ndu96081631 · 2/11/10

Le duy Thuong đã viết:
PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("$b5:$e100"), Target) Is Nothing Then Cells(Target.Row, 1).Value = date() Cells(Target.Row, 1).NumberFormat = "dd/mm/yyyy" End If End Sub

BÁC CHO EM HỎI NGHĨA CỦA NOT INTERSECT VÀ On Error Resume Next TRONG VBA LÀ GÌ ?
CÁM ƠN BÁC TRƯỚC

Cái này nói nhiều lần rồi mà
Intersect(Range1, Range2) là vùng được xác định bởi khu vực giao nhau giữa Range1 và Range2
Ví dụ:
Intersect(Range("A1:C10"), Range("C5:E12")) <===> Range("B5:C10")
If Intersect(Range1, Range2) Is Nothing then... có nghĩa là Nếu vùng giao của Range1 và Range2 không tồn tại thì...
Not là phủ định cái đứng sau nó, vậy:
If Not Intersect(Range1, Range2) Is Nothing then... có nghĩa là Nếu vùng giao của Range1 và Range2 tồn tại thì...
----------------------
On Error Resume Next: Có đoạn này ở đầu code thì khi gặp lỗi nó sẽ cho qua
---------------------------------------------------------------------------

vanhesing đã viết:
Hi Bác ndu . em đã sữa code theo Bác thì lỗi mà em trình bày ở trên không còn nữa nhưng nó chỉ hiện hành có 1 dòng thôi Bác ơi , mà số lần nhập liệu của em thì nhiều,

Tôi không hiểu câu tô màu xanh ở trên! HIỆN HÀNH CÓ 1 DÒNG nghĩa là sao?

vanhesing · 2/11/10

à , em đã kiểm tra kĩ rồi , không phải vậy bác à.
do em copy xuống nên nó không hiện , khi nhập liệu từng dòng 1 thì sẽ hiện , thanks bác , em sẽ nghiên cứu thêm .

ndu96081631 · 2/11/10

vanhesing đã viết:
à , em đã kiểm tra kĩ rồi , không phải vậy bác à.
do em copy xuống nên nó không hiện , khi nhập liệu từng dòng 1 thì sẽ hiện , thanks bác , em sẽ nghiên cứu thêm .

Muốn copy xuống mà code vẫn chạy luôn cũng không phải không có cách ---> Dùng vòng lập quét qua Target (For Each Clls in Target)
Nghiên cứu đi ---> Loại bài này đã nói cả chục lần trên diễn đàn rồi

vanhesing · 2/11/10

không cần Bác , nhiều khi như vậy vẫn hay hơn , loại trừ cái tính làm biếng của em .
Em sẽ nghiên cứu và mở rộng thêm vấn đề này.
Còn cái module 1 mong Bác cho em 1 chút ý kiến để em chỉnh sữa , em đọc sách VBA mà làm đi làm lại vẫn không được .
thanks Bác

ndu96081631 · 2/11/10

vanhesing đã viết:
không cần Bác , nhiều khi như vậy vẫn hay hơn , loại trừ cái tính làm biếng của em .
Em sẽ nghiên cứu và mở rộng thêm vấn đề này.
Còn cái module 1 mong Bác cho em 1 chút ý kiến để em chỉnh sữa , em đọc sách VBA mà làm đi làm lại vẫn không được .
thanks Bác

Module1 có phải là Sub NHAPLIEU không?
Tôi tạm sửa thế này:

PHP:

Sub NhapLieu()
  Application.ScreenUpdating = False
  Sheet3.Unprotect ("bichchi")
  With Sheet2
    With .Range(.[B9], .[B65500].End(xlUp)).Resize(, 17)
      .Copy Sheet3.Range("B65500").End(xlUp).Offset(1)
      .ClearContents
    End With
  End With
  Sheet3.Protect ("bichchi")
  Application.ScreenUpdating = True
 End Sub

vanhesing · 2/11/10

ndu96081631 đã viết:
Module1 có phải là Sub NHAPLIEU không?
Tôi tạm sửa thế này:

PHP:

Sub NhapLieu() Application.ScreenUpdating = False Sheet3.Unprotect ("bichchi") With Sheet2 With .Range(.[B9], .[B65500].End(xlUp)).Resize(, 17) .Copy Sheet3.Range("B65500").End(xlUp).Offset(1) .ClearContents End With End With Sheet3.Protect ("bichchi") Application.ScreenUpdating = True End Sub

Em sory vì chưa trình bày hết .
Ở module 1 của em em tạm bỏ dòng ActiveSheet.protect ("bichchi") để hoàn thiện xong mới gán vào .
Ý em muốn hỏi là code trong module đó có sai chỗ nào không vì khi em thực hiện thao tác " run sub " chọn sub NhapLieu thì nó báo lỗi , sau đó bấm End thì em lại nhập liệu bình thường .
Cái nữa là em muốn dùng cột B là " số chứng từ " của sheeet NK để làm data gốc . khi nhập data mà không nhập cột này thì khi click "nhập liệu " nó sẽ hiện bảng thông báo là chưa nhập đủ data. ngược lại thì nó sẽ nhập liệu qua sheet "tonghop" bình thường .
thanks Bác !

ndu96081631 · 2/11/10

vanhesing đã viết:
Em sory vì chưa trình bày hết .
Ở module 1 của em em tạm bỏ dòng ActiveSheet.protect ("bichchi") để hoàn thiện xong mới gán vào .
Ý em muốn hỏi là code trong module đó có sai chỗ nào không vì khi em thực hiện thao tác " run sub " chọn sub NhapLieu thì nó báo lỗi , sau đó bấm End thì em lại nhập liệu bình thường .
Cái nữa là em muốn dùng cột B là " số chứng từ " của sheeet NK để làm data gốc . khi nhập data mà không nhập cột này thì khi click "nhập liệu " nó sẽ hiện bảng thông báo là chưa nhập đủ data. ngược lại thì nó sẽ nhập liệu qua sheet "tonghop" bình thường .
thanks Bác !

Tôi thấy ý đồ của bạn rõ ràng là xem sheet NK như 1 Form tạm chỉ để nhập liệu. Sau khi nhập hoàn tất sẽ cho mọi thứ qua sheet TONGHOP, đúng không?
Vậy sao bạn không xây dựng 1 form? Khi ấy ta khỏi cần sự kiện Change của sheet, cũng không cần Module NHAPLIEU, mọi sự sẽ do Form quản lý (kể cả việc nhập không đúng hoặc thiếu thông tin)
Bạn thấy sao?

viehoai · 2/11/10

ndu96081631 đã viết:
Cái này nói nhiều lần rồi mà
Intersect(Range1, Range2) là vùng được xác định bởi khu vực giao nhau giữa Range1 và Range2
Ví dụ:
Intersect(Range("A1:C10"), Range("C5:E12")) <===> Range("B5:C10")

Xin hỏi lại Thầy Kết quả là Range("B5:C10") hay Range("C5:C10")?
Nếu Range("B5:C10") thì tại sao?
Xin cảm ơn Thầy.

ndu96081631 · 2/11/10

viehoai đã viết:
Xin hỏi lại Thầy Kết quả là Range("B5:C10") hay Range("C5:C10")?
Nếu Range("B5:C10") thì tại sao?
Xin cảm ơn Thầy.

Xin lỗi, gõ nhầm
Intersect(Range("A1:C10"), Range("B5:E12")) <===> Range("B5:C10")

vanhesing · 2/11/10

ndu96081631 đã viết:
Tôi thấy ý đồ của bạn rõ ràng là xem sheet NK như 1 Form tạm chỉ để nhập liệu. Sau khi nhập hoàn tất sẽ cho mọi thứ qua sheet TONGHOP, đúng không?
Vậy sao bạn không xây dựng 1 form? Khi ấy ta khỏi cần sự kiện Change của sheet, cũng không cần Module NHAPLIEU, mọi sự sẽ do Form quản lý (kể cả việc nhập không đúng hoặc thiếu thông tin)
Bạn thấy sao?

Bác đoán đúng ý em rồi . Do có nhiều người sử dụng nên em phải làm vậy để tránh trường hợp em nghỉ phép ngưòi khác làm thay.
Em cũng đã suy nghỉ sẽ dùng from , nhưng em thấy nó nhiều quá , nhập trên from thì mỗi lần nhập liệu chỉ 1 lần 1 thông tin , còn cái sheet NK thì em có thể nhập liệu để đó không giới hạn . ví dụ như cả ngày em nhập xuất trên NK , cuối ngày em chỉ sẽ click "nhập liệu ",nhưng nhược điểm của nó là nhiều cột quá mỗi một cột là một thông tin khi nhập cũng mệt mỏi .Giờ em vẫn chưa biết cái nào hay hơn .
Còn nếu sử dụng From, em thì hơi yếu phần này nên chưa hiểu câu :"mọi sự sẽ do Form quản lý (kể cả việc nhập không đúng hoặc thiếu thông tin)"
Em xin gửi Bác thêm 1 file nữa do em làm bằng From . Bác tham khảo và góp ý cho em về cái From như ý bác nói ở trên nhé .
thanks Bác !

Ếch Xanh · 2/11/10

vanhesing đã viết:
Bác đoán đúng ý em rồi . Do có nhiều người sử dụng nên em phải làm vậy để tránh trường hợp em nghỉ phép ngưòi khác làm thay.
Em cũng đã suy nghỉ sẽ dùng from , nhưng em thấy nó nhiều quá , nhập trên from thì mỗi lần nhập liệu chỉ 1 lần 1 thông tin , còn cái sheet NK thì em có thể nhập liệu để đó không giới hạn . ví dụ như cả ngày em nhập xuất trên NK , cuối ngày em chỉ sẽ click "nhập liệu ",nhưng nhược điểm của nó là nhiều cột quá mỗi một cột là một thông tin khi nhập cũng mệt mỏi .Giờ em vẫn chưa biết cái nào hay hơn .
Còn nếu sử dụng From, em thì hơi yếu phần này nên chưa hiểu câu :"mọi sự sẽ do Form quản lý (kể cả việc nhập không đúng hoặc thiếu thông tin)"
Em xin gửi Bác thêm 1 file nữa do em làm bằng From . Bác tham khảo và góp ý cho em về cái From như ý bác nói ở trên nhé .
thanks Bác !

Bó tay với bạn! Kêu người ta tham khảo mà Protect như thế ai mà giúp bạn được đây? Pass đâu?

vanhesing · 2/11/10

Learning_Excel đã viết:
Bó tay với bạn! Kêu người ta tham khảo mà Protect như thế ai mà giúp bạn được đây? Pass đâu?

à , sorry .
Mình quên mất , pass : bichchi
thanks

Ếch Xanh · 2/11/10

Learning_Excel đã viết:
Bó tay với bạn! Kêu người ta tham khảo mà Protect như thế ai mà giúp bạn được đây? Pass đâu?

Uh, cứ cho Pass là "vnbc" đi, thì trong File của bạn, Sheet1 không có nên bị lỗi nha bạn. Hic

Ếch Xanh · 2/11/10

vanhesing đã viết:
à , sorry .
Mình quên mất , pass : bichchi
thanks

Trời pass mình mà còn không nhớ kìa! Phải là "vnbc" mới đúng chứ!

1) Bạn tạo thêm những danh sách mã hàng, tên thiết bị, phụ tùng, nhà phân phối gì gì đó để làm nguồn.

2) Trên cơ sở nguồn, bạn tạo trên Form các combobox, thêm cái listbox hay listview để tiện theo dõi nhập đúng sai...

...

Đại loại là vậy Form mới chạy ngon lành được. Nếu nhập trên nhiều cột, hàng, thì nhập Form sẽ nhanh hơn nhập trực tiếp trong sheet đấy bạn.

vanhesing · 2/11/10

Learning_Excel đã viết:
Trời pass mình mà còn không nhớ kìa!

hic để mình up file khác . quên mất mấy cái from
thanks bạn

Ếch Xanh · 2/11/10

vanhesing đã viết:
hic để mình up file khác . quên mất mấy cái from
thanks bạn

Bạn tạo nguồn cho những cái tôi mới hướng dẫn bạn đi, trên một sheet data nào đó, sau đó tôi sẽ tạo giúp bạn cái form nhập liệu.

hỏi về việc ghi nhập liệu

Thành viên thường trực

File đính kèm

Huyền thoại GPE

Cạo lấy gì gội (Dịch quá không gội được)

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên gắn bó

Huyền thoại GPE

Thành viên thường trực

File đính kèm

Thành viên tích cực

Thành viên thường trực

Thành viên tích cực

Thành viên tích cực

Thành viên thường trực

File đính kèm

Thành viên tích cực

Đếm ngược thời gian