✔ Programação GLOBAL®: VBA Tips - Especialidades Médicas

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

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" 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