Добрай вечер. Подскажите пожалуйста как запустить первый цикл. Спасибо.
[vba]
Код
Sub ll() Dim i As Long, k As Long
Set fr = Worksheets("Форма") For k = 13 To fr.Range("I500") Step 67 For i = 13 To fr.Range("I13").End(xlDown).Row Next i If fr.Range("I" & i) = "" Then: fr.Range("H" & i + 1) = "Сумма" Next k
End Sub
[/vba]
Добрай вечер. Подскажите пожалуйста как запустить первый цикл. Спасибо.
[vba]
Код
Sub ll() Dim i As Long, k As Long
Set fr = Worksheets("Форма") For k = 13 To fr.Range("I500") Step 67 For i = 13 To fr.Range("I13").End(xlDown).Row Next i If fr.Range("I" & i) = "" Then: fr.Range("H" & i + 1) = "Сумма" Next k
Как в армии: копать от меня и до обеда То же от 13 до диапазона. Больше чем помочь? Пример выкладывайте с пояснениями: чего надо. P.S. И уже пора бы знать, где находится кнопка оформления кода.
Как в армии: копать от меня и до обеда То же от 13 до диапазона. Больше чем помочь? Пример выкладывайте с пояснениями: чего надо. P.S. И уже пора бы знать, где находится кнопка оформления кода.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Среда, 11.12.2013, 18:45
Спасибо за ответ! Пытаюсь освоть циклы)) В каждом диапазоне отмеченым черной линией есть данные. В столбце "Н" надо надо проставить слово сумма чтобы она встала ниже данных в каждом диапазоне. В примере показал как должно быть. Спасибо.
Спасибо за ответ! Пытаюсь освоть циклы)) В каждом диапазоне отмеченым черной линией есть данные. В столбце "Н" надо надо проставить слово сумма чтобы она встала ниже данных в каждом диапазоне. В примере показал как должно быть. Спасибо.Kinder
Public Sub www() Dim a As Range For Each a In Intersect(ActiveSheet.UsedRange.Offset(10), _ ActiveSheet.[g:g]).SpecialCells(2).Areas a.Cells(a.Count)(3, 2).Value = "Сумма:" Next End Sub
[/vba]
[vba]
Код
Public Sub www() Dim a As Range For Each a In Intersect(ActiveSheet.UsedRange.Offset(10), _ ActiveSheet.[g:g]).SpecialCells(2).Areas a.Cells(a.Count)(3, 2).Value = "Сумма:" Next End Sub
Огромное спасибо! Не могли бы вы закоментировать код? И за рамкой диапазонов тоже проставляется сумма. Как раз гда надпись какая это страница. Спасибо!
Огромное спасибо! Не могли бы вы закоментировать код? И за рамкой диапазонов тоже проставляется сумма. Как раз гда надпись какая это страница. Спасибо!Kinder
Public Sub www() Dim a As Range 'перебираем все занятые участки столбца Д For Each a In Intersect(ActiveSheet.UsedRange.Offset(10), _ ActiveSheet.Columns(4)).SpecialCells(2, 3).Areas a(a.Count)(3, 5).Value = "Сумма:" 'в конце участка со смещением ставим сумму Next End Sub
[/vba] Прокомментировал, как мог. Если какое-то слово непонятно, в справке все это есть. Из меня поганый комментатор
Тогда так: [vba]
Код
Public Sub www() Dim a As Range 'перебираем все занятые участки столбца Д For Each a In Intersect(ActiveSheet.UsedRange.Offset(10), _ ActiveSheet.Columns(4)).SpecialCells(2, 3).Areas a(a.Count)(3, 5).Value = "Сумма:" 'в конце участка со смещением ставим сумму Next End Sub
[/vba] Прокомментировал, как мог. Если какое-то слово непонятно, в справке все это есть. Из меня поганый комментатор KuklP
KuklP, . Спасибо! Все работает. Не могли бы Вы вывести сумму каждого диапазона рядом с со словом "Сумма". Так как не смог разобраться в вашем коде. З.Ы: Обращаюсь к KuklP, так как он делал макрос, если кто кроме него поможет, так же - огромное спасибо!!!
KuklP, . Спасибо! Все работает. Не могли бы Вы вывести сумму каждого диапазона рядом с со словом "Сумма". Так как не смог разобраться в вашем коде. З.Ы: Обращаюсь к KuklP, так как он делал макрос, если кто кроме него поможет, так же - огромное спасибо!!!Kinder
"И все таки она вертится!"
Сообщение отредактировал Kinder - Среда, 11.12.2013, 20:35
Public Sub www() Dim a As Range For Each a In Intersect(ActiveSheet.UsedRange.Offset(10), _ ActiveSheet.Columns(4)).SpecialCells(2, 1).Areas a(a.Count)(3, 5).Value = "Сумма:" a(a.Count)(3, 6).Value = Application.Sum(a.Offset(, 5)) Next End Sub
[/vba]
P.S. Андрюх, лень было выпендриваться
[vba]
Код
Public Sub www() Dim a As Range For Each a In Intersect(ActiveSheet.UsedRange.Offset(10), _ ActiveSheet.Columns(4)).SpecialCells(2, 1).Areas a(a.Count)(3, 5).Value = "Сумма:" a(a.Count)(3, 6).Value = Application.Sum(a.Offset(, 5)) Next End Sub
Kinder, Закомментировать код - превратить его в комментарии, т.е. сделать не работоспособным. Прокомментировать - написать пояснения. Разница небольшая, но существенная.
Kinder, Закомментировать код - превратить его в комментарии, т.е. сделать не работоспособным. Прокомментировать - написать пояснения. Разница небольшая, но существенная. RAN