1

Допустим, у меня есть текст «Мальчик» в ячейке A1. Теперь, если мне нужно добавить букву 's' в конце, я должен либо щелкнуть панель формул и добавить 's' в конце, либо нажать F2, чтобы перейти в режим редактирования, а затем добавить его. Есть ли способ или надстройка, которая позволяет мне просто добавить значение в ячейку, в которой уже есть какой-то текст?

1 ответ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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .