Excel planilha vba usf checkbox insere data hora atual

Seg, 29 de Novembro de 2010 18:40 Expedito Marcondes
Imprimir

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém uma macro que trabalha com Checkboxes, quando ativar determinada checkbox, que estão dispostos na folha de planiha na coluna(B), inserirá uma data e hora (Agora()) na coluna(C). São sete objetos checkboxes do vba que interagem com as macros.

Sub Processa_checkbox(sbObjeto)

Dim vLinha As Integer
Dim vRange As String

'Variaveis procura por todos os checkboxes inseridos plan
vLinha = sbObjeto.TopLeftCell.Row
vRange = "C" & CStr(vLinha)

'Insere na coluna(C) a data atual se o checkbox for ativado
If sbObjeto.Value = True Then
ActiveSheet.Range(vRange).Value = Now() 'nao esqueça de inserir a formatação personalizada na folha de planilha (Agora())

'Limpa a coluna C se a checkbox for destivada
Else
ActiveSheet.Range(vRange).Value = Null
End If

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos - SaberExcel




   Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba usf checkbox insere data hora atual determinada coluna (29.73)

Tags:
Última atualização em Ter, 23 de Agosto de 2011 10:02