Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Выполнить действие при нажатии на ячейку  (Прочитано 11115 раз)
0 Пользователей и 1 Гость смотрят эту тему.
andi_ua
Участник

ua
Offline Offline

« : 22-04-2008 13:17 » 

здраствуйте.есть таблица типа

             0 | 1 | 2 | 3 | и.т.д.
пример1     30 | 2 | 4 | 1 | ...
пример2     30 | 1 | 3 | 2 | ...
пример3     30 | 4 | 2 | 1 | ...

при нажатии на пример1 должно рисовать график  "примера1 от 0|1|2|3 и.т.д."
тоже самое при нажатие на другие "пример2,3"

 
« Последнее редактирование: 11-08-2008 07:10 от Sla » Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 22-04-2008 13:31 » 

здравствуйте,
без нажатия графики строятся?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
andi_ua
Участник

ua
Offline Offline

« Ответ #2 : 22-04-2008 13:50 » 

да
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 22-04-2008 14:14 » 

тады смотреть в сторону
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
andi_ua
Участник

ua
Offline Offline

« Ответ #4 : 22-04-2008 14:33 » 

куда ето добавить надо? обяснишь?
Записан
andi_ua
Участник

ua
Offline Offline

« Ответ #5 : 22-04-2008 14:51 » 

просто рисует график по "пример2" нужно чтоб ето рисовало по любому примеру при нажатие на него.

Range("A3:G3").Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Лист3").Range("A3:G3"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист3"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "пример2"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #6 : 22-04-2008 15:03 » 

куда ето добавить надо? обяснишь?
как куда? в модуль, а в самой процедуре анализировать какая ячейка кликнута
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines