Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
При изменения значения изменять значение другой ячейки, ошибка с target
 
Спасибо! Всё получилось.
При изменения значения изменять значение другой ячейки, ошибка с target
 
Цитата
Hugo написал: При изменении значения<>Worksheet_SelectionChange
Не очень понял по первому предложению.
При изменения значения изменять значение другой ячейки, ошибка с target
 
Есть желание сделать в таблице следующее.
При изменении значения ячейки в столбце 18 с "пусто" на значение даты. Изменять значение ячейки в столбце "H" в этой же строке.

Покурил форумы. И получился некий код. Что-то даже получилось. Но! Почему-то изменения в столбце "H" происходят только в случае если после нажатия Enter, вернуться обратно в только что отредактированную ячейку. Далее моих знаний не хватает ))
Прошу помощи.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("R:R")) Is Nothing Then
            If Target.Column = 18 And Target.Value <> "" Then
                Application.EnableEvents = False   '
                    
                    With Target.Offset(0, -10)   
                        .Value = "Оплачена"   
                    End With
            
                Application.EnableEvents = True   
            End If
        End If

End Sub
Диаграмма Ганта. График планирования работ
 
Ivan.kh, спасибо за ликбез.
Диаграмма Ганта. График планирования работ
 
Вот теперь так. Спасибо огромное.
Посмотрел код. Не понял вот это
Код
p = 53.25 * 13 
Буду дальше ковырять.
Диаграмма Ганта. График планирования работ
 
Вот что хочется в идеале.
Диаграмма Ганта. График планирования работ
 
Дело в том, что помимо УФ нужно вносить суммы по каждому виду работ помесячно.
Диаграмма Ганта. График планирования работ
 
Я пробовал этот вариант. Но он мне не понравился эстетически. К тому же при объединении ячеек по месяцам теряется УФ.
Диаграмма Ганта. График планирования работ
 
Очень похожее!
Но опять же результат не совсем тот.
Мне видится только рисование линий Shapes.AddConnector(msoConnectorStraight,,,,) Но и здесь испытываю некоторую сложность.
Я мыслю так. В заголовке ищем соответствие периода в который попадает начало работ. Затем нужно вычислить координаты начала линии. Для этого нужно вычислить координаты ячейки в пикселях. Пока не могу сообразить как это можно реализовать.
В идеале хотелось бы показать, что если начало работ приходится например на 10е число месяца, то соответственно и линию рисовать с отступом от левой границы ячейки.
Буду признателен за помощь.
Изменено: AndreiBas - 01.12.2014 12:12:10
Диаграмма Ганта. График планирования работ
 
Сергей, спасибо.
Но это не совсем то. Неверно сформулировал задачу.
Цитата
На втором листе книги экспериментировал с разбивкой месяца на составляющие дни. И всё было бы хорошо если бы не одно НО! При объединении диапазона (месяц), заливка исчезает.
Подразумевалось дальнейшее редактирование диапазонов с заливкой. Т.е. на каждый месяц должна вноситься сумма в соответствии с объемами работ на данном этапе.
Диаграмма Ганта. График планирования работ
 
Доброго дня.
Прошу помощи коллективного разума.

Хочется необычного. Сделать заливку в соответствии со сроками начала и окончания работ (H3 и I3) по месяцам.
Пытался прикрутить условное форматирование из примера http://www.planetaexcel.ru/techniques/4/74/ но столкнулся с тем, что начало и окончание работа находятся в середине месяца,а сделать частичную заливку ячейки естественно невозможно.

На втором листе книги экспериментировал с разбивкой месяца на составляющие дни. И всё было бы хорошо если бы не одно НО! При объединении диапазона (месяц), заливка исчезает.

Пока на ум приходит только прикрутить msoConnectorStraight.
Но уж очень не хочется связываться с VBA.
Надеюсь на Вашу помощь.
Спасибо.
Изменено: AndreiBas - 28.11.2014 16:39:32
Изменить цвет выходных дней в оси диаграммы
 
Доброго дня.  
Прошу помощи. Есть задача. В оси диаграммы выходные дни выделить отдельным цветом.  
Собственных познаний не хватает.  
Спасибо за помощь.
Поиск данных. Условие - ">0" в соседнем столбце.
 
Михаил, спасибо.  
С замечанием согласен. Прошу понять и простить. Не нашел подходящей формулировки.
Поиск данных. Условие - ">0" в соседнем столбце.
 
Подозреваю, что это делается через ИНДЕКС/ПОИСКПОЗ, но как указать, что искомое значение это первое, которое больше ноля.
Поиск данных. Условие - ">0" в соседнем столбце.
 
Имеем две колонки.  
1я - номера месяцев  
2я - суммы  
 
Задача. Найти во второй колонке первое значение >0 и вывести соответствующий номер месяца из 1й колонки.  
 
Спасибо.
Значение последней не пустой ячейки диапазона
 
{quote}{login=nilem}{date=12.09.2011 05:32}{thema=}{post}Массивная попытка :)  
=ИНДЕКС(A1:A18;НАИБОЛЬШИЙ(ЕСЛИ(A1:A18>0;СТРОКА(A1:A18));1))  
формула массива{/post}{/quote}  
Огромное спасибо. Я крутился вокруг да около. НАИБОЛЬШИЙ!!! Вот в чем было дело :)  
 
А вот тут совсем не понятно  
{quote}Лучше/проще так:  
=ПРОСМОТР(9E+307;A1:A18){/quote}
Значение последней не пустой ячейки диапазона
 
Помогите решить задачку.  
В итоговую ячейку из диапазона необходимо вставить последнее не пустое значение.    
Спасибо.
Сумма строк диапазона (через строку)
 
vikttur,  
четные и нечетные строки - это глобально для страницы. А хотелось бы оперировать только чет/нечет, но в пределах диапазона суммирования.
Сумма строк диапазона (через строку)
 
{quote}{login=}{date=25.08.2011 11:56}{thema=}{post}Не оригинально, но может так сойдет.{/post}{/quote}  
Спасибо.  
Как вариант приму к сведению, но хотелось бы оперировать только колонкой, по    
которой производится суммирование.
Сумма строк диапазона (через строку)
 
Доброго дня.  
Коллеги, подскажите, как решить задачу.    
Есть некий диапазон строк, нужно суммировать, в первом случае нечетные строки диапазона, во втором случае четные диапазона.  
Пример прилагается.
Страницы: 1
Наверх