Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Báo lỗi Block if whithout endif
Báo lỗi Block if whithout endif
Sub luu_noidung()
'Buoc 1: tim dong cuoi
Dim DongCuoi As Long
DongCuoi = Sheet1.Range("G" & Rows.Count).End(xlUp).Row
'Buoc 2: Luu noi dung tuong ung
' o b3 luu cot G
Range("G" & DongCuoi + 1).Value = Range("B3").Value
' o b4 luu cot H
Range("H" & DongCuoi + 1).Value = Range("B4").Value
' o b5 luu cot I
Range("I" & DongCuoi + 1).Value = Range("B5").Value
If Range("B3" Or "B4" Or "B5") = "" Then
' Buoc 3: Xoa noi dung
Range("B3:B5").ClearContents
MsgBox "Thanh Cong"
End Sub
Sub luu_NoiDung_02()
If Range("B3").Value <> "" Then
Call luu_noidung
End If
End Sub
1 câu trả lời
21 lượt xem
vỗ tay
Khi bạn mở if cần dùng end if để đóng lại nhé.
If Range("B3" Or "B4" Or "B5") = "" Then
' Buoc 3: Xoa noi dung
Range("B3:B5").ClearContents
MsgBox "Thanh Cong"
end if
vỗ tay
Câu hỏi liên quan
Top
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