Nhờ viết code cho bảng phòng thi (1 người xem)

[dancao1975]

tôi có bảng danh sách phong thi Gồm 4 sheet: Danhsach, Inphongthi, inbangdiem, thống kê: ở Sheet Inphongthi: đã có code cho phép khi kích vào nút PRINT thì nó cho phép In nhưng tôi muốn là khi hiện thông báo có in từ phóng 1 tới phòng 10 bằng thông báo in từ phòng 1 tới phòng cuối cùng và nhấn Ok thì cho phép chọn phòng in, nhấn Cancel thì thoát lệnh in. Ở Sheet Inbangdiem: Sau khi nhập điểm vào Sheet: danhsach ta chọn lớp, môn thì nó sẽ in bảng điểm cho lớp và môn học đã chọn. ở sheet thống kê thì thống kê số lượng thí sinh theo mẫu đã gửi. đây là địa chỉ File đính kèm (sau khi kích chuộ vào đây, chọn download bên góc phải màn hình): http://www.mediafire.com/view/?pqdx91hs9uaa9qb

 

[aviaiva]

tôi có bảng danh sách phong thi Gồm 4 sheet: Danhsach, Inphongthi, inbangdiem, thống kê: ở Sheet Inphongthi: đã có code cho phép khi kích vào nút PRINT thì nó cho phép In nhưng tôi muốn là khi hiện thông báo có in từ phóng 1 tới phòng 10 bằng thông báo in từ phòng 1 tới phòng cuối cùng và nhấn Ok thì cho phép chọn phòng in, nhấn Cancel thì thoát lệnh in. Ở Sheet Inbangdiem: Sau khi nhập điểm vào Sheet: danhsach ta chọn lớp, môn thì nó sẽ in bảng điểm cho lớp và môn học đã chọn. ở sheet thống kê thì thống kê số lượng thí sinh theo mẫu đã gửi. đây là địa chỉ File đính kèm (sau khi kích chuộ vào đây, chọn download bên góc phải màn hình): http://www.mediafire.com/view/?pqdx91hs9uaa9qb

Nếu đây là file bác làm thì bác thừa sức làm được việc bác yêu cầu, bác chỉ cần thêm 1 sheet các thông tin ban đầu vào thường thì:
nếu là THPT: K10, K11, K12 (số lượng học sinh/1 phòng) => tính ra được bao nhiêu phòng và sẽ tính ra được tổng số phòng của ba khối khi prin thì cứ:

[GPECODE=vb]hoi = MsgBox("In khong", vbOKCancel, "Thong Bao")
If hoi = vbOK Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:= biến (tổng số phòng thi), Copies:=1
Else
End If[/GPECODE]

bác tham khảo http://www.giaiphapexcel.com/forum/showthread.php?70819-Chia-phòng-thi-khối-THPT

 

[dancao1975]

Nếu đây là file bác làm thì bác thừa sức làm được việc bác yêu cầu, bác chỉ cần thêm 1 sheet các thông tin ban đầu vào thường thì:
nếu là THPT: K10, K11, K12 (số lượng học sinh/1 phòng) => tính ra được bao nhiêu phòng và sẽ tính ra được tổng số phòng của ba khối khi prin thì cứ:

[GPECODE=vb]hoi = MsgBox("In khong", vbOKCancel, "Thong Bao")
If hoi = vbOK Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:= biến (tổng số phòng thi), Copies:=1
Else
End If[/GPECODE]

bác tham khảo http://www.giaiphapexcel.com/forum/showthread.php?70819-Chia-phòng-thi-khối-THPT

Tôi đang tập viết VBA, File trên tôi d0wnload trên mạng về, mong bác giúp đỡ, tôi đã thay đoạn code của bác nhưng nó chỉ có 1 phòng thi thôi, mong giúp đỡ
Sub inDS()Dim Hs1, Lg1, Pt, Luot
Dim i, j, DY, Hoi
Lg1 = Sheet2.[R5]
Hs1 = Sheet1.[c65536].End(3).Row - 6
Pt = IIf(Int(Hs1 / Lg1) = Hs1 / Lg1, Hs1 / Lg1, Int(Hs1 / Lg1) + 1)
Hoi = MsgBox("In khong", vbOKCancel, "Thong Bao")
If Hoi = vbOK Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Pt, Copies:=1
Else
End If
TaoDS
Sheet2.PrintPreview
End Sub

 

[dancao1975]

Tôi đang tập viết VBA, File trên tôi d0wnload trên mạng về, mong bác giúp đỡ, tôi đã thay đoạn code của bác nhưng nó chỉ có 1 phòng thi thôi, mong giúp đỡ
Sub inDS()Dim Hs1, Lg1, Pt, Luot
Dim i, j, DY, Hoi
Lg1 = Sheet2.[R5]
Hs1 = Sheet1.[c65536].End(3).Row - 6
Pt = IIf(Int(Hs1 / Lg1) = Hs1 / Lg1, Hs1 / Lg1, Int(Hs1 / Lg1) + 1)
Hoi = MsgBox("In khong", vbOKCancel, "Thong Bao")
If Hoi = vbOK Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Pt, Copies:=1
Else
End If
TaoDS
Sheet2.PrintPreview
End Sub

tôi đã sửa được rồi, nhờ bác viết hộ code cho sheet[Inbangdiem] và sheet[thongke]