Допустим, у меня есть текст «Мальчик» в ячейке A1. Теперь, если мне нужно добавить букву 's' в конце, я должен либо щелкнуть панель формул и добавить 's' в конце, либо нажать F2, чтобы перейти в режим редактирования, а затем добавить его. Есть ли способ или надстройка, которая позволяет мне просто добавить значение в ячейку, в которой уже есть какой-то текст?
1 ответ
2
Вы можете использовать формулу CONCATENATE
или что-то вроде =A1 & "s"
.
Вы уже объяснили другие ручные способы. Другой способ - использовать макрос в сочетании с пользовательской формой ввода или пользователем.
Это может работать так:
- выберите диапазон / ячейку, где должно происходить добавление
- исключительный макрос, например, через шорткей
- всплывает диалоговое окно для добавления текста для добавления
- введите текст
- выполнить добавление
Другим способом может быть использование функции поиска / замены.
редактировать
Хотя я нахожу это странным способом ввода данных и не буду ругаться с MS в этом вопросе - вот несколько решение этого усовершенствованного поведения:
'VBA code for Sheet1
Private var As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If state Then
Application.EnableEvents = False
var = var & Target.Formula
Target.Formula = var
Debug.Print var
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If state Then
var = Target.Formula
Debug.Print var
End If
End Sub
'VBA Code for Module1
Public state As Boolean
Public Sub switchState()
Application.EnableEvents = True
state = Not state
Debug.Print state
End Sub