Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает автом. подхват значений / 10 сообщений из 10, страница 1 из 1
08.08.2007, 17:28
    #34714786
fdv666
fdv666
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
Есть диаграмма - строится с помощью такаго кода:
красным отмечен край диапазона (крайнияя правая ячейка в таблице)- я пытаюсь сделать его динамическим - чтоб макрос сам искал последнее значение!

Думал чтото вроде этого
While Len(sh_dann.Cells(32, 4)) <> 0
q = q + 1
Wend

но оно не работает
скорее всего голова у меня не из того места растет - может поможет кто?


Sub график()
Set sh_dann = ThisWorkbook.Sheets("рабочий")
Set sh_nastr = ThisWorkbook.Sheets("рабочий")

sh_dann.Activate

Set graf_dann = Range(sh_dann.Cells(11, 1), sh_dann.Cells(32, 14))

obl = False
For i = 13 To 95
If sh_dann.Cells(i, 1) = True And sh_dann.Cells(i, 2) = True Then
If obl = False Then

Set graf_dann = Range(sh_dann.Cells(12, 3), sh_dann.Cells(12, 14))
Set graf_dann = Union(graf_dann, Range(sh_dann.Cells(i, 3), sh_dann.Cells(i, 14)))
obl = True
Else
Set graf_dann = Union(graf_dann, Range(sh_dann.Cells(i, 3), sh_dann.Cells(i, 14)))
End If
End If
Next i

If obl = False Then
MsgBox ("Не выбранных филиалов.")
Exit Sub
End If

Set sh_graf = ThisWorkbook.Sheets("Общ. портфель")

sh_graf.Activate
ActiveSheet.ChartObjects (5)

sh_dann.Activate
graf_dann.Select

sh_graf.Activate
ActiveSheet.ChartObjects(5).Chart.SetSourceData Source:=graf_dann, PlotBy:=xlRows
ActiveSheet.ChartObjects(5).Chart.Axes(xlCategory).TickLabels.NumberFormat = "dd/mm/yy"
sh_graf.Activate

Application.Calculate

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2007, 19:32
    #34715209
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
Код: plaintext
1.
2.
' вместо sh_dann.Cells(32, 14) используй выражение
' sh_dann.Cells(32, sh_dann.Columns.Count).End (xlToLeft)
' далее соответственно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 09:26
    #34715755
fdv666
fdv666
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
спасибо - попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 10:32
    #34715988
fdv666
fdv666
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
строка
Set graf_dann = Range(sh_dann.Cells(12, 3), sh_dann.Cells(12, 14))
выбирает диапазон по оси Х - там даты
и если сделать
Set graf_dann = Range(sh_dann.Cells(12, 3), sh_dann.Cells(12, sh_dann.Columns.Count).End (xlToLeft))
вроде выделяется весь диапазон (с добавленными ячейками)- но график не расширяется на добавленные ячейки (хотя они и выделяются и в свойствах диаграммы диапазон расширяется)
что неправильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 10:50
    #34716061
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
Может когда вы объединяете диапазоны, то остальные диапазоны имеет другую длинну. Хотя это всего лишь предположение. Пробовать нужно. Вот если бы вы сделали тестовый файл (с примером своей задачи) и выложили его сюда, да ещё описали в чём проблема, тогда бы можно было сразу ошибку найти. А самому извините некогда моделировать ситуацию!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 10:55
    #34716094
fdv666
fdv666
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
сейчас прикреплю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 10:58
    #34716104
fdv666
fdv666
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
воть
только не бейте ногами - я только учусь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 14:25
    #34717142
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
Вы всё же не захоте описать подробнее проблему - пришлось самому догадываться!
У вас на графике - ось х - ось времени и естественно что промежутка в 1 день не видно на фоне нескольких месяцев, а вы что хотели? Вот если зайти в параметры диаграммы - вкладка оси - и вместо автоматически выбрать КАТЕГОРИИ, то посмотрите, что получится.

З.ы.: А разве кто-то обещал Вас бить ногами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 16:42
    #34717716
fdv666
fdv666
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
Спасибо!!!!!
работает!!!!
а насчет ног - я не программист и вынужденно этим занимаюсь - а многие просто отправляют читать хелп (хотя я с него и начинаю), хелп это конечно хорошо там много всего интересного, я могу там пол дня просидеть, но!
без практического примера иногда фиг догадаешься какой оператор использовать...... вот.
Короче спасибо за терпение и помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 17:06
    #34717833
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автом. подхват значений
Дык Эксель он и есть для тех кто не програмист, извиняюсь если кого-то обидел!
Для програмистов в нём конечно тоже много возможнотей - наверное, я ж сам не програмист - не знаю!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает автом. подхват значений / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 480ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163607]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 150ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 241ms
total:  480ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]