Thùy Linh
Thùy Linh
Thảo luận 4 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 155 lượt xem

Mình đang làm thử bài ví dụ của chương 6Tuy nhiên khi chạy code thì báo lỗi

Hi Gitiho, 

Mình đang làm thử bài ví dụ của chương 6.

Tuy nhiên khi chạy code thì báo lỗi sai như sau.

Gitiho giúp mình sai do đâu ạ?

Mình đã sửa lại tên của sheet nhưng vẫn không chạy được code.



Thảo luận 4 câu trả lời
Lượt xem 155 lượt xem
Vỗ tay vỗ tay
Thùy Linh 16:08 - Aug 18, 2021
Chào bạn bạn đẩy file lên giúp gitiho nhé.
Vỗ tay vỗ tay
Thùy Linh 15:08 - Aug 19, 2021

Lam sao để đẩy file lên được ạ?

Vỗ tay vỗ tay
Thùy Linh 16:08 - Aug 19, 2021
Vỗ tay vỗ tay
Thùy Linh 16:08 - Aug 19, 2021

Chào bạn bạn thử nhé

Option Explicit
Sub TimDongCuoi()
'B1:Tim dong cuoi
Dim DongCuoi As Long
DongCuoi = Sheet10.Range("B" & Rows.Count).End(xlUp).Row
Range("K2").Value = DongCuoi
'B2: Dien thong tin tuong ung
    'Dien o "K1" vao cot A
    Range("A" & DongCuoi + 1).Value = Range("K1").Value
    'Dien o "K2" vao cot B
    Range("B" & DongCuoi + 1).Value = Range("K2").Value
    'Dien o "K3" vao cot C
    Range("C" & DongCuoi + 1).Value = Range("K3").Value
    'Dien o "K4" vao cot D
    Range("D" & DongCuoi + 1).Value = Range("K4").Value
'B3: Thong bao hoan thanh
    MsgBox "Updated"
'B4: Xoa thong tin
    Range("K").Clear
End Sub
Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông