Arc1104
Дата: Воскресенье, 29.11.2015, 12:58 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Помогите пожалуйста. Проблема в следующем. Как консолидировать данные с листов имена которых указаны в столбце А. Листов может быть много. (Имена листов как в примере 1,2,3,4,...,100) Области консолидации одинаковые на всех листах. В примере сделал вручную. Подскажите как автоматизировать при помощи макроса?
Помогите пожалуйста. Проблема в следующем. Как консолидировать данные с листов имена которых указаны в столбце А. Листов может быть много. (Имена листов как в примере 1,2,3,4,...,100) Области консолидации одинаковые на всех листах. В примере сделал вручную. Подскажите как автоматизировать при помощи макроса? Arc1104
Сообщение отредактировал Arc1104 - Воскресенье, 29.11.2015, 13:04
Ответить
Сообщение Помогите пожалуйста. Проблема в следующем. Как консолидировать данные с листов имена которых указаны в столбце А. Листов может быть много. (Имена листов как в примере 1,2,3,4,...,100) Области консолидации одинаковые на всех листах. В примере сделал вручную. Подскажите как автоматизировать при помощи макроса? Автор - Arc1104 Дата добавления - 29.11.2015 в 12:58
Serge_007
Дата: Воскресенье, 29.11.2015, 13:15 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Karataev
Дата: Воскресенье, 29.11.2015, 13:21 |
Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
[vba]
Код
Sub Кнопка_1() Dim arr(), lr As Long, i As Long lr = Columns("A").Find(What:="*", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Row ReDim arr(1 To lr - 1) For i = 2 To lr arr(i - 1) = "'" & Cells(i, "A").Value & "'!R1C1:R20C2" Next Range("D2").Consolidate Sources:=arr, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False End Sub
[/vba]
[vba]
Код
Sub Кнопка_1() Dim arr(), lr As Long, i As Long lr = Columns("A").Find(What:="*", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Row ReDim arr(1 To lr - 1) For i = 2 To lr arr(i - 1) = "'" & Cells(i, "A").Value & "'!R1C1:R20C2" Next Range("D2").Consolidate Sources:=arr, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False End Sub
[/vba]
Karataev
Ответить
Сообщение
[vba]
Код
Sub Кнопка_1() Dim arr(), lr As Long, i As Long lr = Columns("A").Find(What:="*", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Row ReDim arr(1 To lr - 1) For i = 2 To lr arr(i - 1) = "'" & Cells(i, "A").Value & "'!R1C1:R20C2" Next Range("D2").Consolidate Sources:=arr, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False End Sub
[/vba]
Автор - Karataev Дата добавления - 29.11.2015 в 13:21
Arc1104
Дата: Воскресенье, 29.11.2015, 13:32 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Karataev , Огромное тебе спасибо.
Karataev , Огромное тебе спасибо.Arc1104
Сообщение отредактировал Arc1104 - Воскресенье, 29.11.2015, 13:46
Ответить
Сообщение Karataev , Огромное тебе спасибо.Автор - Arc1104 Дата добавления - 29.11.2015 в 13:32
Arc1104
Дата: Воскресенье, 29.11.2015, 13:52 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Karataev , Ещё один вопрос по макросу. Как исправить в макросе если нужно проссматривать не весь столбец А а только например ячейки A3:A23.
Karataev , Ещё один вопрос по макросу. Как исправить в макросе если нужно проссматривать не весь столбец А а только например ячейки A3:A23.Arc1104
Сообщение отредактировал Arc1104 - Воскресенье, 29.11.2015, 14:00
Ответить
Сообщение Karataev , Ещё один вопрос по макросу. Как исправить в макросе если нужно проссматривать не весь столбец А а только например ячейки A3:A23.Автор - Arc1104 Дата добавления - 29.11.2015 в 13:52
Karataev
Дата: Воскресенье, 29.11.2015, 14:03 |
Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
[vba]
Код
Sub Кнопка_1() 'В константу запишите, сколько макросу просматривать строк в столбце "A" Const lr As Long = 20 Dim arr(), i As Long ReDim arr(1 To 1) For i = 2 To lr If Cells(i, "A").Value <> Empty Then arr(UBound(arr)) = "'" & Cells(i, "A").Value & "'!R1C1:R20C2" ReDim Preserve arr(1 To UBound(arr) + 1) End If Next ReDim Preserve arr(1 To UBound(arr) - 1) Range("D2").Consolidate Sources:=arr, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False End Sub
[/vba]
[vba]
Код
Sub Кнопка_1() 'В константу запишите, сколько макросу просматривать строк в столбце "A" Const lr As Long = 20 Dim arr(), i As Long ReDim arr(1 To 1) For i = 2 To lr If Cells(i, "A").Value <> Empty Then arr(UBound(arr)) = "'" & Cells(i, "A").Value & "'!R1C1:R20C2" ReDim Preserve arr(1 To UBound(arr) + 1) End If Next ReDim Preserve arr(1 To UBound(arr) - 1) Range("D2").Consolidate Sources:=arr, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False End Sub
[/vba]
Karataev
Сообщение отредактировал Karataev - Воскресенье, 29.11.2015, 14:04
Ответить
Сообщение
[vba]
Код
Sub Кнопка_1() 'В константу запишите, сколько макросу просматривать строк в столбце "A" Const lr As Long = 20 Dim arr(), i As Long ReDim arr(1 To 1) For i = 2 To lr If Cells(i, "A").Value <> Empty Then arr(UBound(arr)) = "'" & Cells(i, "A").Value & "'!R1C1:R20C2" ReDim Preserve arr(1 To UBound(arr) + 1) End If Next ReDim Preserve arr(1 To UBound(arr) - 1) Range("D2").Consolidate Sources:=arr, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False End Sub
[/vba]
Автор - Karataev Дата добавления - 29.11.2015 в 14:03
Arc1104
Дата: Воскресенье, 29.11.2015, 15:57 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Karataev, Спасибо. Все работает.
Karataev, Спасибо. Все работает. Arc1104
Ответить
Сообщение Karataev, Спасибо. Все работает. Автор - Arc1104 Дата добавления - 29.11.2015 в 15:57