runtime380
-
V
Câu lệnh With và Lỗi runtime "380"
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 =...- vdm147
- Chủ đề
- runtime380 with end with with vba
- Trả lời: 5
- Diễn đàn: Hàm và công thức Excel