Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2017, 11:49   #1
egoorka
Новичок
Джуниор
 
Регистрация: 04.12.2017
Сообщений: 1
По умолчанию Необходимо поправить графику при расчетах в таблице

Господа имеется следущее:
Рабочая таблица для расчета линейных раскроев и все вроде бы ничего, но необходимо привязать к данному решению указание позиций, чтобы это отображалось на графике после нажатия кнопки Расчет DP, например L=1020, aaa при этом они соответствовать своим ячейкам. См.картинку
Изображения
Тип файла: jpg Screenshot_9.jpg (36.4 Кб, 75 просмотров)
Вложения
Тип файла: zip Раскрой (наим. проката).zip (192.8 Кб, 9 просмотров)
egoorka вне форума Ответить с цитированием
Старый 10.12.2017, 16:34   #2
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

в процедуре Sub OutGraph() добавь переменную
Код:
Sub OutGraph()
    Dim kk
и замени блок
Код:
            For j = 1 To k
                If v > 1 Then DrawBar IIf(b45grad, 1, 5), outRng.Offset(rws, 0).Left + v0, outRng.Offset(rws, 0).Top + 1, v, 20, CStr(n), iColor
                v0 = v0 + v + dRez * maxLen / maxZgt + 2
            Next j
на
Код:
            For j = 1 To k
                If v > 1 Then DrawBar IIf(b45grad, 1, 5), outRng.Offset(rws, 0).Left + v0, outRng.Offset(rws, 0).Top + 1, v, 20, CStr(n) & ", " & inpRng2.Offset(kk), iColor
                v0 = v0 + v + dRez * maxLen / maxZgt + 2
            Next j
            kk = kk + 1
Изображения
Тип файла: jpg раскрой.jpg (14.3 Кб, 120 просмотров)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходимо поправить графику в таблице egoorka Фриланс 0 04.12.2017 14:51
Необходимо дописать и поправить парсер!!! maks1985 Фриланс 4 31.05.2010 14:40
Необходимо сравнить запись в DBEdit с полем в таблице БД Surzhik БД в Delphi 5 29.04.2010 11:30
Получить Х при клике по графику C# Скарам Помощь студентам 0 04.03.2010 19:52
как при помоши делфи сделать графику nata1111 Помощь студентам 12 24.03.2007 01:45