Câu lệnh With và Lỗi runtime "380" (1 người xem)

[vdm147]

Sub hiendulieu()
Dim ws as worksheet
Dim lastrow as Double

Set ws = Thisworkbook.sheets("Tinhtrang")
Lastrow = Excel.Worksheetfuntion.CountA(ws.Range("A:A"))

If Lastrow = 1 then Lastrow = 2
With lb_inout
.ColumnCount = 13
.ColumnHeads = True
.ColumnWidths = "30,50,80,80,60,60,70,60,90,55,80,70,80"
.RowSource = ws.Name & "!A2:M" & lastrow
End with
End sub

Các cao nhân chỉ giáo với ạ. Chạy nó báo lỗi Runtime error "380"
Could not set the RowSource Property. Invaild property value

 

[Maika8008]

Sub hiendulieu()
Dim ws as worksheet
Dim lastrow as Double

Set ws = Thisworkbook.sheets("Tinhtrang")
Lastrow = Excel.Worksheetfuntion.CountA(ws.Range("A:A"))

If Lastrow = 1 then Lastrow = 2
With lb_inout
.ColumnCount = 13
.ColumnHeads = True
.ColumnWidths = "30,50,80,80,60,60,70,60,90,55,80,70,80"
.RowSource = ws.Name & "!A2:M" & lastrow
End with
End sub

Các cao nhân chỉ giáo với ạ. Chạy nó báo lỗi Runtime error "380"
Could not set the RowSource Property. Invaild property value

Thay RowSource bằng ListFillRange xem.

 

[HeSanbi]

Nếu lastrow <= 0 thì lỗi
Nếu ColumnCount nhỏ hơn số cột thì bị lỗi.
Nếu tên Worksheet chứa ký tự Unicode thì lỗi
vì vậy sửa code như sau:

 .ColumnCount = ws.range("A:M").Columns.Count
If lastrow >= 2 Then
   .RowSource = "'" & ws.Name & "'!A2:M" & lastrow
End If

 

[be_09]

Sub hiendulieu()
Dim ws as worksheet
Dim lastrow as Double

Set ws = Thisworkbook.sheets("Tinhtrang")
Lastrow = Excel.Worksheetfuntion.CountA(ws.Range("A:A"))

If Lastrow = 1 then Lastrow = 2
With lb_inout
.ColumnCount = 13
.ColumnHeads = True
.ColumnWidths = "30,50,80,80,60,60,70,60,90,55,80,70,80"
.RowSource = ws.Name & "!A2:M" & lastrow
End with
End sub

Các cao nhân chỉ giáo với ạ. Chạy nó báo lỗi Runtime error "380"
Could not set the RowSource Property. Invaild property value

Góp ý cho bạn:
1/ Hỏi về code thì nên đăng bài trong Box Lập trình với Excel.
2/ Sử dụng biến lb_inout mà không khai báo tên biến.

 

[SA_DQ]

Như các bạn khác đã phát hiện, Code bạn viết quá trời lỗi
Nếu là mình thì mình phải bảy lỗi từng dòng lệnh 1 mới làm chủ lỗi VBA diễn ra

Nên xài thử các hàm Err(), Erl() hay Error(),. . . sẽ giúp ta khữ hết các lỗi & lúc đó thực sự làm chủ Code của mình, chứ không ai khác.

(Nếu bạn có file, mình sẽ cụ thể những vấn đề mình đã nêu để tường tận hơn)

Thấn!

 

[ptm0412]

Góp ý cho bạn:
1/ Hỏi về code thì nên đăng bài trong Box Lập trình với Excel.
2/ Sử dụng biến lb_inout mà không khai báo tên biến.

Lb_InOut là tên của 1 listbox, không cần khai báo