Как сделать автоподмену в столбце?

[Rubinus]

К примеру есть текст большое слово которое приходится вводить много раз что очень напряжно, как слову присвоить числовое значение к примеру:

Есть слово "Текст1" присваиваем ему цифру "1"
Есть "Текст2" присваивем 2
Есть "Текст3" присваивем 3
и т.д.

Все эти слова приходится постоянно в разном порядке вводить в диапазоне А20:А300, так вот как можно сделать чтобы вводить не слова, а присвоенные цифры и чтобы эти цифры автоматически заменялить на присвоенное слово, но чтобы это происходило в диапазоне А20:А300?

[Calvin]

попробуй так:

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 300 Or Target.Row < 20 Or Target.Column > 1 Then End
  Select Case Target
   Case 1
     Target="Текст 1"
   Case 2
     Target="Текст 2"
   End Select
End Sub