Excel 2010 - Em texto de célula, anexando

Question

Digamos que eu tenha um texto chamado "Boy" na célula A1. Agora, se eu tiver que acrescentar a letra 's' no final, eu tenho que clicar na barra de fórmulas e adicionar 's' no final ou pressionar F2 para ir para o modo de edição e depois adicioná-la. Existe alguma maneira ou qualquer suplemento que me permita simplesmente acrescentar valor a uma célula que já tenha algum texto?

    

Answer 1

Você pode usar a fórmula CONCATENATE , ou algo parecido com =A1 & "s" .

Você já explicou os outros modos manuais. Outra maneira seria usar uma macro em combinação com uma entrada de usuário ou um formulário de entrada de usuário.

Poderia funcionar assim:

• selecione o intervalo / célula, onde o preenchimento deve acontecer
• executar macros por meio de atalho
A caixa de diálogo
• aparece em aks para que o texto seja anexado
• texto de tipo
• executar anexo

Outra forma pode estar usando a funcionalidade de pesquisa / substituição.

Editar

Embora eu ache isso uma maneira estranha de digitar dados, e não reclamaria contra MS neste ponto - aqui está uma solução um pouco para este comportamento refinado:

'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