Midori

Seu programa rodou corretamente aqui, deixando a imagem em preto e branco. Caso o problema não seja o formato da imagem você podia dar mais informações do erro.

O erro deve ser por causa do formato da imagem que tem que ser bmp.

Seu código pode fazer um loop na pasta com a função Dir e testar a data da ultima modificação com FileDateTime. Aí é só pegar o caminho do que tem a maior data e horário.

Se não tiver algum bloqueio ou restrição de segurança vai funcionar normalmente.

@andrevdo Para isso tem a fórmula CONT.SES, p.ex, =CONT.SES($B$3:$B$20;"<>";$D$3:$D$20;F3)

No FAQ do ports/x11/xman vi que tem que atribuir a variavel export GROFF_NO_SGR=1. Fiz isso e resolveu.

@Luciana Goes Para isso terá que fazer um loop e contar as tentativas. Mas essa não é uma forma muito garantida já que é possível interromper o código, com Ctrl+Break p.ex, e entrar sem digitar nada. Nesse caso pode tentar desabilitar o comando, mas inda não passa muita segurança. Em questão de proteção o mais recomendável é a nativa do excel.

No xman algumas partes ficam com 1m, 2m e outros, Como corrijo isso para ficar como o man? Tentei configurar as fontes e não adiantou. Para os resources deixei assim, Xman*manualFontNormal: -*-courier-medium-r-normal--14-*-*-*-*-iso8859-1 Xman*manualFontBold: -*-courier-bold-r-normal--14-*-*-*-*-iso8859-1 Xman*manualFontItalic: -*-courier-medium-o-normal--14-*-*-*-*-iso8859-1

O erro é tentar tratar Main1 como um objeto com o membro execute. O ponto é usado para acessar propriedades e métodos. Se fosse uma função com o retorno de algum objeto poderia fazer isso, p.ex, Function Main1() As Object Dim Doc As Object Set Doc = ThisComponent Set Main1 = Doc.Sheets(0) End Function Sub Executar() Msgbox Main1.GetCellRangeByName("A1").String End Sub Aí Main1 retorna Sheet, por isso é possível fazer o acesso a seus membros.

É como você fez em Call Main1. A linha onde acontece o erro deve ser removida.

Se quer chamar a outra função é como na primeira linha com Call. Por que está tentando rodar a função execute assim?

Especifique o range que será copiado. Sub macroCorreto2() Range("B6:E6").Copy Range("B3").Select Range(Selection, Selection.End(xlToRight)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ... A chamada de Copy deve ser antes de PasteSpecial. Como não sei detalhes da sua planilha coloquei o range B6:E6 para exemplificar.

O erro deve acontecer porque não ha dados para colar. Falta o comando copy.

Aqui na primeira execução não pula, mas nas próximas sim. É normal e nas configurações não tem opção para isso.

@raphu_ Você pode fazer como comentado acima e também pode ler a primeira altura fora do loop e atribuir para as outras duas variáveis, aí é só fazer um teste simples da menor e maior, p.ex, #include <stdio.h> int main(void){ int altura; int maior; int menor; printf("1a Altura (cm): "); scanf("%d", &altura); maior = altura; menor = altura; for(int i = 2; i <= 5; i += 1){ printf("%da Altura (cm): ", i); scanf("%d", &altura); if(altura > maior){ maior = altura; }else if(altura < menor){ menor = altura; } } printf("Menor = %d\nMaior = %d\n", menor , maior); return 0; }

@Galdino14 Você pode criar um script para abrir o arquivo e adicionar no agendador de tarefas para rodar quando iniciar o computador. Comentei sobre isso neste tópico, veja se ajuda, https://www.clubedohardware.com.br/forums/topic/1599433-abrir-o-arquivo-entre-os-dias-09-e-12-de-cada-mês/

@devair1010 Para uma validação mais rigorosa não encontrei outra forma sem loop. Porque só com Asc este teste retorna falso, Escreva((Asc("1A") < 48) Ou (Asc("1A") > 57)) Implementei duas funções para auxiliar esse teste: Numero e TesteNumerico para para ficar em loop caso o valor não seja numérico. Usei essa função para o gabarito e resposta. Algoritmo "Notas" Const GMAX = 5 AMAX = 3 A = 48 Tipo TAluno = Registro Nome: Caractere Nota: Real FimRegistro Var Gabarito: Vetor[1..GMAX] de Inteiro Aluno: Vetor[1..AMAX] de TAluno I: Inteiro J: Inteiro Resposta: Inteiro Media: Real Funcao Numero(Valor: caractere): Logico Var I: Inteiro Num: caractere Ret: Logico Inicio I <- Compr(Valor) Ret <- Verdadeiro Enquanto I > 0 Faca Num <- Copia(Valor, I, 1) Se(Num < "0") Ou (Num > "9") então Ret <- Falso FimSe I <- I - 1 FimEnquanto Retorne Ret FimFuncao Funcao TesteNumerico(Texto: caractere): Inteiro Var Enum: Logico Valor: caractere I: Inteiro Inicio Repita Escreva(Texto) Leia(Valor) Enum <- Numero(Valor) Se(Enum = Falso) Ou (Valor = "") então Escreval("Erro ", Valor, " não é numero") Enum <- Falso FimSe Ate Enum = Verdadeiro Retorne Caracpnum(Valor) FimFuncao Inicio Media <- 0 Escreval("-----------------------") Escreval(" ENTRE COM O GABARITO ") Escreval("-----------------------") Para I <- 1 Ate GMAX Faca Gabarito[I] <- TesteNumerico("Gabarito " + Carac(I + A) + ": ") FimPara Para I <- 1 Ate AMAX Faca Aluno[I].Nota <- 0 Escreva("Nome Aluno ", I, ": ") Leia(Aluno[I].Nome) Para J <- 1 Ate GMAX Faca Resposta <- TesteNumerico("Resposta " + Carac(J + A) + ": ") Se(Resposta = Gabarito[J]) então Aluno[I].Nota <- Aluno[I].Nota + 10/GMAX FimSe FimPara Media <- Media + Aluno[I].Nota/AMAX FimPara Escreval("-----------------------") Escreval(" NOTAS ") Escreval("-----------------------") Para I <- 1 Ate AMAX Faca Escreval(Aluno[I].Nome, " = ", Aluno[I].Nota) FimPara Escreval("Media da Turma = ", Media) FimAlgoritmo

@JeffGanorh O nome das variáveis podem ser mais significativos. Chamar de "m", "q", "a" não ajuda na leitura do código. Então podiam ser Media, Gabarito, etc. No caso dos procedimentos achei desnecessário nesse caso. As informações pode ficar no escopo principal. Acho que poderia usar constantes. Uma para a quantidade de questões e outra para a de alunos. Isso facilita a identificação do propósito do loop e caso queira acrescentar mais alunos e respostas é só mudar o valor da constante. Outro recurso que pode usar é o Registro, p.ex, Algoritmo "Notas" Const GMAX = 5 AMAX = 3 Tipo TAluno = Registro Nome: Caractere Nota: Real FimRegistro Var Gabarito: Vetor[1..GMAX] de Inteiro Aluno: Vetor[1..AMAX] de TAluno I: Inteiro J: Inteiro Resposta: Inteiro Media: Real Inicio Media <- 0 Escreval("-----------------------") Escreval(" ENTRE COM O GABARITO ") Escreval("-----------------------") Para I <- 1 Ate GMAX Faca Escreva("Questão ", I, ": ") Leia(Gabarito[I]) FimPara Para I <- 1 Ate AMAX Faca Aluno[I].Nota <- 0 Escreva("Nome Aluno ", I, ": ") Leia(Aluno[I].Nome) Para J <- 1 Ate GMAX Faca Escreva("Resposta ", J, ": ") Leia(Resposta) Se(Resposta = Gabarito[J]) então Aluno[I].Nota <- Aluno[I].Nota + 10/GMAX FimSe FimPara Media <- Media + Aluno[I].Nota/AMAX FimPara Escreval("-----------------------") Escreval(" NOTAS ") Escreval("-----------------------") Para I <- 1 Ate AMAX Faca Escreval(Aluno[I].Nome, " = ", Aluno[I].Nota) FimPara Escreval("Media da Turma = ", Media) FimAlgoritmo

@JorgeSouza Isso pode ser feito desta forma, =SE(MÊS(N1&1)=1;0;ÍNDICE(B2:L2/A2:K2-1;;MÊS(N1&1)-1))

@VNM-1 Para isso é só colocar o nome da planilha no range, p.ex =SOMA(SE(SEERRO(ÚNICO(ÍNDICE(FILTRO('PAINEL POSITIVAÇÃO'!$A$10:$D$27;('PAINEL POSITIVAÇÃO'!$A$10:$A$27=$A$2)....

@Joannes Nas opções do excel deve conseguir desativar isso em suplementos.

@VNM-1 Cole na linha 5 e arraste para as outras, =SOMA(SE(SEERRO(ÚNICO(ÍNDICE(FILTRO($A$10:$D$27;($A$10:$A$27=$A$2)*($B$10:$B$27=A5)*($C$10:$C$27>=$B$2)*($C$10:$C$27<=$C$2));;4));0)<>0;1;0))

Qual erro? Tentou fechar com ThisComponent.Close(True)?

No excel 365 você pode aplicar as fórmulas FILTRO E ÚNICO.

@Ygor Ferreira Campos de Sá Nesta pagina tem a documentacao. La mostra como deve ser feito o acesso aos controles. Deixei o nome como "Text Box 1", se o seu for outro substitua na funcao GetByName. https://wiki.documentfoundation.org/Documentation/BASIC_Guide Sub Produto() Dim Planilha As Object Dim Celula As Object Dim Texto As Object Set Planilha = ThisComponent.Sheets.GetByName("planilha1") Set Celula = Planilha.GetCellRangeByName("B2") Set Texto = Planilha.DrawPage.Forms.GetByIndex(0).GetByName("Text Box 1") Celula.String = Texto.Text End Sub