sửa lỗi công thức tìm kiếm theo yêu cầu

[mandala]

Sửa lỗi công thức tìm kiếm
Tôi đã tìm kiếm trên diễn đàm nhưng vẫn không hiểu. Xin mọi người giúp đỡ!
Xin cảm ơn!

 

[Phuocam]

Sub sheet2()
Dim j As Integer
t = 7
For k = 1 To 120
If k Mod 12 = 0 Then
t = t + 1
For tk = 1 To 10
Range("B" & k + 7).Formula = "=b" & t
Next tk
End If
Next k
End Sub

 

[concogia]

Sửa lỗi công thức tìm kiếm
Tôi đã tìm kiếm trên diễn đàm nhưng vẫn không hiểu. Xin mọi người giúp đỡ!
Xin cảm ơn!

Thử code này:

Public Sub ToTe()
    Dim Vung, I, j
    Set Vung = Range([B8], [B8].End(xlDown))
    For I = 1 To Vung.Rows.Count
        j = I * 12
        Vung(I).Offset(j - I).Formula = "=" & Vung(I).Address
    Next I
End Sub

Thân

 

[mandala]

Thử code này:

Public Sub ToTe()
    Dim Vung, I, j
    Set Vung = Range([B8], [B8].End(xlDown))
    For I = 1 To Vung.Rows.Count
        j = I * 12
        Vung(I).Offset(j - I).Formula = "=" & Vung(I).Address
    Next I
End Sub

Thân

Cảm ơn bạn nhiều!
Chúc bạn một ngày vui vẻ!.

Bài đã được tự động gộp: 19/10/18

Sub sheet2()
Dim j As Integer
t = 7
For k = 1 To 120
If k Mod 12 = 0 Then
t = t + 1
For tk = 1 To 10
Range("B" & k + 7).Formula = "=b" & t
Next tk
End If
Next k
End Sub

Xin cảm ơn!
Chúc bạn một ngày vui vẻ!