Tạo nút lệnh điền dữ liệu theo yêu cầu (1 người xem)

[xuandongts2011]

Tình hình là mình có một file Excel gửi trong tệp đính kèm , bây giờ mình nhờ anh em trong diễn đàn tạo cho mình một nút bấm mà thực hiện được theo các yêu cầu trong file đính kèm ( mình đã nêu yêu cầu trong đó), mong anh em quan tâm giúp đỡ mình , mình xin chân thành cảm ơn.

 

[giaiphap]

Lại là phổ cập nửa, làm kiểu này là ra thống kê xong mới thực hiện làm sổ phổ cập nè. Tại sao TN THPT lại cách TH THCS 3 năm vậy, lỡ 4 năm thì sao (bộ không có học sinh rớt à). Nói đùa chút thôi, tôi từng làm công việc này trong 4 năm liền nên cũng rành chút đỉnh, theo tôi thì cài CT cũng được mắc gì phải dùng macro chỉ làm tí công việc đó.

 

[xuandongts2011]

Đây là giải pháp cho đa số còn thiểu số phải điều tra chính xác chứ bạn

 

[giaiphap]

Ô CG12 hơi bị kỳ bạn xem lại dùm trước khi tôi viết code. Tôi nghĩ ô CF12 bằng 2009 thì hợp lý hơn theo cách diễn giải của bạn. Nếu đúng như tôi nói thì bạn sử dụng code này thử xem.

Sub GPE()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim MyRange As Range
    For Each MyRange In Sheet1.Range("CI6:CI" & Sheet1.Range("B65000").End(xlUp).Row)
        If MyRange.Value <> "" Then
            MyRange.Offset(, -2).Value = MyRange.Value - 3
            MyRange.Offset(, -4).Value = MyRange.Value - 7
            MyRange.Offset(, -5).Value = MyRange.Value - 12
        ElseIf MyRange.Offset(, -1).Value <> "" Then
            MyRange.Offset(, -3).Value = MyRange.Offset(, -1).Value - 3
            MyRange.Offset(, -4).Value = MyRange.Offset(, -1).Value - 7
            MyRange.Offset(, -5).Value = MyRange.Offset(, -1).Value - 12
        End If
        If MyRange.Offset(, -2).Value <> "" Then
            MyRange.Offset(, -4).Value = MyRange.Offset(, -2).Value - 4
            MyRange.Offset(, -5).Value = MyRange.Offset(, -2).Value - 9
        ElseIf MyRange.Offset(, -3).Value <> "" Then
            MyRange.Offset(, -4).Value = MyRange.Offset(, -3).Value - 4
            MyRange.Offset(, -5).Value = MyRange.Offset(, -3).Value - 9
        End If
        If MyRange.Offset(, -4).Value <> "" And MyRange.Offset(, -5).Value = "" Then
            MyRange.Offset(, -5).Value = MyRange.Offset(, -4).Value - 5
        End If
    Next MyRange
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub