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

Вход

Регистрация

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

 

= Мир MS Excel/Авто подстановка слов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Авто подстановка слов (Настройки Excel/Setup)
Авто подстановка слов
Vehal Дата: Четверг, 15.09.2016, 16:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Как заставить Exsel подставлять слова? Например кода я написал (не менять) то повторно достаточно нажать на букву (н) как эксель предлагает это слово. Но когда удалишь это слово то эксель перестает предлагать слово. Как заставить запоминать слова постоянно, что бы подставлял нужные слова?
 
Ответить
СообщениеКак заставить Exsel подставлять слова? Например кода я написал (не менять) то повторно достаточно нажать на букву (н) как эксель предлагает это слово. Но когда удалишь это слово то эксель перестает предлагать слово. Как заставить запоминать слова постоянно, что бы подставлял нужные слова?

Автор - Vehal
Дата добавления - 15.09.2016 в 16:03
Nic70y Дата: Четверг, 15.09.2016, 20:10 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3473
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
вариант:
сбацать запоминалку на отдельном листе,
а затем стырить решение от сюда


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениевариант:
сбацать запоминалку на отдельном листе,
а затем стырить решение от сюда

Автор - Nic70y
Дата добавления - 15.09.2016 в 20:10
Vehal Дата: Пятница, 16.09.2016, 11:16 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
сбацать запоминалку на отдельном листе,
как это сделать?

а затем стырить решение от сюда
что с этим делать?


Сообщение отредактировал Vehal - Пятница, 16.09.2016, 11:17
 
Ответить
Сообщение
сбацать запоминалку на отдельном листе,
как это сделать?

а затем стырить решение от сюда
что с этим делать?

Автор - Vehal
Дата добавления - 16.09.2016 в 11:16
Manyasha Дата: Пятница, 16.09.2016, 11:44 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1586
Репутация: 660 ±
Замечаний: 0% ±

Excel 2007, 2010
Vehal, файл-пример пробовали смотреть? Посмотрите.

Еще похожие темы: http://www.excelworld.ru/forum....%D0%BC]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеVehal, файл-пример пробовали смотреть? Посмотрите.

Еще похожие темы: http://www.excelworld.ru/forum....%D0%BC]

Автор - Manyasha
Дата добавления - 16.09.2016 в 11:44
Nic70y Дата: Пятница, 16.09.2016, 22:18 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3473
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
как это сделать?
примерно как-то так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then
        ''
        a = ActiveCell.Row
        b = Sheets(2).[A1048576].End(xlUp).Row
        '
    If a > 1 Then
    c = Range("a" & a - 1).Value
        '
        If b = 1 And Sheets(2).[a1] = "" Then
        Sheets(2).Range("a" & b) = c
        Else
        Sheets(2).Range("a" & b + 1) = c
        End If
        '
        Sheets(2).Range("a1:a" & b + 1).Sort Key1:=Sheets(2).Range("A1")
        Sheets(2).Range("a1:a" & b + 1).RemoveDuplicates Columns:=1, Header:=xlNo
    End If
        ''
End If
End Sub
[/vba]
вводите, стирайте в столбце A листа 1, см. рез. на листе запоминалка
К сообщению приложен файл: 5112043.xlsm(16Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Пятница, 16.09.2016, 22:31
 
Ответить
Сообщение
как это сделать?
примерно как-то так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then
        ''
        a = ActiveCell.Row
        b = Sheets(2).[A1048576].End(xlUp).Row
        '
    If a > 1 Then
    c = Range("a" & a - 1).Value
        '
        If b = 1 And Sheets(2).[a1] = "" Then
        Sheets(2).Range("a" & b) = c
        Else
        Sheets(2).Range("a" & b + 1) = c
        End If
        '
        Sheets(2).Range("a1:a" & b + 1).Sort Key1:=Sheets(2).Range("A1")
        Sheets(2).Range("a1:a" & b + 1).RemoveDuplicates Columns:=1, Header:=xlNo
    End If
        ''
End If
End Sub
[/vba]
вводите, стирайте в столбце A листа 1, см. рез. на листе запоминалка

Автор - Nic70y
Дата добавления - 16.09.2016 в 22:18
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Авто подстановка слов (Настройки Excel/Setup)
Страница 1 из 11
Поиск:

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