Вопрос № 117514: Уважаемые Эксперты,
Вопрос по VBA Exel.
Например у меня есть таблица, могу ли в скрипте прописать, что бы на основе этой таблице создавался график?
если точнее мне надо, имея данные о товарах, количестве сделать диаграмма. гра...Вопрос № 117603: Здравствуйте эксперты!
У меня вот какой вопрос: есть БД в Акцессе, люди с ней работают и там копятся данные.
Допустим я изменил/добавил/удалил что-то в этой БД у себя дома. Как мне эту обновленную
БДу поставить тем людям без потери и...
Вопрос № 117.514
Уважаемые Эксперты,
Вопрос по VBA Exel.
Например у меня есть таблица, могу ли в скрипте прописать, что бы на основе этой таблице создавался график?
если точнее мне надо, имея данные о товарах, количестве сделать диаграмма. график.
Если можно, скажите какие функцие используются для создания разных графиков.
Спасибо за внимание
Отправлен: 08.01.2008, 18:07
Вопрос задал: yazzer (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Ualife
Здравствуйте, Соколов Виктор Васильевич!
В офисе есть замечательная вещь - запись макросов (Сервис -> Макрос -> Начать запись).
Вот у вас есть таблица - включаем запись макросов, в меню выбираем "Вставка -> Диаграмма" и настраиваем ету диаграмму. Когда вы закончили с диаграммой, выполните "Сервис -> Макрос -> Остановить запись". Теперь у вас есть код, который можно отредактировать. Желаю удачи!
--------- Нет границ - есть лишь препятствия!
Ответ отправил: Ualife (статус: 5-ый класс)
Ответ отправлен: 08.01.2008, 19:15 Оценка за ответ: 4
Отвечает: Черников Игорь Владимирович
Здравствуйте, yazzer!
Charts.Add 'Создаём график
ActiveChart.ChartType = xlLineMarkers 'Линейного типа, xlColumnClustered - гистограмма, а всего их 73
ActiveChart.SetSourceData Source:=Sheets("Все").Range("D2:D30"), PlotBy:=xlColumns 'значения из ячеек с D2 по D30
ActiveChart.SeriesCollection(1).XValues = "=Все!R2C3:R30C3" 'подписи по оси Х из ячеек с С2 по С30 листа "Все"
ActiveChart.SeriesCollection(1).Name = "=Все!R1C4" 'Имя графика из ячейки D1 листа "Все"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Все" 'Разместить график на листе "Все"
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveChart.HasDataTable = False
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 10.01.2008, 19:27 Оценка за ответ: 5 Комментарий оценки: Полностью соответвутсвует поставленному вопросу. Правда, одно пожелание, чуть больше коментарий к коду и как то их разделить для читабельности
Вопрос № 117.603
Здравствуйте эксперты!
У меня вот какой вопрос: есть БД в Акцессе, люди с ней работают и там копятся данные.
Допустим я изменил/добавил/удалил что-то в этой БД у себя дома. Как мне эту обновленную
БДу поставить тем людям без потери их данных. Может непонятно написал, просто не профи еще,
не владею всеми терминами.
Заранее спасибо.