Etiqueta: LOF

Abs

Função Abs em VBA

Descrição:

A função Abs em VBA é utilizada para obter o valor absoluto de um número. Em outras palavras, ela retorna o valor não-negativo de um número, desconsiderando seu sinal. Essa função é útil em situações onde você precisa da magnitude do valor, sem se preocupar com sua direção (positiva ou negativa).
Exemplos:


Sub ExemploAbs1()
    Dim numero As Double
    numero = -10
    MsgBox "O valor absoluto de " & numero & " é " & Abs(numero)
End Sub

Neste exemplo, a função Abs é utilizada para obter o valor absoluto de -10.


Sub ExemploAbs2()
    Dim numero As Double
    numero = 7
    MsgBox "O valor absoluto de " & numero & " é " & Abs(numero)
End Sub

Neste exemplo, a função Abs é utilizada para obter o valor absoluto de 7, que é o próprio número, pois é positivo.

LTrim

Função LTrim em VBA

Descrição:

A função LTrim em VBA é utilizada para remover espaços em branco à esquerda de uma string. Isso é útil quando você precisa garantir que os dados estejam limpos e bem formatados, especialmente ao trabalhar com entradas de usuários ou dados importados de fontes externas.

Exemplos:


Sub ExemploLTrim1()
    Dim texto As String
    texto = "    Olá Mundo"
    MsgBox "Texto Original: " & texto & vbCrLf & "Texto após LTrim: " & LTrim(texto)
End Sub

Neste exemplo, a função LTrim é utilizada para remover os espaços em branco à esquerda da string.


Sub ExemploLTrim2()
    Dim texto As String
    texto = "   "
    MsgBox "Texto Original: " & texto & vbCrLf & "Texto após LTrim: " & LTrim(texto)
End Sub

Neste exemplo, a função LTrim é utilizada com uma string que consiste apenas de espaços em branco, resultando em uma string vazia.

 

RTrim

Função RTrim em VBA

Descrição:

A função RTrim em VBA é utilizada para remover espaços em branco à direita de uma string. Isso é útil quando você precisa garantir que os dados estejam limpos e bem formatados, especialmente ao trabalhar com entradas de usuários ou dados importados de fontes externas.

Exemplos:


Sub ExemploRTrim1()
    Dim texto As String
    texto = "Olá Mundo    "
    MsgBox "Texto Original: " & texto & vbCrLf & "Texto após RTrim: " & RTrim(texto)
End Sub

Neste exemplo, a função RTrim é utilizada para remover os espaços em branco à direita da string.


Sub ExemploRTrim2()
    Dim texto As String
    texto = "   "
    MsgBox "Texto Original: " & texto & vbCrLf & "Texto após RTrim: " & RTrim(texto)
End Sub

Neste exemplo, a função RTrim é utilizada com uma string que consiste apenas de espaços em branco, resultando em uma string vazia.

 

Trim

Função Trim em VBA

Descrição:

A função Trim em VBA é utilizada para remover espaços em branco tanto à esquerda quanto à direita de uma string. Isso é útil quando você precisa garantir que os dados estejam limpos e bem formatados, especialmente ao trabalhar com entradas de usuários ou dados importados de fontes externas.
Exemplos:


Sub ExemploTrim1()
    Dim texto As String
    texto = "    Olá Mundo    "
    MsgBox "Texto Original: " & texto & vbCrLf & "Texto após Trim: " & Trim(texto)
End Sub

Neste exemplo, a função Trim é utilizada para remover os espaços em branco à esquerda e à direita da string.


Sub ExemploTrim2()
    Dim texto As String
    texto = "   "
    MsgBox "Texto Original: " & texto & vbCrLf & "Texto após Trim: " & Trim(texto)
End Sub

Neste exemplo, a função Trim é utilizada com uma string que consiste apenas de espaços em branco, resultando em uma string vazia.

 

LOF

Função LOF em VBA

Descrição:

A função LOF em VBA é utilizada para obter o comprimento (em bytes) de um arquivo aberto em modo binário. Essa função é especialmente útil quando é necessário trabalhar com manipulação de arquivos, permitindo saber o tamanho do arquivo em bytes.
Exemplos:


Sub Exemplo1()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.txt" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo é: " & comprimento & " bytes"
End Sub

Neste exemplo, a função LOF é utilizada para obter o comprimento do arquivo “Arquivo.txt” em bytes.


Sub Exemplo2()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.bin" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo binário é: " & comprimento & " bytes"
End Sub

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo binário em bytes.


Sub Exemplo3()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.docx" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo Word é: " & comprimento & " bytes"
End Sub

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo Word em bytes.


Sub Exemplo4()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.xlsx" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo Excel é: " & comprimento & " bytes"
End Sub

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo Excel em bytes.


Sub Exemplo5()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.png" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo PNG é: " & comprimento & " bytes"
End Sub

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo de imagem PNG em bytes.