Các bác chỉ giúp Code này có gì sai?

[thong_xanh2003]

Tôi làm theo bài hướng dẫn :TẠO BẢNG CHỌN DỮ LIỆU (DATA SELECTOR) của bác LevanDuyet, khi tôi nhập đoạn code sau cho sheet2:
PrivateSub Worksheet_BeforeRightClick(Byval Target As Range, Calcel AsBoolean)
If Target.Column = 1 Then
Cancel = True
Call NhapDuLieu
End If
End Sub
Dòng code đầu tiên báo đỏ như vậy có phải là bị lỗi không,lỗi này là gì và phải sửa như thế nào. Mong các bác giúp đỡ,xin cảm ơn nhiều!

 

[dat2007]

Đây là lỗi do khai báo sai tham số trong sự kiện:Worksheet_BeforeRightClick

PrivateSub Worksheet_BeforeRightClick(Byval Target As Range, Calcel AsBoolean)

===> Sửa lại như sau

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

'Code .....

End Sub

 

[thong_xanh2003]

Tôi đã sửa xong đoạn code ở sheet 2(Không báo đỏ nữa) nhưng chạy thử thì ở code của modul ở sheet 1 đoạn code sau lại báo lỗi:
Sub DataSelector(Tenbang As String)
Dim bMang1
On Error Resume Next
bMang1 = TableToArray(Tenbang)
Call ArrayToListview(frmDataSelector.LVDataSelector, bMang1)
frmDataSelector.Show
End Sub
Dòng chữ tôi tô mầu đỏ báo lỗi (có nền mầu vàng và có mũi tên ở đầu dòng). Các bác chỉ giúp xem đây là lỗi gì và cách sửa, xin cảm ơn nhiều.

 

[tedaynui]

Tôi đã sửa xong đoạn code ở sheet 2(Không báo đỏ nữa) nhưng chạy thử thì ở code của modul ở sheet 1 đoạn code sau lại báo lỗi

Đoạn code trên bạn đặt trong Module chứ không đặt trong Sheet. Hoặc bạn gởi file lên sẽ dễ tìm lỗi hơn.

TDN

 

[thong_xanh2003]

Đoạn code trên bạn đặt trong Module chứ không đặt trong Sheet. Hoặc bạn gởi file lên sẽ dễ tìm lỗi hơn.

TDN

Đay là file của tôi,các bác chỉ giúp xem sai hay thiếu gì mà không chạy được?

 

[ontopoftheworld]

To Bác Thong_xanh2003:
Cám ơn bác đã hướng dẫn bên WKT về hình thức "CTGS", đây là file em sửa giúp bác. Bác coi thử nhá.
Mong bác hướng dẫn thêm về vấn đề của em. Em đang rối tung lên đây bác ạ.

 

[tedaynui]

Đay là file của tôi,các bác chỉ giúp xem sai hay thiếu gì mà không chạy được?

Chào bạn
Trong File bạn không nêu rõ yêu cầu nên mình cũng không hiểu rõ ý bạn cần những gì. Mình tạm điều chỉnh tí không biết có đúng ý của bạn không. Nếu không như ý, bạn nói rõ yêu cầu hơn nhé.

TDN

 

[thong_xanh2003]

Cảm ơn các bác, như này là chạy được rồi đây. Thực ra phần Code này là tôi làm theo hướng dẫn trong trang Web của bác LeVanDuyet, khi cho chạy thì cứ bi lỗi.Tôi đang học VBA nên chẳng hiểu lỗi do đâu mà sửa cả.Bác tedaynui có thể chỉ giúp bác đã sửa đoạn code nào để marco này chạy được không?

 

[tedaynui]

Cảm ơn các bác, như này là chạy được rồi đây. Thực ra phần Code này là tôi làm theo hướng dẫn trong trang Web của bác LeVanDuyet, khi cho chạy thì cứ bi lỗi.Tôi đang học VBA nên chẳng hiểu lỗi do đâu mà sửa cả.Bác tedaynui có thể chỉ giúp bác đã sửa đoạn code nào để marco này chạy được không?

+ Code của các nút OK và Cancle đặt trên Form (Không đặt trong Module)
+ Trong Sub NhaDuLieu, dòng lệnh Call DataSelector("MyRange") bạn phải đặt tên vùng dữ liệu là MyRange để add vào Listbox

TDN