Tạo 1 macro điền số 1 (4 người xem)

[bluecat]

Mình gởi file lên, các bạn xem giúp mình. Cảm ơn nhiều!

 

[tedaynui]

Chào bạn
Bạn xem thử đoạn code sau có giải quyết được yêu cầu của bạn không nhé:

Sub Tedaynui()
Dim i As Integer, j As Integer
For i = 1 To 5
    For j = 2 To 20
        If Cells(j, i) = 1 And Cells(j, i + 5) = "" Then
            Cells(j, i + 5) = 1
            With Cells(j, i + 5)
                .Font.ColorIndex = 3
                .Font.Bold = True
            End With
        End If
    Next j
Next i
For i = 6 To 10
    For j = 2 To 20
        If Cells(j, i) = 1 And Cells(j, i - 5) = "" Then
            Cells(j, i - 5) = 1
            With Cells(j, i - 5)
                .Font.ColorIndex = 3
                .Font.Bold = True
            End With
        End If
    Next j
Next i
End Sub

TDN

 

[SoiBien]

nếu cả 2 đều blank thì điền cái gì?

 

[bluecat]

Nếu cả hai đều blank thì để trống.

 

[tedaynui]

Nếu cả hai đều blank thì để trống.

Vậy bạn có thể sử dụng đoạn code ở bài #2

TDN