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

Вход

Регистрация

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

 

= Мир MS Excel/Протянуть формулы при вставки множества данных и удаление - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Протянуть формулы при вставки множества данных и удаление (Макросы/Sub)
Протянуть формулы при вставки множества данных и удаление
Elvira66 Дата: Вторник, 23.05.2017, 15:58 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Помоги изменить макрос, сейчас если вставляешь несколько дат, то формула не протягивается, и если даты убрать не удаляется.
Пример и описание в файле..
К сообщению приложен файл: 6989285.xlsm (17.9 Kb)
 
Ответить
СообщениеДобрый день!
Помоги изменить макрос, сейчас если вставляешь несколько дат, то формула не протягивается, и если даты убрать не удаляется.
Пример и описание в файле..

Автор - Elvira66
Дата добавления - 23.05.2017 в 15:58
sboy Дата: Вторник, 23.05.2017, 16:23 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Поправил
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 1 Then Exit Sub
        For Each cl In Target.Cells
        If cl.Value = "" Then
            cl.Offset(0, 1) = ""
        Else
            cl.Offset(0, 1).FormulaR1C1 = "=WEEKNUM(RC[-1])"
        End If
        Next cl
End Sub
[/vba]
К сообщению приложен файл: 9164855.xlsm (18.1 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Поправил
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 1 Then Exit Sub
        For Each cl In Target.Cells
        If cl.Value = "" Then
            cl.Offset(0, 1) = ""
        Else
            cl.Offset(0, 1).FormulaR1C1 = "=WEEKNUM(RC[-1])"
        End If
        Next cl
End Sub
[/vba]

Автор - sboy
Дата добавления - 23.05.2017 в 16:23
sboy Дата: Вторник, 23.05.2017, 16:34 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Попробовал через массив, а не циклом по ячейкам, тоже работает.
Хотя формулу ввожу без [vba]
Код
.FormulaR1C1
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
v = Target.Value
For x = 1 To UBound(v)
If Not v(x, 1) = Empty Then v(x, 1) = "=WEEKNUM(RC[-1])"
Next x
Target.Offset(0, 1).Value = v
End Sub
[/vba]
К сообщению приложен файл: 6024762.xlsm (18.4 Kb)


Яндекс: 410016850021169

Сообщение отредактировал sboy - Вторник, 23.05.2017, 16:35
 
Ответить
СообщениеПопробовал через массив, а не циклом по ячейкам, тоже работает.
Хотя формулу ввожу без [vba]
Код
.FormulaR1C1
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
v = Target.Value
For x = 1 To UBound(v)
If Not v(x, 1) = Empty Then v(x, 1) = "=WEEKNUM(RC[-1])"
Next x
Target.Offset(0, 1).Value = v
End Sub
[/vba]

Автор - sboy
Дата добавления - 23.05.2017 в 16:34
Elvira66 Дата: Вторник, 23.05.2017, 16:40 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо! specool
 
Ответить
СообщениеСпасибо! specool

Автор - Elvira66
Дата добавления - 23.05.2017 в 16:40
Elvira66 Дата: Вторник, 23.05.2017, 18:50 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Мне потребовалось, переместить дату из столбца А (1 столбец) в столбец N (14 столбец), и формулу перенести в P (16 столбец) не понимаю, как изменить макрос? Подскажите пожалуйста, перепробовала уже все варианты
 
Ответить
СообщениеМне потребовалось, переместить дату из столбца А (1 столбец) в столбец N (14 столбец), и формулу перенести в P (16 столбец) не понимаю, как изменить макрос? Подскажите пожалуйста, перепробовала уже все варианты

Автор - Elvira66
Дата добавления - 23.05.2017 в 18:50
buchlotnik Дата: Вторник, 23.05.2017, 18:57 | Сообщение № 6
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
перепробовала уже все варианты
а можно в файле хотя бы на один посмотреть?
 
Ответить
Сообщение
Цитата
перепробовала уже все варианты
а можно в файле хотя бы на один посмотреть?

Автор - buchlotnik
Дата добавления - 23.05.2017 в 18:57
Elvira66 Дата: Среда, 24.05.2017, 04:16 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да, вот один из них, приложен...
К сообщению приложен файл: 6024762-5.xlsm (17.1 Kb)
 
Ответить
СообщениеДа, вот один из них, приложен...

Автор - Elvira66
Дата добавления - 24.05.2017 в 04:16
buchlotnik Дата: Среда, 24.05.2017, 07:35 | Сообщение № 8
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
немножко не туда 14 пытались воткнуть [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 14 Then Exit Sub
    v = Target.Value
        For x = 1 To UBound(v)
        If Not v(x, 1) = Empty Then v(x, 1) = "=WEEKNUM(RC[-2])"
        Next x
    Target.Offset(0, 2).Value = v
End Sub
[/vba]
К сообщению приложен файл: 2144647.xlsm (16.6 Kb)
 
Ответить
Сообщениенемножко не туда 14 пытались воткнуть [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 14 Then Exit Sub
    v = Target.Value
        For x = 1 To UBound(v)
        If Not v(x, 1) = Empty Then v(x, 1) = "=WEEKNUM(RC[-2])"
        Next x
    Target.Offset(0, 2).Value = v
End Sub
[/vba]

Автор - buchlotnik
Дата добавления - 24.05.2017 в 07:35
Elvira66 Дата: Среда, 24.05.2017, 17:06 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо! :)
 
Ответить
СообщениеСпасибо! :)

Автор - Elvira66
Дата добавления - 24.05.2017 в 17:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Протянуть формулы при вставки множества данных и удаление (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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