Usando o QuickText na caixa de texto dentro do Excel

Question

Estou tentando inserir uma data de Texto Rápido (a data sempre mostra a data atual ou a data em que o documento é impresso) dentro de uma Caixa de Texto no Excel 2010 e não estou encontrando nenhuma opção de Texto Rápido no Excel.

Eu sei que eu poderia fazer isso neste arquivo específico, alterando essa caixa de texto específica em texto dentro de algumas células. Funcionaria dessa forma usando as várias funções de data nas fórmulas do Excel.

No entanto, gostaria de saber se é possível e, em caso afirmativo, como usar o texto rápido dentro de uma caixa de texto no Excel.

    

Answer 1

Use o gravador de macros para inserir uma caixa de texto e digite qualquer coisa que esteja dentro dela. Pare o gravador. Abra o editor VB (alt-F11 vai fazer isso). Corte a macro gravada do módulo e cole-a no módulo de objeto de pasta. Nesse módulo, haverá algumas caixas suspensas. Use o que diz "Geral" e mude para "Planilha". Em seguida, use o menu suspenso à direita para escolher "sheet_activate" ou "before_print" ou ambos. Eu estou no linux agora, então não posso dar uma olhada rápida, mas você pode ter que usar o módulo "Workbook" para obter o evento "before_print". Quando você escolhe essas coisas, um esboço de código é inserido. Você usará a macro gravada como um modelo para o código que você colocar nos stubs. Familiarize-se com as funções Now (), Date () e Format (). Você também terá que descobrir que pode substituir o texto em uma caixa de texto existente ou destruí-lo e recriá-lo toda vez. Desculpe, isso é mais uma dica do que um how-to. Deve ser fácil de fazer. Se o google e um pouco de persistência não produzir o resultado desejado, poste um comentário aqui. Eu posso te mostrar o código inteiro para fazer isso. Viajar em 7 de setembro, portanto, não responderá naquele dia. Boa sorte.