Ir ao conteúdo

Midori

Membro Pleno
  • Posts

    3.601
  • Cadastrado em

  • Última visita

Tudo que Midori postou

  1. Outra forma é com fgetc comparando os caracteres no loop do input, int main(){ int i = 0, iguais = 1; char str[50], c; fgets(str,50,stdin); while((c=fgetc(stdin))!='\n'){ if(c!=str[i++]) iguais = 0;; } if(str[i]!='\n'){iguais = 0;} if(iguais) printf("Iguais"); else printf("Diferentes"); return 0; }
  2. @Ariel Souto Se você puder anexar a planilha vai ficar mais fácil ajudar.
  3. Midori

    Visual Basic VBA para enviar email

    Faça a atribuição só com a sintaxe HTML, Email.HTMLBody = "<html>Olá,<br><br>Segue em anexo notificação de falha encontrada em OQC." & _ "<br><br>Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value & _ "<br><img src=""cid:painel.JPG""</img></html>"
  4. Pode ser isso. Qual é o critério para a célula voltar a ser False? Você não pode fazer isso no fim da sub limpar_busca_paciente? A macro vai ter que controlar isso, se não for na Sub que é chamada uma forma é no próprio evento, p.ex Private Sub Worksheet_Calculate() Static B As Boolean If [A1] = True And B = True Then Call Macro B = False End If If [A1] = False Then B = True End Sub Assim a macro será chamada quando A1=True e depois só será executando após False entre as condições True.
  5. @Ariel Souto Cole no módulo da planilha e edite o nome da macro e a célula que deseja verificar, Private Sub Worksheet_Calculate() If [A1] = True Then Call Macro End Sub
  6. @Nathanael Lacerda Em PivotTables coloque o índice referente a tabela, neste caso coloquei 1, Private Sub Worksheet_Change(ByVal Target As Range) Me.PivotTables(1).RefreshTable End Sub
  7. @tiago_rbs Use a função Split assim, Sub Macro() Dim URL As String URL = " https://exemplo/texto1/texto2/aplicacao.aspx/texto3/123456" MsgBox Split(URL, "/")(7) End Sub
  8. @Scofieldgyn Você pode arredondar os valores. Round com duas casas fica assim, If Round(Y.Range("Y3"), 2) <> Round(X.Range("M3"), 2) Then
  9. @Scofieldgyn Tente usar a função Find, p.ex Sub Macro() Dim X, Y As Worksheet Set X = Sheets("PlanX") Set Y = Sheets("PlanY") If Y.[A:A].Find(What:=X.[A2], LookAt:=xlWhole) Is Nothing Then MsgBox "Não existe em PlanY" Else MsgBox "Já existe em PlanY" End If End Sub
  10. Quando passo a string como argumento da função, os ponteiros recebem o endereço do primeiro elemento do vetor. Para comparar esses elementos tenho que ir deslocando os endereços com ++. Eu poderia fazer assim, if(*s1 != *s2){ return 0; } s1++; s2++; Veja que na comparação uso o operador "*" para pegar o conteúdo no endereço de memória que ele aponta. E depois quando incremento com ++ (sem o "*") desloco o ponteiro para o próximo endereço de memória. Na parte (*s1++ != *s2++) eu já faço isso na mesma linha.
  11. @Malcolm X Você pode criar uma função e definir os valores de retorno com o resultado da comparação, p.ex 0 diferente e 1 igual. No loop será feita a comparação de char entre uma string e outra. int compara(char *s1, char *s2){ while(*s1){ if(*s1++ != *s2++){ return 0; } } if(*s2){return 0;} return 1; } ... if(compara(str1,str2)) printf("Iguais\n"); else printf("Diferentes\n");
  12. Como o contador vai até i<strlen apenas os caracteres digitados serão exibidos.
  13. Midori

    Visual Basic VBA para enviar email

    @Douglas ianes Coloque o caminho correto da imagem e tente enviar assim, .Attachments.Add "C:\IMAGEM.JPG" .HTMLBody = "<html><img src=""cid:IMAGEM.JPG""</img></html>" .Display .Send Se não der certo outra forma é copiar o gráfico (via macro) e colar quando a macro chamar a função Display.
  14. @KaKaBeCuDo Aqui não acontece esse erro. Pode ser algo com o seu Excel.
  15. @Malcolm X Não está rodando corretamente por causa do ; (que marca o fim do comando) logo após o For. E você deve informar o tamanho da string no loop, use a função strlen.
  16. @Eri França Declare no início da sub: Dim Recortar As Shape
  17. @Eri França Isso pode ser feito com as propriedades de Shape depois do print, Set Recortar = tmpChart.Shapes("chart") Recortar.PictureFormat.Crop.PictureOffsetY = -100 Recortar.PictureFormat.Crop.ShapeHeight = 300 Recortar.PictureFormat.Crop.ShapeWidth = 300 Em OffsetY desloquei -100 para não pegar o caption do form e fiz o recorte de 300x300. Aí você deve alterar os valores para ajustar o tamanho que achar melhor.
  18. @Vanessa Farias Com SOMASES para somar p.ex o intervalo do posto da célula H3 fica assim, =SOMASES(E4:E17;D4:D17;H3;A4:A17;">=1/7/2020";A4:A17;"<=15/7/2020")
  19. @Eri França Como a variável jpg não tem atribuição LoadPicture só está recebendo o nome do arquivo sem a extensão. Você pode atribuir com ".jpg" ou concatenar extensão, LoadPicture(Caminho & Img & ".jpg")
  20. @Rafael de Souza Guimarães Use as propriedades Visible para exibir a planilha e Activate para selecionar, p.ex. Sheets("Planilha2").Visible = xlSheetVisible Sheets("Planilha2").Activate Depois em Worksheet Deactivate você pode ocultar a planilha novamente quando sair dela.
  21. @KaKaBeCuDo Vi agora que na outra imagem que você postou da planilha não tem as células da REFERÊNCIA. Então vai dar erro mesmo, mas normalmente a mensagem é de Erro 91... Esse erro acontece mesmo com as REFERÊNCIAS nas colunas X e Z?
  22. @KaKaBeCuDo A inserção manual sem macro deu certo?
  23. @KaKaBeCuDo Tente fazer esse procedimento de inserção manualmente (sem macro). Se der certo faça novamente com o gravador de macro ativado, depois desative a gravação e execute o código gerado. Veja se nesses testes dá algum erro.
  24. @DaviCN Assim, Dim I As Integer For I = 1 To TextBox1.Text ListBox1.AddItem ComboBox1.Value Next I
  25. @Ariel Souto Atribua o índice/posição da lista de tipos na propriedade FilterIndex (2 é xlsm), With Form .FilterIndex = 2 ...

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!