Sobrescrito!

[poiaman]

Esse é um desafio....

Estou montando um formulário para adiçao de dados de microbiologia, e grande parte dos resultados são em potências: 3x10² ufc/g

Dai preciso de uma idéia de como facilitar esse preenchimento num formulário...

A primeira idéia poderia ser assim:

textbox1 (para colocar o primeiro número) 10 (label1 - fixo) textbox2 (para colocar a potência)

daí o resultado seria expresso numa única célula textbox1 "10" textbox2 (sobrescrito)

o textbox 2 poderia ser uma combobox de 1 a 10 esse não é o problema, o grande X da questão é se teria uma formula no vba de transformar algum texto em sobrescrito!

alguem tem ideia do que pode ser feito??

[webmaster]

Poiaman,

Você vai ter que encontrar os códigos de caracteres que representam os sobrescritos daqueles que você deseja. Infelizmente, nem todos estão disponíveis. O código abaixo mostra alguns que consegui encontrar:

Código: Selecionar todos

Public Sub Teste()
    Dim text As String
    
    text = text & Chr(186) & Chr(13)
    text = text & Chr(185) & Chr(13)
    text = text & Chr(178) & Chr(13)
    text = text & Chr(179) & Chr(13)
    
    MsgBox text
End Sub

O ideal seria um controle do tipo RichTextBox, mas infelizmente, isso faria o aplicativo ter dependências externas. As implicações disso já são velhas conhecidas nossas certo?

Abraços

[poiaman]

Eh isso mesmo Tomás, eu ja tinha procurado aqueles códigos de alt+..., mas só encontrei 0 1 2 e 3.... achei que poderia ter algum código que tornasse qualquer caractere em sobrescrito, assim como se faz com negrito e etc....

Acho que terei que utilizar algo paralelo como 10-4 representando a potência...

valeu assim mesmo!

att