สั่งให้ พิมค่าใน เซล แบบ วนลูปตามเงื่อนไข ยังไงครับ

[nutpochan]

สั่งให้ พิมค่าใน เซล แบบ วนลูปตามเงื่อนไข ยังไงครับ

Code: Select all

Range("H2").Select
Dim rng As Range
Set rng = ActiveCell
Dim i As Integer
i = 0
Do Until rng.Offset(i, -1).Value = ""
If rng.Offset(i, 0).Value <> "" Then
With rng.Offset(i, -7).Resize(, 8).Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
End With

 End If
    i = i + 1
Loop

ต้องการให้ ในcall c1 พิมค่า ของ b1 ตาม จำนวน ของ a1

เช่น a1= 2 b1=1, ผลลัพ c1= 1,1,


โดยเขียน วนลูป มาเช่นนี้ จนถึง cell c5 โดยการเขียนวนลูป ต้องทำอย่างไรดีครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

    Dim rall As Range
    Dim r As Range
    With Worksheets("Sheet1")
        Set rall = .Range("b1", .Range("b" & .Rows.Count).End(xlUp))
        For Each r In rall
            r.Offset(0, 1).Value = Application.Rept(r.Value, r.Offset(0, -1).Value)
        Next r
    End With
End Sub