Построение диаграммы макросом
Матраскин
Дата: Понедельник, 17.09.2012, 09:33 |
Сообщение № 1
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация:
81
±
Замечаний:
0% ±
20xx
Всем привет! такая проблема, хочу построить сразу несколько диаграмм на разных листах книги по данным взятым с 1ого листа Code
Set Данные = Worksheets("Лист1").Range(Cells(3 + i, 1), Cells(3 + i, 4))
в макросе есть такая строчка, которая по идее должна брать эти данные, но не берет))
Всем привет! такая проблема, хочу построить сразу несколько диаграмм на разных листах книги по данным взятым с 1ого листа Code
Set Данные = Worksheets("Лист1").Range(Cells(3 + i, 1), Cells(3 + i, 4))
в макросе есть такая строчка, которая по идее должна брать эти данные, но не берет)) Матраскин
К сообщению приложен файл:
Task.xlsm
(19.3 Kb)
в интернете опять кто-то не прав
Сообщение отредактировал Матраскин - Понедельник, 17.09.2012, 09:46
Ответить
Сообщение Всем привет! такая проблема, хочу построить сразу несколько диаграмм на разных листах книги по данным взятым с 1ого листа Code
Set Данные = Worksheets("Лист1").Range(Cells(3 + i, 1), Cells(3 + i, 4))
в макросе есть такая строчка, которая по идее должна брать эти данные, но не берет)) Автор - Матраскин Дата добавления - 17.09.2012 в 09:33
Gustav
Дата: Понедельник, 17.09.2012, 10:04 |
Сообщение № 2
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация:
1161
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
Либо напишите вот так: [vba]Code
Worksheets("Лист1").Activate Set Данные = Worksheets("Лист1").Range(Cells(3 + i, 1 + i), Cells(3 + i, 4 + i))
[/vba] либо вот так: [vba]Code
Set Данные = Worksheets("Лист1").Range(Worksheets("Лист1").Cells(3 + i, 1 + i), Worksheets("Лист1").Cells(3 + i, 4 + i))
[/vba] P.S. Причина ошибки в том, что у Вас фактически выполнялся оператор: Set Данные = Worksheets("Лист1 ").Range(Worksheets("Лист2 ").Cells(3 + i, 1 + i), Worksheets("Лист2 ").Cells(3 + i, 4 + i)) что неверно.
Либо напишите вот так: [vba]Code
Worksheets("Лист1").Activate Set Данные = Worksheets("Лист1").Range(Cells(3 + i, 1 + i), Cells(3 + i, 4 + i))
[/vba] либо вот так: [vba]Code
Set Данные = Worksheets("Лист1").Range(Worksheets("Лист1").Cells(3 + i, 1 + i), Worksheets("Лист1").Cells(3 + i, 4 + i))
[/vba] P.S. Причина ошибки в том, что у Вас фактически выполнялся оператор: Set Данные = Worksheets("Лист1 ").Range(Worksheets("Лист2 ").Cells(3 + i, 1 + i), Worksheets("Лист2 ").Cells(3 + i, 4 + i)) что неверно. Gustav
МОИ: Ник , Tip box: 41001663842605
Сообщение отредактировал Gustav - Понедельник, 17.09.2012, 10:14
Ответить
Сообщение Либо напишите вот так: [vba]Code
Worksheets("Лист1").Activate Set Данные = Worksheets("Лист1").Range(Cells(3 + i, 1 + i), Cells(3 + i, 4 + i))
[/vba] либо вот так: [vba]Code
Set Данные = Worksheets("Лист1").Range(Worksheets("Лист1").Cells(3 + i, 1 + i), Worksheets("Лист1").Cells(3 + i, 4 + i))
[/vba] P.S. Причина ошибки в том, что у Вас фактически выполнялся оператор: Set Данные = Worksheets("Лист1 ").Range(Worksheets("Лист2 ").Cells(3 + i, 1 + i), Worksheets("Лист2 ").Cells(3 + i, 4 + i)) что неверно. Автор - Gustav Дата добавления - 17.09.2012 в 10:04
Serge_007
Дата: Понедельник, 17.09.2012, 10:11 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Может я чего не понял, но почему не так? [vba]Code
Set Данные = Worksheets("Лист1").Range("A1:D5")
[/vba]
Может я чего не понял, но почему не так? [vba]Code
Set Данные = Worksheets("Лист1").Range("A1:D5")
[/vba] Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Может я чего не понял, но почему не так? [vba]Code
Set Данные = Worksheets("Лист1").Range("A1:D5")
[/vba] Автор - Serge_007 Дата добавления - 17.09.2012 в 10:11
Матраскин
Дата: Понедельник, 17.09.2012, 10:14 |
Сообщение № 4
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация:
81
±
Замечаний:
0% ±
20xx
Quote (Serge_007 )
Может я чего не понял, но почему не так?
сам не понял почему так не хочет) Gustav, спасибо, фурычит
Quote (Serge_007 )
Может я чего не понял, но почему не так?
сам не понял почему так не хочет) Gustav, спасибо, фурычитМатраскин
в интернете опять кто-то не прав
Ответить
Сообщение Quote (Serge_007 )
Может я чего не понял, но почему не так?
сам не понял почему так не хочет) Gustav, спасибо, фурычитАвтор - Матраскин Дата добавления - 17.09.2012 в 10:14
Serge_007
Дата: Понедельник, 17.09.2012, 10:27 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Quote (Матраскин )
сам не понял почему так не хочет)
Вы не поняли, так, как раз, работает
Quote (Матраскин )
сам не понял почему так не хочет)
Вы не поняли, так, как раз, работаетSerge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Quote (Матраскин )
сам не понял почему так не хочет)
Вы не поняли, так, как раз, работаетАвтор - Serge_007 Дата добавления - 17.09.2012 в 10:27
RAN
Дата: Понедельник, 17.09.2012, 11:05 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Quote (Serge_007 )
Может я чего не понял, но почему не так? Set Данные = Worksheets("Лист1").Range("A1:D5")
Не знаю, что должно быть в итоге, но [vba]Code
Worksheets("Лист1").Range("A1:D5") <> Worksheets("Лист1").Range(Worksheets("Лист1").Cells(3 + i, 1 + i), Worksheets("Лист1").Cells(3 + i, 4 + i))
[/vba]
Quote (Serge_007 )
Может я чего не понял, но почему не так? Set Данные = Worksheets("Лист1").Range("A1:D5")
Не знаю, что должно быть в итоге, но [vba]Code
Worksheets("Лист1").Range("A1:D5") <> Worksheets("Лист1").Range(Worksheets("Лист1").Cells(3 + i, 1 + i), Worksheets("Лист1").Cells(3 + i, 4 + i))
[/vba]RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Понедельник, 17.09.2012, 11:06
Ответить
Сообщение Quote (Serge_007 )
Может я чего не понял, но почему не так? Set Данные = Worksheets("Лист1").Range("A1:D5")
Не знаю, что должно быть в итоге, но [vba]Code
Worksheets("Лист1").Range("A1:D5") <> Worksheets("Лист1").Range(Worksheets("Лист1").Cells(3 + i, 1 + i), Worksheets("Лист1").Cells(3 + i, 4 + i))
[/vba]Автор - RAN Дата добавления - 17.09.2012 в 11:05