Views

Histats

Vitrine

VBA Tips - Especialidades Médicas



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" Then
        Let ReturnESP = "PSIQUIATRA"
    ElseIf nESP = "NEU" Then
        Let ReturnESP = "NEUROLOGISTA"
    ElseIf nESP = "CRD" Then
        Let ReturnESP = "CARDIOLOGISTA"
    ElseIf nESP = "CLG" Then
        Let ReturnESP = "CLINICO GERAL"
    ElseIf nESP = "END" Then
        Let ReturnESP = "ENDOCRINOLOGISTA"
    ElseIf nESP = "GER" Then
        Let ReturnESP = "GERIATRA"
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    End If
End Function

Anatomia Patológica
Anestesiologia
Angiologia e Cirurgia Vascular
Cardiologia
Cardiologia Pediátrica
Cirurgia Cardio-Torácica
Cirurgia Geral
Cirurgia Maxilo-facial
Cirurgia Pediátrica
Cirurgia Plástica e Reconstrutiva e Estética
Dermato-venereologia
Doenças Infecciosas
Endocrinologia-Nutrição
Estomatologia
Farmacologia Clínica
Gastrenterologia
Genética Médica
Ginecologia-Obstetrícia
Hematologia Clínica
Imuno-alergologia
Imuno-hemoterapia
Medicina Desportiva
Medicina do trabalho
Medicina Física e de Reabilitação
Medicina Geral e Familiar
Medicina Interna
Medicina Legal
Medicina Nuclear
Medicina Tropical
Nefrologia
Neuro-Cirurgia
Neurologia
Neuro-Radiologia
Oftalmologia
Oncologia Médica
Ortopedia
Otorrinolaringologia
Patologia Clínica
Pediatria
Pneumologia
Psiquiatria
Psiquiatria da Infância e da Adolescência
Radiodiagnóstico
Radioterapia
Reumatologia
Saúde Pública
Urologia


Tags: VBA, function, funções, especialidade, especialidades, tips, 


Inline image 1

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...