Olá!
Estou criando uma planilha para importar para um otimizador de corte. O problema é que esse otimizador requer que cada campo tenha uma quantidade específica de caracteres.
Já consegui configurar os campos que são preenchidos com números para usarem espaços em branco nos espaços para caracteres vazios formatando as células para usarem o formato “???”, porém o mesmo não funciona em células que recebem texto.
É possível configurar tais células de forma parecida, preenchendo com espaços os campos faltantes?
Ola @FMolon , segue uma sugestão, por intermédio do ChatGPT,
ligar ao Evento de Planilhas, conteúdo alterado.
Sub CompletarComEspacos(oEvento As Object)
Dim oDoc As Object
Dim oCelula As Object
Dim Conteudo As String
' Objeto da célula que sofreu alteração
oCelula = oEvento
' Verifica se a célula não está vazia
If Not IsNull(oCelula.getString()) Then
Conteudo = oCelula.getString()
' Só aplica se for texto
If Conteudo <> "" Then
' Verifica se o comprimento é menor que 6
If Len(Conteudo) < 6 Then '<=============================
' Preenche com espaços até 6 caracteres
Conteudo = Conteudo & String(6 - Len(Conteudo), " ")
oCelula.setString(Conteudo)
End If
End If
End If
End Sub