Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заполоненные пустых ячеек в столбце исходя из даты продажи. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполоненные пустых ячеек в столбце исходя из даты продажи. (Макросы/Sub)
Заполоненные пустых ячеек в столбце исходя из даты продажи.
cekist Дата: Суббота, 14.04.2018, 21:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток! В ходе работы возникла острая необходимость в вашей помощи. Суть вопроса, как можно сделать так чтобы, если в столбце продажа была заполнена ячейка, то в доном столбце все ячейки за этот день были заполнены символом !. Как вариант 10 ячеек вверх десять вниз от заполненной ячейки . Очень благодарю за помощь!!!
К сообщению приложен файл: _2.xls(83.5 Kb) · .xlsx.xls(80.5 Kb)


Сообщение отредактировал cekist - Суббота, 14.04.2018, 21:48
 
Ответить
СообщениеДоброго времени суток! В ходе работы возникла острая необходимость в вашей помощи. Суть вопроса, как можно сделать так чтобы, если в столбце продажа была заполнена ячейка, то в доном столбце все ячейки за этот день были заполнены символом !. Как вариант 10 ячеек вверх десять вниз от заполненной ячейки . Очень благодарю за помощь!!!

Автор - cekist
Дата добавления - 14.04.2018 в 21:40
nilem Дата: Воскресенье, 15.04.2018, 07:49 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1447
Репутация: 511 ±
Замечаний: 0% ±

Excel 2013
cekist, привет
вариант 10 ячеек вверх десять вниз от заполненной ячейки
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 16 Then Exit Sub
If Target.Value <> "продажа" Then Exit Sub

Dim x, i&
With Target
    If .Row > 11 Then i = 10 Else i = .Row - 2
End With
With Target.Offset(-i).Resize(i + 11)
    x = .Value
    For i = 1 To UBound(x)
        If IsEmpty(x(i, 1)) Then x(i, 1) = "!"
    Next i
    .Value = x
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеcekist, привет
вариант 10 ячеек вверх десять вниз от заполненной ячейки
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 16 Then Exit Sub
If Target.Value <> "продажа" Then Exit Sub

Dim x, i&
With Target
    If .Row > 11 Then i = 10 Else i = .Row - 2
End With
With Target.Offset(-i).Resize(i + 11)
    x = .Value
    For i = 1 To UBound(x)
        If IsEmpty(x(i, 1)) Then x(i, 1) = "!"
    Next i
    .Value = x
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 15.04.2018 в 07:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполоненные пустых ячеек в столбце исходя из даты продажи. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!