Jump to content

Search the Community

Showing results for tags 'excel'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 192 results

  1. Boas a todos. venho pedir a ajuda da comunidade para tentar criar uma folha excel onde possa fazer a distribuição de recursos. Entre outras coisas dedico-me a contratar pessoal para serviços de catering, e como devem imaginar, nos meses de verão os serviços são mais que muitos. já tentei mas sempre sem sucesso criar uma folha excel para esse fim, mas como sou muito noob nisso nunca consegui. Faço todo o trabalho á unha em papel. O que eu pretendia era algo do género: uma folha onde eu pudesse colocar o nome e contacto dos homens que contrato, (recursos humanos), os locais por onde os distribuo, (recursos físicos), e que essa folha fizesse os cálculos de quantos homens mandei para determinado local e se um homem já estivesse escalado para um local não seria possível escala-lo para outro. Não sei se me fiz entender, mas estou disposto a dar todas as infos que precisarem. Desculpem o abuso do pedido, mas eu sei que o que para mim é um bicho de sete cabeças, para vocês é uma brincadeira. Muito obrigado desde já. Márcio Soares
  2. Boa noite, Tenho ficheiros Excel com macros que acedem a ficheiros DBF para obter informação. Para isso utilizo o OLEDB do Visual Fox Pro. Mas não funciona nas versões 64 bits. E ainda não arranjei solução. Alguém sabe como posso, a partir de um Excel, ligar a ficheiros DBF em 64 bits?
  3. Boa tarde, Tenho uma tabela onde existem peças,com prazos de entrega diferentes. Cada peça necessita de matéria prima para ser feita. Tenho uma macro que me diz quais têm matéria e quais não têm. O problema é que ao preencher as células existem peças com prazo mais pequeno de entrega onde me diz que não tenho matéria prima, e mais a frente tenho peças com mais validade onde já acusa ter matéria prima. O que eu pretendia fazer era: Ele verificava onde não tinha e iria substituir, mas retirando matéria as peças com prazo maior. Alguém me consegue dar uma luz de como posso fazer isso ? Já estou de roda disto a uma semana mas ainda não consegui lá chegar. Obrigado, Afonso Mira
  4. Bom dia, No meu local de trabalho, necessito de automatizar um procedimento que já faço a algum tempo, mas que demora imenso tempo, que basicamente é extrair a informação desse sistema para um documento em excel e que posteriormente irá ser trabalhado para um PDF único. Nesse sistema de informação constam as informações de todos os meus colaboradores, e através desse sistema eu extraio dados consoante o tipo de colaborador, e que depois cada extração guardo numa sheet identificada com o tipo de colaborador num ficheiro excel único para este trabalho. Posteriormente, tenho uma capa, índice, entre outros documentos elaborados em Word, e que anualmente tenho que mudar, mas o que pretendo é através do excel ou de outra ferramenta qualquer, que ao extrair os dados do meu sistema de informação coloque os dados automaticamente nesse ficheiro ou num separador (já com a respetiva paginação), e que depois de alguma forma consiga juntar os outros ficheiros em Word. Será que me faço entender? Alguém me pode ajudar? Obrigado.
  5. Bom dia a Todos. Antes de mais agradeço desde já a atenção que alguns de vocês darão a esta questão!!! O problema é o seguinte: 1-A instalação de PHC arrasta-se e necessitamos de fazer "guias de transporte" rapidamente. Atualmente existe uma pessoa a fazer manualmente no site da AT! 2- Criei um folha Excel com código que importa um TXT de um sistema, NÃO CERTIFICADO (Muito antigo) em AS400, processa os dados e exporta para XML. 3- O validador da AT confirma que o xml esta OK (tirando um campo de produto), Mas sendo o XML baseado (e com dados) de um programa certificado que utilizei como base de pouco serve o resultado. A minha questão é a seguinte: - Consigo criar XML sem ser em programa certificado (assinatura digitais/ software certificado), criado internamente na empresa? (ou é obrigatório criar um SW que seja certificado pela AT) - Se sim que insiro nos campos de <ProductCompanyTaxID>; <SoftwareCertificateNumber>; <ProductID>; <ProductVersion> e <Hash> e <HashControl>? Desde já agradeço imenso a vossa ajuda, já que estou numa "praia" que não conheço de todo! Obrigado Jorge
  6. Ola pessoal boa tarde, sou novo ainda no VBA. Bom, eu queria um código para que quando aparecer o valor aleatório na célula x, ele gere valores impares até o valor daquela célula X. Por exemplo. Valor da célula X= 304 (valor aleatório) Gerar uma coluna inteira, do A1=5 ATE A289= 300. com os valores espaçados a cada 8 linhas entre eles. Ou seja: A1= 5 pula 8 linhas A9=10 e etc... Comecei com algo, porem quando eu digito valores aleatórios pares ele gera valores até o final da coluna. Vou agradeçer muito se der para ajudarem. Private Sub BtExecuta_Click() Dim w As Worksheet Dim ln As Long Dim col As Integer Dim varray() As Long Set w = Plan6 ln = 5 col = 1 Do Until ln = Plan6.Cells(1, 3).Value w.Cells(ln, col).Value = ln ln = ln + 5 Loop End Sub
  7. Boa tarde tenho o seguinte problema: Tenho 2 tabelas: Tabela1 com datas; Tabela2 com datas e valores; Tenho o (SOMA.SE Data da Tabela2;Data Tabela1;VALORES) numa celula da tabela 1; Em VBA tenho o seguinte código: Folha4.Range("C7").Value = WorksheetFunction.SumIf(("R:R"), "B7", ("U:U")) Mas dá-me um erro que não percebo qual seja. Alguém me consegue ajudar?
  8. Amigos, bom dia. Estou com um problemão com VBA e preciso urgentemente de uma solução ;S É o seguinte: Eu tenho uma automação que rodava normalmente até a sexta feira na parte da manha, a partir da parte da tarde ela simplesmente não roda mais !!! A automação foi feita em um excel 2007, e a partir da tarde de sexta feira só funciona no Excel 2010 !!! E o pior: O erro não é especificado pelo excel, ocorre somente a mensagem: "Erro de automação" E o pior ainda: Nenhuma automação funciona mais, inclusive BACKUPs. Alguém já viu esse erro em algum lugar? OBS: O erro não ocorre em uma linha especifica, portanto caso precisem da planilha para testes me avisem que eu mando por email. Muito obrigado!
  9. Boa tarde estou com algumas dúvidas no meu código VBA. Tenho uma base de dados com vários registos de dias e alguns valores. O meu objectivo era fazer com que automaticamente o código fosse verificar as datas e numas células inserir as mesma logo de seguida iria somar os valores apenas daquele dia e assim por diante.
  10. Boa tarde tenho o seguinte esquema: Folha Excel com Dados ----- Excel com Macro ----- Folha Excel recebe Dados Precisava de passar os dados da 1º folha para a 2º quando abro o Excel que contêm a macro. Alguém me poderia dar uma ideia do código que vou precisar? Obrigado!😄 Abraços, Afonso Mira.
  11. Boas Estou com algumas dificuldades em fazer um código para ver se a célula contem ou não uma string alguém me poderia ajudar. Obrigado, Afonso Mira
  12. Olá, Criei um formulário para fazer um cadastro de clientes, porém quando carrego a imagem, ela vem na horizontal dentro do formulário, preciso virar a imagem 90, pois imprimo o formulário antes de salvá-lo na base de dados no excel. Gostaria de criar um botão que fizesse isso. Alguém poderia me ajudar.
  13. Boa tarde, Quero usar vários critérios numa formula, mas a formula não está a funcionar. Já tentei com & com , com mais ( ou menos ) e não funciona. Al´guém pode ajudar? a ideia é a formula calcular o aeging de uma coluna de datas mas em vez de aplicar uma formula de cada vez, quero ter tudo numa só. criteriaFormula, isoladas: 0-30 DaysIF(AND($D$1-D3<30),"0-30 Days" 31-60 DaysIF(AND($D$1-D3>31),AND($D$1-D3<60),"31-60 Days") 61-90 DaysIF(AND($D$1-D3>61),AND($D$1-D3<90),"61-90 Days") +90 DaysIF(AND($D$1-D3>90),"+ 90 Days" Juntas: =IF(AND($D$1-D3<30),"0-30 Days",IF(AND($D$1-D3>31),AND($D$1-D3<60),"31-60 Days"),IF(AND($D$1-D3>61),AND($D$1-D3<90),"61-90 Days"),IF(AND($D$1-D3>90),"+ 90 Days" Será que me podem ajudar a perceber o erro? Obrigada
  14. Boa tarde a todos, Estou com um pequeno problema, queria usar em Excel VBA uma inputbox para guardar um valor númerico (euros) para poder fazer umas contas com esse valor, guardá-lo numa variável e depois retornar o valor dessa variável para uma célula na folha de excel. A primeira dificuldade que encontrei foi, uma que vez dá erro se inserir um valor em euros com um ponto em vez de virgula, pedi ajuda e esta função transforma o ponto em virgula para facilitar, no entanto o valor ao ser devolvido para a folha de excel é devolvido como texto, como posso fazer para o devolver como número mantendo o valor, para que possa fazer somas uma vez que o valor seja retornado a folha de excel? Exemplo: Declaração das variáveis: Dim ValorND As String Dim ValorQuota As String Dim Resultado As String Na inputbox digito o valor: 55.70 ValorND = InputBox("Valor da Nota de Débito") Para evitar de por uma virgula, o mais comum é usarmos o teclado numérico com um ponto a fazer a separação das casas decimais, mas o excel VBA não o aceita e dá erro, devido a isso usei esta formula: If InStr(1, ValorND, ".") > 0 Then ValorND = Replace(ValorND, ".", ",") ValorND = FormatNumber(ValorND, 2) Mas após isso não estou a conseguir devolver o valor em número, que vem convertido como texto da formula que acabei de citar. Range("O5").Value = ValorND Agradecia ajuda, obrigado.
  15. Boa Tarde, Alguém pode-me ajudar e indicar como é que no excel, numa célula posso através de uma fórmula tirar a hora que está junto à data? Ex: 09/29/11 11:13:41 Quero tirar a data: 11:13:41, sei que há uma fórmula para tal mas não estou a conseguir lá chegar. Obrigada a quem me possa ajudar.
  16. Boa noite Utilizo uma excel que funciona corretamente. Mas agora quero fazer a mesma coisa que faço no Excel mas numa aplicação Android (memento database) que tem um campo que permite introduzir código Javascript. Já tentei, mas não estou a conseguir por causa das funções ^2 e EXP() que não são iguais em JS. A 1ª formula em Excel: =SE($G$6>0;0,8+0,1894393 * EXP(-0,012778*G6*1440)+0,2989558* EXP(-0,1932605*G6*1440);0) A 2ª formula em Excel: =SE(E($E$6>0;$G$6>0);(1/(29,54 + 5,000663 * ($I$6*0,88) - 0,007546 * ($I$6*0,88)^2)*1609,344/1440);"-") sendo que em JS a célula G6 = "TEMPO" E6 = "DISTANCIA" (não irei utilizar em JS) I6 = "VDOT" Tentei as seguintes opções: Para 1ª formula ficaria assim em JS: 0,8+0,1894393 * Math.exp(-0,012778*TEMPO*1440)+0,2989558* Math.exp(-0,1932605*TEMPO*1440) (mas o resultado devolvido não está certo...) Para a 2ª formula em JS: (1/Math.pow(29,54 + 5,000663 * (VDOT*0,88) - 0,007546 * (VDOT*0,88),2)*1609,344/1440) (aqui o resultado também não é o correto. Alguém me pode dar uma ajuda?
  17. Boa noite, Já nao aparecia por cá a algum tempo XD Preciso de ajuda, pois lembrei de fazer algo mas nao sei como fazer. Analisemos o seguinte caso dentro do mesmo livro excel: Folha1 Coluna A ----- Coluna B Maria ----- 5 Manuel ---- 8 Joaquim ----- 10 Folha2 Coluna A ----- Coluna B Manuel ---- ? Joaquim ----- ? Francisco ------ ? O que eu quero é o seguinte, se o nome da colunaA da folha1 estiver na folha2 ele copia o valor da coluna B da folha1 para a da folha 2. Fui clara? Como faço?? Obrigda
  18. Boa noite. Tenho um ficheiro que criei no excel 2010 e que gera um pdf a partir do nome original do ficheiro, adicionando a data obtida a partir da céluda A2, como prefixo. Este ficheiro sempre correu bem até actualizar o pc para o excel2016. Deixou de gerar o pdf e dá sempre erro no VBA for Applications, na função cujo código passo a apresentar: Worksheets("Envio Cliente").Activate Dim data2 As String pdfName = ActiveSheet.Name data2 = ActiveSheet.Range("A2").Value pdfName = "_Mapa de Contagem" MsgBox data2 ChDir ActiveWorkbook.Path & "\" fileSaveName = data2 & pdfname ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ fileSaveName _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Aque MsgBox serviu para perceber qual seria o valor que estaria a ser lido na célula A2 e é sempre dd/mm/yyyy o que faz com que não possa ser usado para nome de ficheiro. Já tentei formatar a data no excel de todas as formas, desde pontos a hifenes. Retorna sempre aquele valor com as barras. Já andei a tentar ver se há algum workaround, mas não consegui nada. Se alguém tiver alguma sugestão, agradeço.
  19. Tenho o código abaixo que acessa a página da InfoMoney e seleciona a opção Todos do botão para retornar todos os resultados. O problema é que só seleciona, mas não clica para retornar todas as cotações. Sub GetHtmlDocument() Dim IE As New SHDocVw.InternetExplorer Dim HTMLDoc As MSHTML.HTMLDocument Dim HTMLOptions As MSHTML.IHTMLElementCollection Dim HTMLOption As MSHTML.IHTMLElement IE.Visible = True IE.navigate "https://www.infomoney.com.br/ibovespa" Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Set HTMLDoc = IE.Document Set HTMLOptions = HTMLDoc.getElementsByTagName("option") 'É um botão For Each HTMLOption In HTMLOptions If HTMLOption.innerText = "Todos" Then HTMLOption.Selected = True Exit Sub End If Next HTMLOption End Sub
  20. Boa noite, Estou usando parte do codigo abaixo para enviar e-mails de forma automatica pelo excel, mas quero que o inicial do range que no memento é A6 seja mutavel de acordo com o valor especifico de uma celula, Set IntervaloMailing = WrkS.Range("A6:A7") Por exemplo: Se a celula que eu vou usar como referencia estiver com o valor A5 Esta parte codigo ficaria: Set IntervaloMailing = WrkS.Range("A5:A7") ou seja o primeiro valor do range precisa mudar de acordo com o valor que for digitavel na minha celular de referencia que neste caso poderia ser a primeira celula da planilha Segue o codigo que eu estou usando Public WrkB As Workbook 'Cria variavel da Pasta de Trabalho Public WrkS As Worksheet 'Cria variavel da Planilha Public IntervaloMailing As Range 'Cria Variavel com o Intervalo do Mailing Public Celula As Range 'Cria Variavel com o registro do Mailing Public AppOutk As Outlook.Application 'Cria Variavel com a Aplicacao do Outlook Public MailOutk As Outlook.MailItem 'Cria Variavel com o objeto "Email" do Outlook Public Sub MandarEmail() Set WrkB = ThisWorkbook 'Define a pasta de Trabalho Set WrkS = WrkB.Sheets("Mailing") 'Define a Planilha com os dados Set IntervaloMailing = WrkS.Range("A7:A7") 'Define qual o intervalo do Mailing <<<< esta parte que preciso que seja variavel With WrkS .Select For Each Celula In IntervaloMailing Call CriaEmail 'Chama a Rotina para Criar o Email Next End With End Sub Atenciosamente Nate
  21. Miguel Nicolau

    Gestão de manutenção

    bom dia. Necessitava de uma pequena ajuda, se possível claro. Sou técnico de Automação e manutenção industrial, gostaria de saber existe alguma folha de calculo para realizar a gestão de manutenção em equipamentos. Neste momento tenho um documento em Word, onde realizo o registo das Ordem de Serviço (maquina, código, tipo de anomalia, intervenção realizada, material usado, tempo disponibilizado na resolução avaria..), e posteriormente numa folha de calculo em excel faço o registo e atualizo o stok das peças usadas (código, designação peça, nome maquina, quantidade, valor, localização na prateleira,...). Pretendia uma folha de calculo que pode-se juntar o que realizo já no word e excel. Basicamente um 2 em 1. Pretendia algo em que: Quando realizo o registo da manutenção na OS, esta introduzi-se automaticamente o produto (através de código ou designação) e atualiza-se o stok na folha de existências de peças; E se possível apresentar o valor total de peças usadas em máquina; Obrigado pela sua atenção Atenciosamente Miguel Nicolau
  22. Olá, Sou ainda novo por aqui, mas já me ajudaram imenso. Sou um autodidata em informática, atualmente em VBA - Excel, pois estou a construir um documento automatizado que me ajudará muito no meu trabalho. Tenho um livro, com várias folhas. Através a macro abaixo, já consegui inserir uma imagem, na folha em uso e com as dimensões que pretendo. No entanto eu precisava que ao inserir esta imagem aqui, ela aparecesse noutras folhas, em células e dimensões diferentes. (em mais duas folhas diferentes e com diferentes dimensões). Será que há alguma forma de alterar o código, para que esse processo seja automático, ou terei de o repetir em cada uma das folhas? Obrigadão! Código: Sub Iserir_Logo_Departamento() Dim Pict Dim ImgFileFormat As String Dim Celula As String Celula = "logodepartamento" ' célula onde será inserido a imagem ImgFileFormat = "Image Files JPG (*.jpg),*.jpg, Image Files PNG (*.png),*.jpg, Image Files GIF (*.gif),*.gif, Image Files BMP (*.bmp),*.bmp" Pict = Application.GetOpenFilename(ImgFileFormat) If Pict = False Then End ActiveSheet.Shapes.AddPicture Pict, False, True, Range(Celula).Left, _ Range(Celula).Top, Range(Celula).Width * 3, Range(Celula).Height * 5 'largura da imagem = 3 colunas e altura= 5 linhas End Sub
  23. Oi pessoal estou com um problema que não consigo resolver pois os meus conhecimentos de vba ainda são muitos poucos tenho este código que me executa uma macro sempre que uma célula altera mas o problema aqui é que eu tenho de digitar o 1 na célula caso contrário não executa a macro. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then Select Case Target Case 1 Call macro1 Case Else End Select End If Application.EnableEvents = True End Sub Sub macro1() MsgBox "macro1" End Sub O que eu queria fazer era o seguinte sempre que aparecesse 1 na célula A1 a macro executasse e não fosse preciso digitar esse 1.
  24. Boas, este é o meu primeiro tópico neste fórum. Então é o seguinte, numa fase final do processo do correr do meu programa, tenho uma datagridview com dados e quando carrego no botão , passa os dados da DGV para o excel. O código que uso é este: If DataGridView1.Rows.Count > 0 Then Dim wapp As Microsoft.Office.Interop.Excel.Application Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet Dim wbook As Microsoft.Office.Interop.Excel.Workbook wapp = New Microsoft.Office.Interop.Excel.Application wapp.Visible = True wbook = wapp.Workbooks.Add() wsheet = wbook.ActiveSheet Dim iX As Integer Dim iY As Integer Dim iC As Integer For iC = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText wsheet.Cells(1, iC + 1).Font.Bold = True Next For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value Next Next wsheet.Columns.AutoFit() End If Onde o erro aparece é nesta parte do código: (...) For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value <-- É nesta linha que dá erro. Next Next (...) Mensagem do erro. ---------------------- Aproveito este tópico para perguntar se alguém sabe como faço com que dados apareçam por baixo e não ao lado como aparece nesta imagem? O código usado para guardar o dado no ficheiro texto é este: (...) If CB_tercaadicionar.Checked Then My.Computer.FileSystem.WriteAllText("D:\Terca_Feira.txt", TB_Adicionarhora.Text, True) My.Computer.FileSystem.WriteAllText("D:\numhora_Terca_Feira.txt", TB_numhora.Text, True) End If (...) Obrigado!
  25. PsySc0rpi0n

    Lei Quadrática do Excel em C

    Boas pessoal. Por curiosidade apenas, alguém sabe como implementar o método que o Excel usa para calcular a equação de uma Linha de Tendência de uma curva pela Lei Quadrática? Muito por alto o que o Excel faz é uso das seguintes funções: 2nd Order Polynomial Trendline Equation: y = (c2 * x^2) + (c1 * x ^1) + b c2: =INDEX(LINEST(y,x^{1,2}),1) C1: =INDEX(LINEST(y,x^{1,2}),1,2) b: =INDEX(LINEST(y,x^{1,2}),1,3) Lendo a descrição das funções INDEX e LINEST, respectivamente, dizem: INDEX - returns the value of an element in a table or an array, selected by the row and column number indexes LINEST - returns statistics that describe a linear trend matching known data points, by fitting a straight line using the least squares method.
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.