Dois cliques para inserir a palavra "PAGO"
Esta dica pode ser muito útil para a inserção da um texto numa determinada célula de uma planilha do Excel, a partir de dois cliques com o botão esquerdo do mouse.
Para ilustrar o funcionamento do código em VBA abra o Excel e digite a planilha conforme mostra a imagem abaixo (não digite o texto PAGO constante da coluna D:
- Renomeie a planilha (Plan1) para um nome qualquer;
- Em seguida clique na aba DESENVOLVEDOR e na opção VISUAL BASIC, ou pressione ALT+F11;
- Dê dois cliques no painel esquerdo na planilha (Plan1);
- No painel direito, na coluna objeto, clique na seta para baixo e selecione Worksheet;
- No painel direito, na coluna Evento, escolha o evento BeforeDoubleClick;
- Será criado um módulo Private Sub. Apague o código excedente após a linha horizontal, deverá ficar somente o código abaixo:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean
INSERIR CÓDIGO
End Sub
- Substitua o texto INSERIR CÓDIGO pelo código abaixo:
If Not Intersect([D3:D7], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "PAGO", "")
Cancel = True
- Salve e feche o editor do Visual Basic.
- Para testar dê dois cliques em qualquer célula da coluna Situação, veja que será inserido automaticamente a palavra PAGO.
- Opcionalmente você pode adaptar este código para inserir qualquer texto, basta substituir a palavra PAGO no código pelo novo texto, simples, não.
Por Valter Neves.
Comentários
Postar um comentário