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

Вход

Регистрация

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

 

= Мир MS Excel/Дописать текст в ячейку к имеющемуся, по условию с другой яч - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Дописать текст в ячейку к имеющемуся, по условию с другой яч (Формулы/Formulas)
Дописать текст в ячейку к имеющемуся, по условию с другой яч
vitek73 Дата: Четверг, 30.05.2019, 10:05 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
День добрый, хелпнити советом как
Дописать текст в ячейку к имеющемуся, по условию с другой ячейки.
доп поле для ввода
если в ячейки (0) ничего не происходит
если в той же ячейки (1) в столбце J4 добавляется текст
прям в ту же ячейку.
К сообщению приложен файл: _300519.xlsx(10.6 Kb)


vitёk73
 
Ответить
СообщениеДень добрый, хелпнити советом как
Дописать текст в ячейку к имеющемуся, по условию с другой ячейки.
доп поле для ввода
если в ячейки (0) ничего не происходит
если в той же ячейки (1) в столбце J4 добавляется текст
прям в ту же ячейку.

Автор - vitek73
Дата добавления - 30.05.2019 в 10:05
китин Дата: Четверг, 30.05.2019, 10:15 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5828
Репутация: 907 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Добрый день. то есть надо просто добавить содержимому ячейки -PKG ? а содержимое ячейки будет меняться? или там текст всегда один и тот же?


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеДобрый день. то есть надо просто добавить содержимому ячейки -PKG ? а содержимое ячейки будет меняться? или там текст всегда один и тот же?

Автор - китин
Дата добавления - 30.05.2019 в 10:15
_Boroda_ Дата: Четверг, 30.05.2019, 10:17 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15576
Репутация: 6077 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Может, достаточно будет просто видимости добавления с помощью Условного форматирования? Файл _1

Или вот такой макрос Файл _3
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    Set d0_ = Intersect(Target, Columns(1))
    If Not d0_ Is Nothing Then
        t_ = "-PKG"
        Application.ScreenUpdating = 0
        Application.Calculation = 3
        Application.EnableEvents = 0
        For Each d_ In d0_
            With d_.Offset(, 9)
                If Right(.Value, Len(t_)) = t_ Then
                    If .Offset(, -9).Value = 0 Then
                        .Value = Left(.Value, Len(.Value) - Len(t_))
                    End If
                ElseIf .Value <> Empty Then
                    If .Offset(, -9).Value = 1 Then
                        .Value = .Value & t_
                    End If
                End If
            End With
        Next d_
        Application.EnableEvents = 1
        Application.Calculation = 1
        Application.ScreenUpdating = 1
    End If
End Sub
[/vba]
К сообщению приложен файл: _300519_1.xlsx(11.1 Kb) · _300519_3.xlsm(18.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожет, достаточно будет просто видимости добавления с помощью Условного форматирования? Файл _1

Или вот такой макрос Файл _3
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    Set d0_ = Intersect(Target, Columns(1))
    If Not d0_ Is Nothing Then
        t_ = "-PKG"
        Application.ScreenUpdating = 0
        Application.Calculation = 3
        Application.EnableEvents = 0
        For Each d_ In d0_
            With d_.Offset(, 9)
                If Right(.Value, Len(t_)) = t_ Then
                    If .Offset(, -9).Value = 0 Then
                        .Value = Left(.Value, Len(.Value) - Len(t_))
                    End If
                ElseIf .Value <> Empty Then
                    If .Offset(, -9).Value = 1 Then
                        .Value = .Value & t_
                    End If
                End If
            End With
        Next d_
        Application.EnableEvents = 1
        Application.Calculation = 1
        Application.ScreenUpdating = 1
    End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 30.05.2019 в 10:17
vitek73 Дата: Четверг, 30.05.2019, 12:38 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Может, достаточно будет просто видимости добавления с помощью Условного форматирования? Файл _1

Или вот такой макрос Файл _3

Спасибо, то что надо, )


vitёk73
 
Ответить
Сообщение
Может, достаточно будет просто видимости добавления с помощью Условного форматирования? Файл _1

Или вот такой макрос Файл _3

Спасибо, то что надо, )

Автор - vitek73
Дата добавления - 30.05.2019 в 12:38
vitek73 Дата: Четверг, 30.05.2019, 12:42 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день. то есть надо просто добавить содержимому ячейки -PKG ? а содержимое ячейки будет меняться? или там текст всегда один и тот же?


текст всегда разный, но добавка по условия одна и таже.


vitёk73
 
Ответить
Сообщение
Добрый день. то есть надо просто добавить содержимому ячейки -PKG ? а содержимое ячейки будет меняться? или там текст всегда один и тот же?


текст всегда разный, но добавка по условия одна и таже.

Автор - vitek73
Дата добавления - 30.05.2019 в 12:42
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Дописать текст в ячейку к имеющемуся, по условию с другой яч (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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