Ir ao conteúdo

Midori

Membro Pleno
  • Posts

    3.601
  • Cadastrado em

  • Última visita

Tudo que Midori postou

  1. Use alguma função que receba o input do usuário como a scanf, p.ex int n; ... scanf("%d", &n); ... case 1:verificarID(n, "teste.txt");break;
  2. @Souza_Custo Se não deu certo é porque alguma etapa não foi feita corretamente. A planilha C por exemplo tem que estar aberta durante a execução. Se você der mais detalhes sobre como procedeu será mais fácil entender a sua dificuldade. Você conseguiu fazer a macro abrir os arquivos?
  3. Planilha3.Range("A" & linha & ":Q" & linha).Value = Planilha3.Range("A3:Q3").Value
  4. @Duarte2020 Para não ter que criar várias funções, você pode usar um loop e comparar os dígitos conforme a posição dos caracteres na string, p.ex int main(){ char senha[] = "0123456789", s[3]; int i = 1, d = 1; while(i < 10){ printf("%d° etapa: ", d); scanf("%s", s); if(s[0]==senha[i - 1] && s[1]==senha[i]){ i+=2; d++; }else{ printf("Inválido\n"); continue; } } printf("Ok\n"); return 0; }
  5. @Jorge Guimaraes Na linha da atribuição do status os valores de linha e coluna estão trocados, corrija para Status = Planilha1.Cells(4, 3).Value Nesta comparação da Validade Cells(4, 13) teria que ser uma data, mas aparentemente você vai apenas marcar esse campo já que o mês e dia estão nas linhas 2 e 3... If Validade = Planilha1.Cells(4, 13).Value And Status = "Done" Then E se quiser comparar linha por linha teria usar a variável L aí também junto com as Cells do status.
  6. outra alternativa usando parte da fórmula postada pelo @andré_arruda só com substituir, =substituir(d3;substituir(substituir(substituir(substituir(substituir(substituir(substituir(substituir(substituir(substituir(d3;"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"");"0";"");"")
  7. @Zomeplay Falta a constante TAMANHO_PALAVRA para resolver o erro de compilação, p.ex #define TAMANHO_PALAVRA 100 Além disso não verifiquei se tem outro erro.
  8. @caiobcc O erro é tentar usar a função sem passar os dois argumentos (numero e filenome). Teria que ser algo assim, case 1:verificarID(123, "teste.txt");break;
  9. @Geraldo Carvalho Corrija esta linha que está usando o operador de atribuição e não de comparação que é ==. Assim, if(i==0)
  10. Você pode usar um loop, p.ex for(i=0;i<30;i++){ printf("\nDigite o salario %d: ", i+1); scanf("%f", &salario.mes[i]); total += salario.mes[i]; } printf("\nO total do mes 1 e: %.2f", total);
  11. @FabioWizrd Você pode usar a instrução Open...For Input para abrir o arquivo para leitura e no loop da leitura de cada linha ir acrescentando as informações na planilha. Para colocar na Aba correta (ou criar a Aba) e separar as colunas você pode usar a função Split.
  12. @Flavio Daniel Você pode usar apenas scanf e já deixar a string com a quantidade máxima de caracteres. Submeti desta forma e deu certo, #include <stdio.h> int main() { int n, i, cont; char estrada[1000000]; cont = 0; scanf("%d", &n); scanf("%s", estrada); for (i = 0; i <= n; i++) { if (estrada[i] == 'P' || estrada[i] == 'C') cont += 2; else if (estrada[i] == 'A') cont++; } printf("%d", cont); return 0; }
  13. @Souza_Custo Atribui "C:\Teste" como o diretório das planilhas, adapte conforme o seu caso e deixe apenas os arquivos do Excel necessários dentro dele (é possível colocar um IF para pular arquivos de outros formatos, mas deixei assim para simplificar). A macro vai abrir, salvar e fechar todos os arquivos. Sub Macro() Dim Planilha As Workbook Dim Arq, Pasta As String Pasta = "C:\Teste\" Arq = Dir(Pasta) While Arq <> "" Set Planilha = Workbooks.Open(Pasta & Arq, True) Planilha.Save Planilha.Close Arq = Dir Wend End Sub
  14. Esse é o resultado esperado de 7 * 5 * 5 e o loop não fica infinito mesmo com um dígito.
  15. @Jorge Curvelo Assim... int main() { int x, i = 1; x = 755; while(x){ i *= x % 10; x /= 10; } printf("%d\n", i); return 0; }
  16. @Jorge Curvelo No loop a variável i recebe o produto e x enquanto for maior que 0 vai dividindo por 10. x = 755; ... i *= x % 10; x /= 10;
  17. Veja a mensagem de erro do compilador e lembre-se do conceito de modificadores de acesso.
  18. Com o módulo (%) do número por 10 você pode pegar o último dígito. Aí é só ir dividindo por 10 para pegar os outros.
  19. @Willian Malan Com OnTime desta forma, Sub Macro() Call Application.OnTime(TimeValue("15:00:00"), "Macro2") End Sub TimeValue é o horário que a Macro2 será executada.
  20. @Belmar Costa Faça um loop na coluna para pegar a diferença entre o mínimo e o estoque. E caso seja abaixo do valor exiba a msgbox. Só é preciso definir a forma de executar código, p.ex: Evento Change, clique do botão, etc.
  21. @Israel Rocha Você podia ter postado no outro tópico que você criou sobre o mesmo assunto,
  22. Para automatizar o processo de abrir as planilhas e atualizar você pode usar macro.
  23. @Douglas Zacarias Esses botões estão associados a macro da planilha Estoque. Para executar teria que copiar manualmente ou importar o código via macro da outra planilha. Acho mais fácil você só usar uma cópia da planilha Estoque que já tem a macro e os dados e formato da outra. Obs: Quando sua macro copia os dados de ftsaldonv para Estoque, ela não apaga os dados anteriores Estoque. Então se ftsaldonv tiver menos linhas os dados de Estoque ficarão divergentes.
  24. Isso não significa que está na planilha correta. Faça um teste, assumindo que ftsaldonv deve estar ativa e já que a sub Pega_dados é que chama a sub Estoque que está dando erro, deixe ftsaldonv ativa comentando estas duas linhas na sub Pega_dados assim: Windows("ftsaldonv.xls").Activate ' ActiveWorkbook.Close ' Windows("Estoque.xlsm").Activate 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

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!