Usando uma combinação de funções embutidas no Microsoft Excel e funções que você cria usando VBA pode ajudar a encontrar soluções para os problemas mais complexos. Você pode criar funções em um módulo do VBA no Excel que irá retornar um resultado com base em um parâmetro de entrada . A função que você criou estará disponível para uso em Excel , juntamente com todas as outras funções internas do Excel. Em poucos passos, você pode criar uma função para retornar o dia atual como uma String , com base na data atual do sistema . Instruções
1
Clique A1 e digite " = NOW () " para obter a data atual do sistema . Clique na guia "Desenvolvedor" e clique em " Visual Basic " para iniciar o Editor do VB . . Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo de código
2
Crie uma nova função com um "Data" tipo de dados variável como um parâmetro de entrada :
Função Pública getDayOfWeek ( dateEntered as Date ),
3
Criar uma variável para armazenar o número do dia :
Dim Daynum as Integer
4
Use a função de " dia da semana " para retornar o número do dia usando a variável " dateEntered " :
Daynum = dia da semana ( dateEntered , vbSunday )
5
Use uma declaração "Case" para determinar o dia e retornar o nome do dia como uma String :
Selecione Caso Daynum
Caso 1
getDayOfWeek = "Sunday "
Caso 2 < br >
getDayOfWeek = " Monday"
Caso 3
getDayOfWeek = " terça-feira"
Caso 4
getDayOfWeek = "Quarta "
Caso 5
getDayOfWeek = " quinta-feira"
Caso 6
getDayOfWeek = " Friday"
Caso 7
getDayOfWeek = "Sábado "
End Select
6
Termine a sua função , digitando " End Function " no final. Volte para o Microsoft Excel e digite " = getDayOfWeek (A1 )" em B1 para exibir o dia atual com a data em A1.