Sửa dòng nội dung dòng

[zPeterPan]

Nhờ các thầy các anh chị giúp em đoạn code để chạy tự động theo số ngày ở ô B1. Ví dụ ô B1 là 3 ngày thì 1 dòng đúng và 3 dòng sai hoặc B1 là 10 ngày thì 1 dòng đúng 10 dòng sai ạ. . .
Hình 1 là nội dung cần chạy
Hình 2 là kết quả cuối là 1 dòng Dung 3 dòng sai. Số ngày sai có thể là 1 hoặc 2 hoặc 3 hoặc 4 hoặc 5 hoặc n ngày
Em xin cảm ơn ạ. . .

 

[SA_DQ]

Trước mắt xài con macro này; Nếu có gì thì tính lại đường khác:

Sub Nhap_DungVaSai()
 Dim J As Long, Rws As Long, Num As Integer

 Rws = [E7].CurrentRegion.Rows.Count
 Num = [B1].Value
 For J = 2 To Rws Step (1 + Num)
    With Cells(J, "F")
        .Value = "Dúng"
        .Offset(1).Resize(Num).Value = "Sai"
    End With
 Next J
End Sub

 

[Hoàng Tuấn 868]

Nhờ các thầy các anh chị giúp em đoạn code để chạy tự động theo số ngày ở ô B1. Ví dụ ô B1 là 3 ngày thì 1 dòng đúng và 3 dòng sai hoặc B1 là 10 ngày thì 1 dòng đúng 10 dòng sai ạ. . .
Hình 1 là nội dung cần chạy
Hình 2 là kết quả cuối là 1 dòng Dung 3 dòng sai. Số ngày sai có thể là 1 hoặc 2 hoặc 3 hoặc 4 hoặc 5 hoặc n ngày
Em xin cảm ơn ạ. . .

Bạn tham khảo thêm.

 

[Nhattanktnn]

Thấy mấy bài dễ dễ là phi zô khà khà:

Option Explicit

Sub DungSai()
Dim SL As Long, Rws As Long, Res(), I As Long
With Sheets("Dung_Sai")
    Rws = .Cells(Rows.Count, "E").End(xlUp).Row - 1
    SL = .Cells(1, "B").Value + 1
    ReDim Res(1 To Rws, 1 To 1)
    For I = 1 To Rws
        If I Mod SL = 1 Then
            Res(I, 1) = "Dung"
        Else
            Res(I, 1) = "Sai"
        End If
    Next
    .Range("F2:F" & Rows.Count).ClearContents
    .Range("F2").Resize(Rws, 1) = Res
End With
End Sub