Как заставить Exsel подставлять слова? Например кода я написал (не менять) то повторно достаточно нажать на букву (н) как эксель предлагает это слово. Но когда удалишь это слово то эксель перестает предлагать слово. Как заставить запоминать слова постоянно, что бы подставлял нужные слова?
Как заставить Exsel подставлять слова? Например кода я написал (не менять) то повторно достаточно нажать на букву (н) как эксель предлагает это слово. Но когда удалишь это слово то эксель перестает предлагать слово. Как заставить запоминать слова постоянно, что бы подставлял нужные слова?Vehal
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, см. рез. на листе запоминалка
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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
