Baixe o Calendário Compacto para 2014 em Excel
Aquelas funções que facilitam a nossa vida podem ser uma mão na roda, especialmente quando estamos com pressa.
O que segue é uma função antiga que utilizei para retornar os nomes das Especialidades a partir das suas respectivas siglas.
A função cobre apenas algumas, com as respectivas siglas, mas como poderá observar abaixo, poderá implementar outras especialidades com o tempo:
Function ReturnESP (nESP As String) As String' Author: André Bernardes - bernardess@gmail.com' Date: 14/02/2011 - 15:45'Description: Retorna o nome das Especialidades Médicas a partir das siglas.If nESP = "PSQ" ThenLet ReturnESP = "PSIQUIATRA"ElseIf nESP = "NEU" ThenLet ReturnESP = "NEUROLOGISTA"ElseIf nESP = "CRD" ThenLet ReturnESP = "CARDIOLOGISTA"ElseIf nESP = "CLG" ThenLet ReturnESP = "CLINICO GERAL"ElseIf nESP = "END" ThenLet ReturnESP = "ENDOCRINOLOGISTA"ElseIf nESP = "GER" ThenLet ReturnESP = "GERIATRA"ElseIf nESP = "" ThenElseIf nESP = "" ThenElseIf nESP = "" ThenElseIf nESP = "" ThenElseIf nESP = "" ThenElseIf nESP = "" ThenElseIf nESP = "" ThenElseIf nESP = "" ThenEnd IfEnd Function
Anatomia PatológicaAnestesiologiaAngiologia e Cirurgia VascularCardiologiaCardiologia PediátricaCirurgia Cardio-TorácicaCirurgia GeralCirurgia Maxilo-facialCirurgia PediátricaCirurgia Plástica e Reconstrutiva e EstéticaDermato-venereologiaDoenças InfecciosasEndocrinologia-NutriçãoEstomatologiaFarmacologia ClínicaGastrenterologiaGenética MédicaGinecologia-ObstetríciaHematologia ClínicaImuno-alergologiaImuno-hemoterapiaMedicina DesportivaMedicina do trabalhoMedicina Física e de ReabilitaçãoMedicina Geral e FamiliarMedicina InternaMedicina LegalMedicina NuclearMedicina TropicalNefrologiaNeuro-CirurgiaNeurologiaNeuro-RadiologiaOftalmologiaOncologia MédicaOrtopediaOtorrinolaringologiaPatologia ClínicaPediatriaPneumologiaPsiquiatriaPsiquiatria da Infância e da AdolescênciaRadiodiagnósticoRadioterapiaReumatologiaSaúde PúblicaUrologia
Tags: VBA, function, funções, especialidade, especialidades, tips,