Scribd
Carregar
3 visualizações3 páginas

Módulo 6

O documento contém um código VBA com três sub-rotinas: 'FormatarCelula', que aplica formatação visual a células; 'BloquearIntervalo', que bloqueia ou libera a edição de células; e 'AtualizarUnidades', que atualiza unidades de impedância e ângulo com base em parâmetros fornecidos. Cada sub-rotina é descrita com seus parâmetros e funcionalidades específicas. O código é parte de um módulo relacionado a impedâncias.

Enviado por

Luiz Philippe Milioni dos Santos
Direitos autorais
© All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato DOCX, PDF, TXT ou leia on-line no Scribd
3 visualizações3 páginas

Módulo 6

O documento contém um código VBA com três sub-rotinas: 'FormatarCelula', que aplica formatação visual a células; 'BloquearIntervalo', que bloqueia ou libera a edição de células; e 'AtualizarUnidades', que atualiza unidades de impedância e ângulo com base em parâmetros fornecidos. Cada sub-rotina é descrita com seus parâmetros e funcionalidades específicas. O código é parte de um módulo relacionado a impedâncias.

Enviado por

Luiz Philippe Milioni dos Santos
Direitos autorais
© All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato DOCX, PDF, TXT ou leia on-line no Scribd

'===============================

' Parte 1 - Impedâncias


' Local: Módulo 6
'===============================

Option Explicit

'-----------------------------------------------
' Sub: FormatarCelula
' Descrição: Aplica formatação visual à célula
' Parâmetros:
' rng - Intervalo alvo
' corFundo - Cor de fundo (RGB)
' corTexto - Cor do texto (RGB)
' negrito - Verdadeiro para texto em negrito
'-----------------------------------------------
Public Sub FormatarCelula(rng As Range, corFundo As Long, corTexto As
Long, negrito As Boolean)
With rng
.[Link] = corFundo
.[Link] = corTexto
.[Link] = negrito
End With
End Sub

'-----------------------------------------------
' Sub: BloquearIntervalo
' Descrição: Bloqueia ou libera edição de células
' Parâmetros:
' rng - Intervalo alvo
' bloquear - True para bloquear, False para liberar
'-----------------------------------------------
Public Sub BloquearIntervalo(rng As Range, bloquear As Boolean)
[Link] = bloquear
End Sub

'-----------------------------------------------
' Sub: AtualizarUnidades
' Descrição: Atualiza unidades de impedância e ângulo
' com base na coordenada e unidade selecionadas
' Parâmetros:
' coordenada - "Retangular" ou "Polar"
' unidade - "ohm" ou "pu"
' Observações:
' Atualiza células AP13, AZ13, BJ13, AP15, AZ15, BJ15
' conforme lógica definida no documento
'-----------------------------------------------
Public Sub AtualizarUnidades(coordenada As String, unidade As String)
Dim celulasUnidade As Variant
celulasUnidade = Array("AP13", "AZ13", "BJ13", "AP15", "AZ15", "BJ15")

Dim i As Integer
For i = 0 To 2
Range(celulasUnidade(i)).Value = IIf(unidade = "ohm", "O", "pu")
Next i

For i = 3 To 5
If coordenada = "Polar" Then
Range(celulasUnidade(i)).Value = "°"
Else
Range(celulasUnidade(i)).Value = IIf(unidade = "ohm", "O", "pu")
End If
Next i
End Sub

Você também pode gostar