Hỏi về cách thêm dòng trong VBA

[heyhey1994]

Cho em hỏi viết code thế nào để em nhập vào ô A1 là 11.5 thì từ ô B1:B5 là 2 còn ô B6 là 1.5. Sau đó nó tô màu nền cho ô B1:B6.

 

[thinhvd]

Cho em hỏi viết code thế nào để em nhập vào ô A1 là 11.5 thì từ ô B1:B5 là 2 còn ô B6 là 1.5. Sau đó nó tô màu nền cho ô B1:B6.

Đoạn VBA trong Excel cho bạn!

Sub Dividevaluecolor()
    Dim S&, i&
    S = Range("A1").Value
    If Int(S / 2) - 1 > 0 Then
        For i = 1 To Int(S / 2) - 1
            Cells(i, 2).Value = 2
        Next i
        Cells(Int(S / 2), 2).Value = Range("A1").Value - (Int(S / 2) - 1) * 2
    Else
        Range("B1").Value = Range("A1").Value
    End If
End Sub

 

[thinhvd]

Cho em hỏi viết code thế nào để em nhập vào ô A1 là 11.5 thì từ ô B1:B5 là 2 còn ô B6 là 1.5. Sau đó nó tô màu nền cho ô B1:B6.

Thêm đoạn tô màu nền

Sub Dividevaluecolor()
    Dim S&, i&
    S = Range("A1").Value
    If Int(S / 2) - 1 > 0 Then
        For i = 1 To Int(S / 2) - 1
            Cells(i, 2).Value = 2
            Cells(i, 2).Interior.Color = vbBlue
        Next i
        Cells(Int(S / 2), 2).Value = Range("A1").Value - (Int(S / 2) - 1) * 2
    Else
        Range("B1").Value = Range("A1").Value
    End If
End Sub

 

[heyhey1994]

Dạ em cảm ơn anh. Nhưng có 1 vấn đề là như e nhập 21 thì nó ra 11 dòng, khi nhập lại 11 thì nó thay đổi 6 dòng đầu thôi chứ mấy cái sau nó ko xóa. Có cách nào không ạ?