Lấy tên giáo viên chủ nhiệm và phòng học

[LienDong]

Các bạn viết giùm code lấy tên giáo viện chủ nhiệm và phòng học theo 1 danh sách có trước
Giả sử trang 1A1 thì lấy tên giáo viên là Nguyễn Thị A và phòng học: Trệt, P. 01 dán vào ô D2 và D3
Cảm ơn các bạn nhiều

 

[BuiQuangThuan]

Các bạn viết giùm code lấy tên giáo viện chủ nhiệm và phòng học theo 1 danh sách có trước
Giả sử trang 1A1 thì lấy tên giáo viên là Nguyễn Thị A và phòng học: Trệt, P. 01 dán vào ô D2 và D3
Cảm ơn các bạn nhiều

Thử code sau

Option Explicit
Sub ABC()
    Dim sArr(), i&
    sArr = Sheets("DANHSACHLOP").Range("A4:C" & Sheets("DANHSACHLOP").Range("A" & Rows.Count).End(3).Row).Value
    For i = 1 To UBound(sArr)
        With Sheets(sArr(i, 1))
            .Range("D2").Value = sArr(i, 2)
            .Range("D3").Value = sArr(i, 3)
        End With
    Next
End Sub

 

[Thóc Sama]

Các bạn viết giùm code lấy tên giáo viện chủ nhiệm và phòng học theo 1 danh sách có trước
Giả sử trang 1A1 thì lấy tên giáo viên là Nguyễn Thị A và phòng học: Trệt, P. 01 dán vào ô D2 và D3
Cảm ơn các bạn nhiều

Bạn mình thử bấm vào mũi tên xem nhé!