Netrox92

Boa tarde!

Estou fazendo uma rotina, onde eu tenho 2 arrays. Eu faço um loop onde ele compara a mesma posição nas duas arrays.

For i = 0 To UBound(Array1)
      If Array1(i) <> Array2(i) Then
      Else
      End If
Next i

Eu quero que o texto da array1 seja reescrito, porém as posições que não forem iguais, eu quero deixar em Negrito.

Exemplo: 

Citação

                              Array1(0)   |    Array1(1)   |    Array1(2)  |    Array1(3)  |   Array1(4)    |   Array1(5)

•ARRAY1              Comparar   |        as          |    palavras    |        de        |       um          |      array

 

                               Array2(0)   |    Array2(1)   |    Array2(2)  |    Array2(3)  |   Array2(4)    |   Array2(5)

•ARRAY2              Comparar   |        as          |    palavrras    |        de        |       um          |      array

 

RESULTADO:    Comparar as palavras de um array

                          Comparar as palavrras de um array

 

Nesse caso a posição 2, do array1 e do array2, são diferentes. Portanto elas seriam alteradas para negrito.

Segue o que eu tinha pensado:

For i = 0 To UBound(Array1)
      If Array1(i) <> Array2(i) Then
                  palavra_negrito = Array1(i)
                  palavra_negrito.Font.Bold = True
                  texto1_negrito = texto1_negrito & palavra_negrito & Chr(10)
      Else
                  texto1_negrito = texto1_negrito & Array1(i) & Chr(10)
      End If
Next i

A ideia era ir concatenando as palavras que estão no array, e se fossem diferentes ele concatenava em negrito.

Alguém sabe como fazer isso?

Eu li em alguns lugares sobre InStr. Porém nos textos que eu vou comparar existem muitas palavras repetidas. Não sei se InStr resolveria.

Ola,

Tenho uma planilha no excel, onde uso ListView.

Para criar a planilha eu tive que adicionar la no "controles adicionais"

controles adicionais -> Microsoft ListView Control 6.0 (SP6)

Até ai não tenho problema nenhum, porém quando eu tento abrir essa planilha em outros PCs eu tenho q fazer esse procedimento de novo. E acabo perdendo os ListView que já estavam feitos.

Segue minha pergunta:

Tem algum cód no vba para, ao iniciar a planilha ele já verifique e faça isso sozinho?

Ou seja um cód que quando eu abrir a planilha eu não precise ir la na caixa de ferramentas e controle adicionais e fazer todo esse procedimento?

Agradeço desde já a atenção

Obrigado

Boa tarde Basole,

Obrigado pela resposta, pelo jeito ta dando certo sim, desculpe pela demora na resposta.

Obrigado abraços

Ola

Gostaria de saber se tem algum jeito de verificar até onde está escrito um texto em uma célula, e mesclar com as celulas até onde está escrito.

Exemplo:

No texto: "Texto aleatório, para teste." está escrito na celula 'A1', porém o texto vai até o começo da celula 'F1".

Gostaria de um código vba para verificar até onde o texto está escrito, e mesclar até a celula correta. No exemplo mesclaria da celula 'A1:F1'

Agradeço desde já

Abraços

Ola estou com um problema,

Estou criando uma planilha vinculada com access, porém nao sei porque em um computador ele funciona sem dar erro, e em outro nao funciona e da erro.

Erro em tempo de execução '91':

A variável do objeto ou a variável do bloco 'With' não foi definida

Eu li em algum lugar que pode ser o sistema operacional.

No PC que funciona é 32 bits

e no que não funciona é 64 bits

Se for esse o erro, como eu faço para funcionar no de 64?

Estou postando a planilha e o banco de dados.

Excel:         (OBS: A Planilha não está em branco! Vá na guia Desenvolvedor

http://www.4shared.com/get/aSt2jBJLba/Excel_Access.html

Banco Dados(Access):

http://www.4shared.com/get/uVcY4wsHba/bd_dados.html

Agradeço desde já

Abraços

Ola 

Obrigado pela resposta. Funcionou sim. valeu

Abraços

Obrigado pela resposta!

Vou testar aqui, e ja falo se funcionou

abraços

Ola,
 
Estou fazendo uma planilha e preciso organizar uma tabela. porém essa tabela precisa ser organizada levando em conta
4 colunas.
Eu consigo fazer o codigo para organizar levando em conta até 3 colunas, porém quando eu coloco mais da erro
 

Segue o codigo que eu utilizo: (Organiza levando em conta apenas 3 colunas)