bị rối trong vòng lặp

[phamvandunghp84]

tự nhiên bị não cá vàng nên rối quá, có bác nào giúp em sửa chút:


Sub doilaitenchodungvitri()
Dim i As Integer
Dim j As Integer
Dim vtrtop As Long
Dim ten As String
Dim bien As Long

For i = 1 To 741
j = 0
With Worksheets("Sheet3")
bien = .ChartObjects("Chart " & i).top
If bien <> Sheets("Sheet4").Cells(i + 1, 14) Then

For j = 1 To 741
If bien = Sheets("Sheet4").Cells(j + 1, 14) Then
ten = Sheets("Sheet4").Cells(j + 1, 16) ' ten Chart
ActiveSheet.ChartObjects(i).Name = ten
MsgBox ("dang doi ten chart co vi tri o man hinh " & bien & vbNewLine & " ten chart cu la Chart " & i & vbNewLine & " Ten chart moi la " & ten)
Else
Next j
End If

Else
Next i

End With
End Sub

 

[phuoclocvl]

Thấy code rối thiệt kaka

 

[phamvandunghp84]

Thấy code rối thiệt kaka

bác giúp em với

 

[CHAOQUAY]

@phamvandunghp84
Đánh dấu hộ bạn mấy chỗ thấy rối

Sub doilaitenchodungvitri()
Dim i As Integer
Dim j As Integer
Dim vtrtop As Long
Dim ten As String
Dim bien As Long

For i = 1 To 741
    j = 0
    With Worksheets("Sheet3")
        bien = .ChartObjects("Chart " & i).Top
        If bien <> Sheets("Sheet4").Cells(i + 1, 14) Then
            For j = 1 To 741
                If bien = Sheets("Sheet4").Cells(j + 1, 14) Then
                    ten = Sheets("Sheet4").Cells(j + 1, 16) ' ten Chart
                    ActiveSheet.ChartObjects(i).Name = ten
                    MsgBox ("dang doi ten chart co vi tri o man hinh " & bien & vbNewLine & " ten chart cu la Chart " & i & vbNewLine & " Ten chart moi la " & ten)
                Else '<---???
            Next j
        End If
        
    Else '<---???

Next i '<---???

    End With '<---???


End Sub

 

[phamvandunghp84]

@phamvandunghp84
Đánh dấu hộ bạn mấy chỗ thấy rối

Sub doilaitenchodungvitri()
Dim i As Integer
Dim j As Integer
Dim vtrtop As Long
Dim ten As String
Dim bien As Long

For i = 1 To 741
    j = 0
    With Worksheets("Sheet3")
        bien = .ChartObjects("Chart " & i).Top
        If bien <> Sheets("Sheet4").Cells(i + 1, 14) Then
            For j = 1 To 741
                If bien = Sheets("Sheet4").Cells(j + 1, 14) Then
                    ten = Sheets("Sheet4").Cells(j + 1, 16) ' ten Chart
                    ActiveSheet.ChartObjects(i).Name = ten
                    MsgBox ("dang doi ten chart co vi tri o man hinh " & bien & vbNewLine & " ten chart cu la Chart " & i & vbNewLine & " Ten chart moi la " & ten)
                Else '<---???
            Next j
        End If
       
    Else '<---???

Next i '<---???

    End With '<---???


End Sub

cảm ơn bạn mình sẽ thử làm lại

 

[phamvandunghp84]

@phamvandunghp84
Đánh dấu hộ bạn mấy chỗ thấy rối

Sub doilaitenchodungvitri()
Dim i As Integer
Dim j As Integer
Dim vtrtop As Long
Dim ten As String
Dim bien As Long

For i = 1 To 741
    j = 0
    With Worksheets("Sheet3")
        bien = .ChartObjects("Chart " & i).Top
        If bien <> Sheets("Sheet4").Cells(i + 1, 14) Then
            For j = 1 To 741
                If bien = Sheets("Sheet4").Cells(j + 1, 14) Then
                    ten = Sheets("Sheet4").Cells(j + 1, 16) ' ten Chart
                    ActiveSheet.ChartObjects(i).Name = ten
                    MsgBox ("dang doi ten chart co vi tri o man hinh " & bien & vbNewLine & " ten chart cu la Chart " & i & vbNewLine & " Ten chart moi la " & ten)
                Else '<---???
            Next j
        End If
       
    Else '<---???

Next i '<---???

    End With '<---???


End Sub

mình thử k được rồi bạn sửa giúp mình xem phải viết vòng lặp lồng nhau này như nào mới đúng ?

 

[CHAOQUAY]

mình thử k được rồi bạn sửa giúp mình xem phải viết vòng lặp lồng nhau này như nào mới đúng ?

Có lẽ đại khái thế này thôi. Cụ thể nữa thì phải có file kèm theo mới biết được bạn

Sub doilaitenchodungvitri()
Dim i As Integer
Dim j As Integer
Dim vtrtop As Long
Dim ten As String
Dim bien As Long

For i = 1 To 741
    j = 0
    With Worksheets("Sheet3")
        bien = .ChartObjects("Chart " & i).Top
        If bien <> Sheets("Sheet4").Cells(i + 1, 14) Then
            For j = 1 To 741
                If bien = Sheets("Sheet4").Cells(j + 1, 14) Then
                    ten = Sheets("Sheet4").Cells(j + 1, 16) ' ten Chart
                    ActiveSheet.ChartObjects(i).Name = ten
                    MsgBox ("dang doi ten chart co vi tri o man hinh " & bien & vbNewLine & " ten chart cu la Chart " & i & vbNewLine & " Ten chart moi la " & ten)
                'Else '<---???
                End If
            Next j
        End If
        
    'Else '<---???

    'Next i '<---???
    End With

'End With '<---???
Next i


End Sub