Vấn đề Worksheet Activate

[Ếch Xanh]

Xin vui lòng cho hỏi: Khi đặt thuộc tính Private Sub Worksheet_Activate() tại Sheet1 làm sao để Copy ở một sheet khác rồi Paste vào Sheet1 được?

Mình cũng đã thử dùng câu lệnh If Application.CutCopyMode = True Then Exit Sub mà cũng vô phương!

Cám ơn rất nhiều!

 

[ndu96081631]

Xin vui lòng cho hỏi: Khi đặt thuộc tính Private Sub Worksheet_Activate() tại Sheet1 làm sao để Copy ở một sheet khác rồi Paste vào Sheet1 được?

Mình cũng đã thử dùng câu lệnh If Application.CutCopyMode = True Then Exit Sub mà cũng vô phương!

Cám ơn rất nhiều!

Thứ nhất: Đây gọi là SỰ KIỆN chứ chẳng phải thuộc tính gì cả (sự kiện Activate của sheet)
Thứ hai: Chưa hiẻu lắm câu hỏi này ---> Tức là khi sheet1 Active thì sẽ copy sheet khác rồi paste vào sheet này? Hay là sao? Tôi thí nghiệm bình thường mà bạn

 

[sealand]

Quái nhỉ? Hay mình hiểu sai?. Bình thường mà!!!
Bạn xem câu hỏi có phải như trong file không? (Sang Sheet khác rồi về Sheet1)

 

[tedaynui]

Xin vui lòng cho hỏi: Khi đặt thuộc tính Private Sub Worksheet_Activate() tại Sheet1 làm sao để Copy ở một sheet khác rồi Paste vào Sheet1 được?
Mình cũng đã thử dùng câu lệnh If Application.CutCopyMode = True Then Exit Sub mà cũng vô phương!
Cám ơn rất nhiều!

Vì bạn dùng sự kiện Worksheet_Activate nên khi chọn Sheet này thì nó chạy code trong Worksheet_Activate và tình cờ có lệnh nào đó huỷ lệnh copy thôi. Còn lệnh CutCopyMode đâu có tác dụng gì trong trường hợp này đâu.

Bạn muốn copy vào Sheet1 thì đâu cần Select nó đâu, bạn có thể đứng bất kỳ sheet nào và copy dữ liệu theo dạng
Sheet1.[A1:C10].value = Sheet3.[B1020].value

TDN

 

[Ếch Xanh]

Vì bạn dùng sự kiện Worksheet_Activate nên khi chọn Sheet này thì nó chạy code trong Worksheet_Activate và tình cờ có lệnh nào đó huỷ lệnh copy thôi.
TDN

Cám ơn anh Tedaynui và mọi người, đúng là ban đầu em có dùng sự kiện như thế này, và cứ copy, cut ở sheet khác và paste vào sheet này thì không thể nào thực hiện được:

Private Sub Worksheet_Activate()
  [A1:B5].Clear
End Sub

Nhưng sau đó, tùy chỉnh code lại như sau thì hoàn toàn yên tâm:

Private Sub Worksheet_Activate()
  With Application
    If .CutCopyMode = xlCopy _
    Or .CutCopyMode = xlCut Then Exit Sub
  End With
  [A1:B5].Clear
End Sub

Xin cám các Thầy ạ!

 

[Ếch Xanh]

Xin cho hỏi Tại sao thỉnh thoảng sự kiện Worksheet_Activate/ Deactivate, thậm chí Workbook_Activate/ Deactivate lại không hoạt động? Trong khi code không lỗi?

 

[nmhung49]

Xin cho hỏi Tại sao thỉnh thoảng sự kiện Worksheet_Activate/ Deactivate, thậm chí Workbook_Activate/ Deactivate lại không hoạt động? Trong khi code không lỗi?

Em nghĩ nó không bị lỗi đâu, mà có thể anh viết code trong sự kiện nào đó trong Worksheet bị lỗi trước nên khi đó sẽ làm các sự kiện trong đó không hoạt động, không biết có phải không?

 

[Ếch Xanh]

Em nghĩ nó không bị lỗi đâu, mà có thể anh viết code trong sự kiện nào đó trong Worksheet bị lỗi trước nên khi đó sẽ làm các sự kiện trong đó không hoạt động, không biết có phải không?

Nó không chạy chứ không phải bị bị lỗi, mình làm ít khi nào dùng On Error Resume Next lắm, nếu xảy ra lỗi là biết ngay! mà code chỉ Add Menu thôi, vấn đề Menu không xảy ra lỗi thì gán vào sự kiện sẽ không bị lỗi! Tức mình là xảy ra trên nhiều máy chứ không phải một máy! Để ý sẽ thấy rằng nếu Excel cứ mở để đấy (1 file) lâu lâu một chút là xảy ra tình trạng này, mới mở thì không bị mới ghê! Ý nói là lúc thì Sự kiện Activate hoạt động, lúc thì không đấy!