-
Posts
3.601 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Livros
Cursos
Análises
Fórum
Tudo que Midori postou
-
Excel Control C e control V não estão funcionando do excel, word
Midori respondeu ao tópico de Tentar em Microsoft Office e similares
@Tentar Se acontece em outros aplicativos pode ser algo relacionado a configuração do sistema, malware ou problema no teclado. -
Excel Control C e control V não estão funcionando do excel, word
Midori respondeu ao tópico de Tentar em Microsoft Office e similares
@Tentar Tem macro no planilha? É só no Excel ou em outros aplicativos? Veja se o mesmo acontece no Word e Bloco de Notas. -
Excel Desenvolvimento de Calculadora para Marketplaces
Midori respondeu ao tópico de jorgedamasceno em Microsoft Office e similares
@jorgedamasceno Com macro dá para pegar essas variáveis e efetuar o cálculo até convergir para o lucro líquido, p.ex, Sub AtualizaLucro() Dim Codigo As Range Dim Custo As Single Dim Taxa As Single Dim Frete As Single Dim LucroLiq As Integer Set Codigo = [A2] LucroLiq = 10 While Codigo <> "" Do Custo = Codigo(, 3) Taxa = Codigo(, 6) Frete = Codigo(, 7) Codigo(, 10) = (Custo + Taxa + Frete + LucroLiq) / Custo - 1 Loop Until Round(Codigo(, 9), 2) = LucroLiq Set Codigo = Codigo(2) Wend End Sub Após a execução sua tabela ficou assim, -
Visual Basic VBA - Tirar Foto com Webcam via Macro
Midori respondeu ao tópico de Gilberto Moreira em Programação - outros
@Gilberto Moreira Seu código espera o controle TxtNomedoVisitante (TextBox) para a entrada do nome da imagem, porém seu fórmulário só tem um botão e aparentemente um controle Image. Entes de colocar mais controles, teste da forma mais simples só com Image1 e CommandButton1. Então abra uma planilha em branco, crie outro fórmulário e adicione esses dois controles (Não modifique os nomes). Deixei o nome da imagem como Teste.bmp para a macro procurar no diretório C:\Users\StarForch\Pictures, mas se quiser outro é só modificar. Antes de rodar você pode comentar a linha do Shell e salvar uma imagem bmp manualmente direto pelo programa e depois executar o formulário e clicar no botão para ver que a imagem será carregada. Assim saberá que o forumulário está carregando a imagem corretamente. Depois apague e imagem do diretório e tire o comentário da linha do Shell. Private Sub CommandButton1_Click() Const DIRETORIO As String = "C:\Users\StarForch\Pictures\" Dim CaminhoFoto As String Dim NomeFoto As String NomeFoto = "Teste.bmp" CaminhoFoto = DIRETORIO & NomeFoto Call Shell(DIRETORIO & "CommandCam.exe /filename " & NomeFoto, vbHide) Call Application.Wait(Now + TimeValue("00:00:05")) Image1.Picture = LoadPicture(CaminhoFoto) End Sub -
Excel Elaboração de Fórmula de busca
Midori respondeu ao tópico de Scofieldgyn em Microsoft Office e similares
@Scofieldgyn Pode buscar os dados com PROCV e CORRESP para identificar a coluna, p.ex em B2, =PROCV($A2;Planilha1!$A:$E;CORRESP(B$1;Planilha1!$A$1:$E$1;0);0) -
Portugol exercicio guanabara vetores - torneio de futebol
Midori respondeu ao tópico de Beatriz Dorin em Programação - iniciantes
@Beatriz Dorin No teste Se que fez para evitar mostrar o confronto entre o mesmo time, você está verifica o nome deles. Mas também pode verificar se cont é diferente de cont2 como comentei, já que se forem iguais é porque estariam acessando a mesma posição do vetor e portanto o mesmo time. -
Excel Desenvolvimento de Calculadora para Marketplaces
Midori respondeu ao tópico de jorgedamasceno em Microsoft Office e similares
@jorgedamasceno Como comentei acima, (Preço de custo + Taxa ML + Frete + 10,00)/Preço de custo - 1 = % de lucro Preço de custo * (1 + % de lucro) = Preço da Venda Assim vai chegar no Preço da Venda com base no lucro de 10,00. Não é isso? Porém para calcular Taxa + Frete, sua planilha usa o Preço da Venda e dessa forma vai acabar gerando referência circular nas fórmulas. Tem outra forma de calcular Taxa + Frente sem usar o Preço da Venda? -
Portugol exercicio guanabara vetores - torneio de futebol
Midori respondeu ao tópico de Beatriz Dorin em Programação - iniciantes
Esse teste também poderia ser dos índices/contadores, Se (cont <> cont2) então -
Excel Desenvolvimento de Calculadora para Marketplaces
Midori respondeu ao tópico de jorgedamasceno em Microsoft Office e similares
@jorgedamasceno Você pode pegar a equação e isolar o percentual, p.ex, c = Preço de custo p = % de lucro tx = Taxa ML fr = Frete (c * (1 + p)) - (c + tx + fr) = L Assim com o percentual de 40% vai retornar o lucro líquido de 132,40 como no primeiro produto da sua planilha. Se quer ter um lucro mínimo de 10,00, pode passar esse valor e isolar o percentual: (c + tx + fr + 10)/c - 1 = p Isso dá aprox. 27,12% e aplicando ao custo (c * (1 + p)) chega no preço de venda de 1.207,60 no primeiro produto. No segundo fica 179,10. -
Excel Inserir virgula após uma quantidade de caractere determinada
Midori respondeu ao tópico de Zamboni_du em Microsoft Office e similares
@Zamboni_du Isso pode ser feito com macro, Function NovoNumero(Numero As String) As String Dim I As Integer Dim N As String N = Left(Numero, 5) For I = 6 To Len(Numero) Step 5 N = N & "," & Mid(Numero, I, 5) Next I NovoNumero = N End Function Assim é só passar a sequencia para a função que também pode ser usada na planilha como fórmula. -
Visual Basic VBA - Tirar Foto com Webcam via Macro
Midori respondeu ao tópico de Gilberto Moreira em Programação - outros
@Gilberto Moreira Shell é uma função para rodar um programa executável da mesma forma que faria com duplo clique no Explorer ou via linha de comando/prompt. O programa CommandCam.exe existe? E se existe basta executar assim para salvar a imagem? Na atribuição de ProgramaFoto você concatenou Shell com duas variáveis aparentemente com o caminho da imagem. Porém essa função não retorna nada relacionado ao caminho do arquivo. -
@Endmmans Em vez de testar strings e fazer o cálculo com números constantes para cada um, acho mais simples usar arranjos/matriz para armazenar os tamanhos e valores. Assim poderá passar a posição e usar nos cálculos, p.ex, #include <stdio.h> int main(void){ int codigo = 0; int tamanho = 0; float total = 0; float preco[3][3] = { {6, 10, 18}, {7, 12, 21}, {8, 14, 24} }; const char *tipo[3] = { "Tradicional", "Especial", "Premium" }; puts( "Bem-vindo à sorveteria Ice Cube (-1 para sair).\n" "-----------------------------------------------------------\n" "¦Código ¦ Descricao ¦ (0) P ¦ (1) M ¦ (2) G ¦\n" "¦ 0 ¦ Tradicional ¦ R$6.00 ¦ R$10.00 ¦ R$18.00 ¦\n" "¦ 1 | Especial ¦ R$7.00 ¦ R$12.00 ¦ R$21.00 ¦\n" "¦ 2 ¦ Premium ¦ R$8.00 ¦ R$14.00 ¦ R$24.00 ¦\n" "-----------------------------------------------------------\n" ); while(codigo >= 0){ puts("Entre com o codigo e coluna: "); scanf("%d, %d", &codigo, &tamanho); if(codigo >= 0 && codigo <= 2){ printf( "Você pediu um sorvete sabor %s de R$ %.2f\n", tipo[codigo], preco[codigo][tamanho] ); total += preco[codigo][tamanho]; } } printf( "Os pedidos foram realizados com sucesso." " O valor total foi de R$ %.2f\n", total ); return 0; } A relação de preço e tamanho fica na tabela 3x3 e a entrada recebe a posição. Ainda dá para aplicar mais testes para o retorno do scanf e os valores das entradas para ver se são válidos.
-
Excel Planilha Carregando Net.Framework ao abrir
Midori respondeu ao tópico de Revolucao em Microsoft Office e similares
@Revolucao Faça uma cópia da planilha e clique em remover tudo para ver se resolve. Se não der certo tenta novamente com as marcações que aparecem como padrão (não desmarque nada dessa vez). -
Outro como somar um ano mais um número
Midori respondeu ao tópico de Francisco Moala em Programação - outros
@Francisco Moala Você pode usar a fórmula DATAM e passar o valor 12 para o parâmetro dos meses, p.ex, =DATAM(HOJE();12) Vai retornar a data de 2024. Para os próximos é só ir passando múltiplos de 12. E outra forma mais simples se quiser apenas retornar o ano: =ANO(HOJE())+1 -
Excel Planilha Carregando Net.Framework ao abrir
Midori respondeu ao tópico de Revolucao em Microsoft Office e similares
É para deixar marcado. -
Excel Planilha Carregando Net.Framework ao abrir
Midori respondeu ao tópico de Revolucao em Microsoft Office e similares
@Revolucao Se deixar tudo marcado acho que vai demorar, primeiro tenta só o que tiver XML. Antes feche a planilha e faça numa em branco. -
Excel Excel fazendo o impossível: errando na soma e subtração!!!
Midori respondeu ao tópico de Jairo Vasconcelos em Microsoft Office e similares
Isso não é algo inesperado ou aleatório. Como as máquinas não podem representar infinitos números de dígitos, como acontece na matemática real, é preciso chegar numa aproximação nesses casos. O problema do "erro de arredondamento" basicamente vem dessa limitação e é assunto de estudo do cálculo numérico. Comentei sobre essa questão da representação do número de ponto flutuante, https://www.clubedohardware.com.br/forums/topic/1553292-imprecisão-com-ponto-flutuante Este link é interessante, tem uma calculadora que mostra a conversão de flutuante para binário, https://www.h-schmidt.net/FloatConverter/IEEE754.html -
Excel Planilha Carregando Net.Framework ao abrir
Midori respondeu ao tópico de Revolucao em Microsoft Office e similares
@Revolucao Tenta fazer uma inspeção em Arquivo > Informações > Verificando se há problemas > Inspecionar documento. -
Excel Criar simples condição IF
Midori respondeu ao tópico de Nilton Cézar em Microsoft Office e similares
@Nilton Cézar A segunda macro fica assim, Sub Macro() If [C4].Value = "nº no cabeçalho" Then Call Codigo1 Else Call Codigo2 End If End Sub Sem o evento, Sub Macro1() If Application.Intersect([C4], ActiveCell) Is Nothing Then [C9].Select End If End Sub Como testou? A célula C9 só é selecionada se a condição for verdadeira que é quando C4 não está selecionada. -
Excel Criar simples condição IF
Midori respondeu ao tópico de Nilton Cézar em Microsoft Office e similares
@Nilton Cézar Com o evento SelectionChange essas condições serão testadas toda vez que selecionar alguma célula, Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.Intersect([C4], Target) Is Nothing Then [C9].Select End If End Sub A outra macro também é no evento SelectionChange? -
@Endmmans Você acabou deixando um ponto e vírgula indevido na linha do if.
-
@Henrique - RJ Pode ser estoque antigo mesmo, como a anterior que deu problema e eu tinha comprado há pouco mais de 1 ano e nas células marcava o ano de 2015. @joe_federal A fonte é original e está com a tensão certa. Na bateria não tem a data de validade. @alissomrex É nova do AliExpress.
-
Troquei a bateria e deixei a nova carregando por um tempo, porém ela não passa de 90% e ao tirar o carregador o laptop desliga na hora. Fiz o procedimento de deixar o power pressionando por mais de 1 minuto com tudo desconectado, mas não adiantou. O equipamento já é antigo. Pode ser problema nele ou a bateria veio com problema? Com a bateria antiga só ficava alguns minutos ligado mesmo o sistema mostrando ela carregada. Tem outro procedimento que eu posso tentar?
-
Excel Copiar dados de células não vazias de planilhas para única planilha com condição
Midori respondeu ao tópico de Diegodcr em Microsoft Office e similares
@Diegodcr Coloque estas linhas no fim do procedimento fora do loop. Assim vai concatenar com fórmula e depois deixar como valor. Set AreaDest = AreaDest.CurrentRegion.Resize(, 1).Offset(, 2) AreaDest.Formula = "=RC[-2]&RC[-1]" AreaDest.Value = AreaDest.Value -
Excel Copiar dados de células não vazias de planilhas para única planilha com condição
Midori respondeu ao tópico de Diegodcr em Microsoft Office e similares
@Diegodcr Essas planilhas tem mais dados nas outras colunas, não dá para usar CurrentRegion como nos primeiros anexos. Alterei a macro para contar a última linha com algum dado na planilha. Sobre a duplicidade veja se não tem planilha repetida no diretório. Sub CopiaValoresB() Dim Arquivo As String Dim Linhas As Long Dim PlanOrig As Workbook Dim AreaOrig As Range Dim AreaDest As Range Set AreaDest = ThisWorkbook.Sheets("Plan1").[B1] Arquivo = Dir(ThisWorkbook.Path & "\*.xlsx") While Arquivo <> "" If Arquivo <> ThisWorkbook.Name Then Set PlanOrig = Workbooks.Open(ThisWorkbook.Path & "\" & Arquivo) Set AreaOrig = PlanOrig.ActiveSheet.[C8] Linhas = PlanOrig.ActiveSheet.UsedRange.Rows.Count - AreaOrig.Row If Linhas > 0 Then Call AreaOrig(1, 1).Copy(AreaDest.Resize(Linhas)) Call AreaOrig.Offset(1).Resize(Linhas).Copy(AreaDest(, 2)) Set AreaDest = AreaDest.Offset(Linhas) End If Call PlanOrig.Close(False) End If Arquivo = Dir Wend End Sub
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais