MPR
-
Total de itens
18 -
Registro em
-
Última visita
Posts postados por MPR
-
-
Olá Cinovaldo,
Essa fórmula está incorreta.
Se você observar, o primeiro abre parênteses casa com o fecha parênteses que está imediatamente antes do segundo SE. Portanto do segundo SE em diante nada está valendo, em outras palavras, metade da fórmula não serve para nada.
Sobre o caractere estranho, muito provavelmente, a segunda metade da fórmula realiza uma procura (procv) em um arquivo e localiza uma célula com esse contéudo, que coincidentemente o Excel ignora e não dá erro no resultado da fórmula toda.
Use somente a primeira metade da fórmula (até o fecha parênteses que está antes do segundo SE) e verifique se não dá o mesmo resultado.
Carlos César Tanaka
MPR Informática
-
Olá Catarina,
Inicialmente, esse seu código é de VBA para Excel e não Visual Basic.
Vamos à resposta:
A matriz que você declarou só tem 4 elementos, então a primeira correção está no loop que tem que ir de 0 até 3 (4 elementos) e não de 0 até 4 (5 elementos).
O seu código está funcionando, porém quando você acha a resposta deve sair do loop (exit for). Caso contrário o loop continuará e testará os outros valores, mudando a resposta.
Veja como mudou pouco:
times = Array("cxl", "ixt", "ixt", "txi") teste1 = "c" teste2 = "l" juntar = teste1 & "x" & teste2 For p = 0 To 3 If juntar = times(p) Then Cells(25, 12).Value = "funcionou" Exit for Else Cells(25, 12).Value = "não funcionou" Exit for End If Next pBoa sorte,
Carlos César Tanaka
MPR Informática
-
Na célual B1 a fórmula é:
=NÚMSEMANA(A1;1)
Se a semana começa no domingo o segundo parâmentro é 1, se começa na segunda, o segundo parâmetro é 2.
Carlos César Tanaka
-
Olá,
Tudo estará em português estruturado. Deve ser adaptado dependendo da linguagem de programação.
Pode-se resolver o problema da equação 3x + 2y + 7z = 5 através da "força bruta", com 3 loops:
Para x variando de 0 a 100
Para y variando de 0 a 100
Para z variando de 0 a 100
se (3*x + 2*y + 7*z) = 5 então mostra uma solução da equação: x, y, z
Incrementa z em uma unidade (x = x +1)
Laço da variável z
Incrementa y em uma unidade (y = y +1)
Laço da variável y
Incrementa x em uma unidade (x = x +1)
Laço da variável z
Para o outro problema:
Entre com o valor de N
H = 0
Para I variando de 0 a N
H = H + 1 / I
Incrementa I em uma unidade (I = I +1)
Laço da variável I
Mostra o valor de H
Carlos César Tanaka
Cursos de VBA
-
Entendi que a solução procurada é diferente, ou seja, o conteúdo da célula A1 pode estar em qualquer célula do intervalo C1:C4. Nesse caso a solução será:
=SE(OU(C1=A1; C2=A1; C3=A1; C4=A1); 3; 0)
Carlos César Tanaka
-
Nos exemplos que você listou, os métodos são "inclui", que adiciona uma elemento em uma lista, e "estaCheia", que verifica se a lista está cheia.
O primeiro método executa uma ação (a de incluir um elemento na lista) e não retorna nenhum valor (void).
O segundo método retorna um valor do tipo boolean (falso ou verdadeiro), é que se cham a de função.
Carlos César Tanaka
-
Olá!
Quando utilizo essa ferramenta, para corrigir pequenos defeitos na seleção, eu utilizo o recurso Quick Mask, botão que está na barra de ferramentas do Photoshop, bem embaixo dos quadrados que mostram as cores de Foreground e Background.
Ativado esse botão, selecione a ferramenta Brush Tool, onde, você poderá efetuar a correção do excesso de seleção e até poderá adicionar áreas.
Observe que os quadrados que mostram as cores Foregrond e Background mostram as cores Preto e Branco.
Quando estiver na cor preta e você utilizar a ferramenta pincel em sua imagem, você estará Adicionando a área na seleção.
Se utilizar o botão Switch Foreground, que está logo acima dos botões Foreground e Background, a cor branca assume o Foreground. Dessa forma, você conseguirá realizar ajustes retirando seleções a mais.
Espero ter ajudado.
Att.,
Márcia Cadecaua
-
Salve-a com outro nome e depois salve-a novamente com o nome original.
Carlos César Tanaka
MPR Informática
-
Prezado colega,
Estou considerando que os dados estão a partir da célula A1.
A B
1 Frota Km
2 100 100000
3 100 100250
4 100 100500
5 200 950
6 200 1052
7 200 2562
Selecione da célula B2 até o final, por exemplo, B65536
Vá até ao Menu > Dados > Validação > Configurações > "Critério de validação" > Permitir -> Personalizado e coloque a Função =OU((B2>B1); (A2<>A1)). E coloque um alerta de erro od jeito que você precisar.
Carlos César Tanaka
-
OK Michelle, Se funcionou está bom. A resposta que está aqui foi copiada do outro fórum que eu respondi. :rolleyes:
-
Michelle,
Eu respondi algo bem parecido para outra pessoa em outro fórum. Vou repetir aqui:
Estou considerando que os dados que você postou começam a partir da célula A2 e não há linhas em branco no intervalo de dados. Se for diferente altere os endereços.
A B C
2 10/03/09 DINHEIRO R$ 45,00
3 11/03/09 CHEQUE R$ 69,00
4 15/03/09 CHEQUE R$ 35,00
O código que vai no formulário é o seguinte:
Dim criterios As Range
Dim intsoma As Range
Sheets("Relsan").select
'Intervalo com o tipo de pagamento
Range("B2").Select
Set criterios = Range(ActiveCell, ActiveCell.End(xlDown))
'Intervalo com os valores a serem somados
Range("C2").Select
Set intsoma = Range(ActiveCell, ActiveCell.End(xlDown))
textbox1.text= Application.WorksheetFunction.SumIf(criterios, "DINHEIRO", intsoma)
textbox2.text = Application.WorksheetFunction.SumIf(criterios, "CHEQUE", intsoma)
Carlos César Tanaka
MPR Informática
-
Olá!
Encontrei um post, talvez seja o que você precise:
http://forum.wmonline.com.br/index.php?sho...mp;#entry945320
Espero que ajude!
Márcia Cadecaua
-
O que você quer pode ser feito da seguinte forma:
Crie um módulo em VBA e digite (ou cole) o código abaixo:
Sub DestacaDados()
' A partir da última linha da coluna A, seleciona a última linha que contém dados
' No Excel 2003 ou anteriror, usar o endereço A65536
Range("A1048576").End(xlUp).Select
' Faz o loop até a primeira linha
' Se houver um cabeçalho, troque o número 1 pelo valor da primeira linha de dados
Do While ActiveCell.Row > 1
If ActiveCell.Value <> "" And ActiveCell.Offset(-1, 0).Value = "" Then
Call Linha
End If
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
'Traça uma linha espessa acima da célula ativa
Sub Linha()
With Range(ActiveCell, ActiveCell.Offset(0, 12)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End Sub
Depois selecione a planilha que contém os dados e execute a macro DestacaDados.
Carlos César Tanaka
-
Olá!
Coloquei a resposta da sua dúvida passo-a-passo no link abaixo:
http://blog.mprinformatica.com.br/2009/04/...ulario-no-word/
Espero que ajude.
Márcia Cadecaua
-
Leandro, boa tarde
Coloquei a resposta da sua dúvida passo-a-passo no link abaixo:
http://blog.mprinformatica.com.br/category...ftwares/access/
Espero que ajude.
Márcia Cadecaua
-
Olá, Lenne
Você pode proceder por etapas e usando o recurso do Localizar/Substituir.
Inicialmente, deixe sempre a base original intacta, ou seja, a coluna com o endereço agrupado e copie para a coluna ao lado para realizar a edição.
1º - Isolando o logradouro:
Partindo da coluna que será editada (que contém todo o endereço), acione o comando Localizar/Substituir e digite:
Localizar: Rua *
Substituir por: Rua
Coincidir: Início do campo
Faça a primeira varredura e você verá que os endereços que iniciam com Rua já ficarão isolados.
**Cuidado para não editar a 1ª coluna que é a sua base.
Repita o procedimento para isolar Av.
Localizar: Av. *
Substituir por: Av.
--------------------------------------------------------------------
2º - Isolando o endereço:
Copie novamente a base completa para outra coluna para realizar a substituição.
Acione o Localizar/Substituir e digite:
Localizar: Rua<digite um espaço em branco>
Substituir por: <não digite nada, deixe vazio>
Faça as substituições
==> esse procedimento irá retirar a palavra Rua do endereço
Faça o mesmo procedimento para retirar Av.
Localizar: Av.<digite um espaço em branco>
Substituir por: <não digite nada, deixe vazio>
*** Nessa etapa, copie a coluna para usá-la como referência e isolar os números posteriormente.
Continuando, para isolar o endereço, acione Localizar/Substituir.
Localizar: , *
Substituir por: <não digite nada, deixe vazio>
Faça as substituições
-----------------------------------------
Última etapa: isolando os números
Acione Localizar/Substituir
Localizar: *,<digite um espaço em branco>
Substituir por: <não digite nada, deixe vazio>
Faça as substituições
Espero que dê tudo certo!!! Boa sorte!!!
Márcia Cadecaua
-
Olá!
A idéia é utilizar o programa OneNote em substituição de um bloco de anotações para rabiscar e anotar informações quando estiver em uma apresentação, reunião ou em uma aula, por exemplo.
Essas anotações podem ser manuscritas, através de textos, imagens além de outros recursos vindos do Word ou do Excel.
As anotações do OneNote são salvas automaticamente.
----------------------------------
Márcia Cadecaua
Excel Avancado - Buscar com PROC e exibir valor de OUTRA COLUNA
em Microsoft Office
Postado
Olá,
Esse problema é só uma questão de organizar os dados, há várias soluções.
Por exemplo, na planilha Plan1 podemos ter:
A B C D E
1 Teste
2 C GGG
3 C GGG
4 A AAA
5 B DDD
6 X
7 Y
8 Z
Na planilha Plan2
A B
1 Outra Coluna
2 A AAA
3 B DDD
4 C GGG
5 D CCC
6 E RRR
7 F TTT
8 G OOO
A fórmula na célula B2 da planilha Plan1 é:
=PROCV(A2; plan2!$A$2:$B$8; 2; Falso)
que deve ser copiada para as células que estão abaixo dela (B3, B4 ...)
Boa sorte,
Carlos César Tanaka
MPR Informática
Curso de Excel