none
Visual Basic RRS feed

  • Вопрос

  • Hello! I try to run the code  below, but when I try there is apper an error 1004. Please, explaine me - where mistake

    Sub NormTable()
    Dim s As Integer
    s = 1
    Static rd As Long
    rd = 2
    Dim i As Long
    i = 1
    Dim r As Long
    r = 7
    Dim Destination As Object
    Set Destination = Worksheets("NEW")
    Dim Shet As Object
        For Each Shet In ActiveWorkbook.Sheets
        If Left(Worksheets(s).Name, 1) = "_" Then
        With Worksheets(s)
                Do Until .Cells(r, 3) = "GRAND TOTAL"
                    If .Cells(r, 3) <> "" And .Cells(r, 3).Font.Bold <> True Then
                    For i = 1 To 12

                    '   1.Object
                        Destination.Cells(rd, 1).Value = .Cells(4, 3).Value
                    '   2. Clouses
                        If .Cells(r - 1, 3).Font.Bold = True Then
                        Destination.Cells(rd, 2).Value = .Cells(r - 1, 3).Value
                        Else
                        Destination.Cells(rd, 2).Value = Destination.Cells(rd - 1, 2).Value
                        End If
                    '   3. Monthes
                        Destination.Cells(rd, 3).Value = .Cells(5, i + 3).Value
                    '   4. Statements
                        Destination.Cells(rd, 4).Value = .Cells(r, 3).Value
                    '   5. Sum
                        Destination.Cells(rd, 5).Value = .Cells(r, i + 3).Value
                        rd = rd + 1

                    Next i
                    End If
                    r = r + 1
                    Loop

        End With
        End If
    s = s + 1
    Next
    End Sub

                
    23 ноября 2014 г. 21:00

Все ответы

  • Вот где ваши ошибки:

    1. Это рускоязычный форум, вы использовали не тот язык.

    2. Тема очень важна. Используйте темы которые описывают проблему вместо невнятных "Ошибка" или "Visual basic". Ваша теме не несет смысловой нагрузки.

    3. Детально описывайте проблему как то конекст программы, строка кода где наблюдается проблема, когда и при каких обстоятельствах она возникает. Ваше описание не содержит никакой полезной информации.

    Исправьте данные ошибки в посте и может быть найдется ответ.


    This posting is provided "AS IS" with no warranties, and confers no rights.

    24 ноября 2014 г. 0:13
    Модератор