Lập công thức Điền tiết PPCT lại (4 người xem)

[maiemveanhnhe]

Nhờ các bác hộ dùm. em có gữi File đính kèm. Trân trọng cảm ơn.

 

[maiemveanhnhe]

Khi dạy thiếu tiết tự động cập nhật tiết PPCT và tên bài dạy lại. Ý em là vậy đó các anh. Mong các anh, chị giúp dùm em. cảm ơn nhiều.

 

[buithinhvan77]

Chắc anh này dạy Nhạc, Họa thường xuyên bỏ trường lớp đi làm ngoài, giờ thiếu tiết mới tìm cách bù chứ gì?
Thôi dạy bù vào T4,T5 các ngày trong tuần cho kịp đi, đằng nào chả phải dạy, kẻo làm được lui lại thì 1 năm học định có thêm 38,39 hay 40 tuần ah?

 

[canthoq]

Nhờ anh chị giúp dùm em với.

 

[concogia]

Nhờ anh chị giúp dùm em với.

Bài này sử dụng cde thì Ok thôi nhưng bạn cho mình hỏi tí: Khi nhập ở cột I thì dữ liệu ở G & H chạy xuống dưới, trong bài là G6:H6 sẽ thay thế chỗ G11:H11, vậy G11:H11 có phải chạy xuống tiếp không??? hay ta xử "thằng" G11:H11 như thế nào??? Hình như khi vì một lý do nào đó mà bỏ tiết dạy thì giáo viên đó phải tự xử thôi chứ sao lại thay bảng PPCT nhỉ ( không biết đúng hông nữa)
Làm theo yêu cầu của bạn thôi nhé
Right Click vào Sheet1 ==> View Code ==> chép cái này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [i6:i100]) Is Nothing Then
        With Target.Offset(, -2).Resize(, 2)
            .Copy Target.Offset(5, -2)
            .Value = ""
        End With
    End If
End Sub

Nhập dữ liệu ở cột I , xem kết quả
Thân

 

[le phuong van]

Thêm 1 cách để: Lùi 1 tiết

Như thế này đã đúng như ý của bạn chưa?

 

[maiemveanhnhe]

Bài này sử dụng cde thì Ok thôi nhưng bạn cho mình hỏi tí: Khi nhập ở cột I thì dữ liệu ở G & H chạy xuống dưới, trong bài là G6:H6 sẽ thay thế chỗ G11:H11, vậy G11:H11 có phải chạy xuống tiếp không??? hay ta xử "thằng" G11:H11 như thế nào??? Hình như khi vì một lý do nào đó mà bỏ tiết dạy thì giáo viên đó phải tự xử thôi chứ sao lại thay bảng PPCT nhỉ ( không biết đúng hông nữa)
Làm theo yêu cầu của bạn thôi nhé
Right Click vào Sheet1 ==> View Code ==> chép cái này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [i6:i100]) Is Nothing Then
With Target.Offset(, -2).Resize(, 2)
[COLOR=red].Copy Target.Offset(5, -2)
[/COLOR].Value = ""
End With
End If
End Sub

Nhập dữ liệu ở cột I , xem kết quả
Thân

CODE: của anh không chưa đúng. Khi nhập dự liệu vào ở cột I thì có mất dữ liệu ở G6 nhưng số tiết và tên bài dạy chưa thay đổi. và khi bỏ dữ liệu ở I trở lại bình thường thì dữ liệu mất luôn. Nhờ anh viết lại dùm em với. Khi sữ dụng được nhiều dòng và nhiều cột trong bảng excell này( chứ không phải trong phạm vi ví dụ).