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
140. chuyên đề 02 - yêu cầu 2- lệnh in theo bộ phận
Em chào anh, chị ạ.
Em tự viết code cho bài tập này như sau :
Sub In_BoPhan()
Dim dong_BD As Long
Dim dong_KT As Long
dong_BD = 3
dong_KT = Sheets("Data_NhanSu").Range("A" & Rows.Count).End(xlUp).Row
Dim i As Long
For i = dong_BD To dong_KT
If Sheets("Data_NhanSu").Range("U" & i).Value = Sheets("HDLD").Range("O2").Value Then
Sheets("HDLD").Range("O3").Value = Sheets("Data_NhanSu").Range("Q" & i).Value
End If
Sheets("HDLD").PrintOut
Next i
End Sub
HỎI: nếu "Sheets("HDLD").PrintOut " em đặt sau End if thì có vấn đề gì ko ạ( vì e thấy bài giải của GItiho , Sheets("HDLD").PrintOut đặt trước “ End if”
2 câu trả lời
25 lượt xem
vỗ tay
Chào bạn tại sao đặt trước end if là nêu điều kiện đó đúng mới in còn lại là không in. Code của bạn không sai nhưng trong trường hợp Sheets("Data_NhanSu").Range("U" & i).Value = Sheets("HDLD").Range("O2").Value không đúng thì vẫn in giá trị dẫn đến không xử lý được hết lỗi xảy ra
vỗ tay
dạ, e cảm ơn.
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