Jump to content

Search the Community

Showing results for tags 'vba'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Comunidade
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Apresentação de Projectos de Programação
    • Downloads
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Pascal
    • Python
    • Bases de Dados
    • 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 e Automação Industrial
    • Matemática
    • Software de Contabilidade e Finanças
    • Dúvidas e Discussão de Programação
  • Outras Áreas
    • Notícias de Tecnologia
    • 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...

  1. Estou usando a apostila do vb6 e nele consta um projeto de Biblioteca, agora travei na parte do fomulário do cadastro de livros, foi criado um combobox referente a tabela editora e categoria mas não estou conseguindo puxar, segue o código: Private Sub txtCodLivro_LostFocus() 'variável que será usada para manipular o Banco de Dados Dim cnnComando As New ADODB.Command 'variável que recebe os dados do Banco de Dados e Grava no BD de volta Dim rsSelecao As New ADODB.Recordset Dim vCod As Long Dim i As Integer On Error GoTo errSelecao 'caso ocorra erro vai pra outro comando abaixo
  2. Boa noite, Antes de mais não sei se estou a perguntar no sitio certo, mas aqui vai, eu sou aluno do 12ºano, tenho aplicações informáticas e neste período aprendi o básico dos básicos de Visual Basic (usamos a versão de 2010...), e como sinceramente gosto de aprender mais do que o professor ensina comecei a fazer uma calculadora do género da calculadora presente no windows 10, a parte do código em si, já o tenho pensado e não devo ter grandes problemas, mas num menu existente no programa em que abro dentro de um panel uma form ocorre algo que não consigo resolver... Como podem ver nas imag
  3. Basicamente, 1 tabela, 5 campos, desejava apagar o 4º campo conforme conveniente, com = New OleDbCommand("Delete din From Cliente WHERE ID=@ID", con) con.Open() com.Parameters.AddWithValue("@ID", DataGridView1.Item(0, x).Value) com.ExecuteNonQuery() con.Close()
  4. Bom dia! Tenho um banco de dados com contactos na qual deve ser atualizado com novos contactos sempre que houver um evento. A contacto obtido no novo evento pode já está no banco de dados ou ter alterado alguma informação pessoal ou ser realmente informação nova. Para diferenciar quem está ou não, resolvi pesquisar pelo e-mail. O que pode acontecer: Se o e-mail não está na lista = pinta a rosa a linha do novo contacto que não está na lista. Se já existe o e-mail, digo para ele checar nome da pessoa, empresa e função. Se algumas das informações não são iguais, mando
  5. Dim x = DataGridView1.CurrentRow.Index Dim u = DataGridView1.Item(3, x) Dim con As OleDbConnection Dim com As OleDbCommand con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Orlando\Desktop\family butchers\clientes.accdb") com = New OleDbCommand("SELECT mail into @z From Cliente WHERE ID = 11", con) MsgBox(com) Basicamente o que estou a tentar fazer é que uma celula do datagrid view, tentei ir buscar diretamente ao datagridview, agora tentei ir buscar a base de dados, o que esta la dentro é "500 libras de porco" esta definido como texto na base
  6. Private Sub din_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles din.Click Dim x = DataGridView1.CurrentRow.Index Dim y = DataGridView1.Item(1, x).Value Dim u = DataGridView1.Item(2, x).Value Dim z = DataGridView1.Item(3, x).Value nome.Text = y tele.Text = u mail.Text = z Dim con As OleDbConnection Dim com As OleDbCommand ' com = New OleDbCommand("insert into cliente (Nome, bi) values(@Nome,@bi)", con) con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Sour
  7. Este é a função que tenho Public Function IsValidContrib(ByVal contrib As String) As Boolean Dim s As Long Dim i As Integer Dim checkDigit As Integer Dim dblDivisao As Integer IsValidContrib = False checkDigit = 0 dblDivisao = 0 If Len(contrib) = 9 And IsNumeric(contrib) = True Then If (Mid(contrib, 1, (1)) = 1 Or Mid(contrib, 1, (1)) = 2 Or Mid(contrib, 1, (1)) = 5 Or Mid(contrib, 1, (1)) = 6 Or Mid(contrib, 1, (1)) = 8 Or Mid(contrib, 1, (1)) = 9) Then For i = 1 To 8 checkDigit = checkDigit + (Mid(contrib, i, (1)) * (10 - i)) Next checkDigit = 11 -
  8. Bom dia, Estou com dificuldades no código para a leitura de horas. É o seguinte, tenho uma coluna com várias horas e preciso de as ler. Por exemplo, <Coluna 11> 08:20:30 08:54:14 09:10:45 ... E preciso de algo deste genero: h_inicial = Format(Time, "08:00:00") h_final = Format(Time, "16:00:00") h1_inicial = Format(Time, "16:00:00") h1_final = Format(Time, "00:00:00") h2_inicial = Format(Time, "00:00:00") h2_final = Format(Time, "08:00:00") For i = 2 To lastrow If Cells(i, 11) > h_inicial And Cells(i, 11) <= h_final Then Cells(i
  9. FelixAlmeida_3

    Login

    Bom dia pessoal, Estou neste momento a desenvolver a minha PAP que é um software de gestão para a biblioteca da minha escola. Criei o login e gostava de colocar uma mensagem após a entrada a dizer "Bem-vindo (e aparecer a seguir o nome que tinha sido colocado no nome de utilizador inserido no login)". Cumprimentos, Carlos Almeida.
  10. Bom dia, Criei um Array Dinâmico do tipo string. Como é que eu posso verificar se o Array já tem valores ou ainda não tem valor nenhum? E como é que eu retiro os valores todos ao Array? Obrigado
  11. A todo o Pessoal do do Fórum um bom dia, um bom fim de semana Prolongado! O que me leva a novamente estar a chatear-vos é o seguinte, tenho um código que está num ficheiro access e que precisava colocar a funcionar no Excel. Dava para dar uma ajuda? desde já um muito obrigado e um bom fim de semana de Páscoa. Option Explicit Public Function DuracaoTarefa(dtInicio As Date, dtFim As Date) As Integer '.................................................................... ' Nome: DuracaoTarefa ' Entradas: dtInicio As Date ' dtFim As Date ' Saída: Integer (Minutos) ' Autor: Arvin Meyer ' Da
  12. Tenho uma amostragens de valores e procuro fazer um estudo de capabilidade, mas pretendia pegar na amostragem e procurar automaticamente (via script VBA ou alguma macro para o excell) de maneira a indicar quais as amostras que mais influenciam para uma má capabilidade? ou alguem me consegue explicar como conseguir perceber qual a amostragem que posso retirar do estudo da capabilidade? obrigado
  13. Bom dia, É possível criar um ciclo For i=3 To "encontrar linha formatada " ?? Cumprimentos
  14. Olá a todos. Gostaria de obter ajuda, se for possível. Tenho uma lista em Excel com cerca de 300 linhas. Os dados foram importados de um PDF. Cada linha tem o nome completo da pessoa e à frente a classificação do teste. Isto tudo numa coluna apenas. Como o objetivo é ordenar pelo resultado obtido no teste fiz o seguinte: Separei os dados de cada linha, que estavam apenas numa coluna, em várias colunas cada uma delas contendo um nome. Acontece que como os nomes são de tamanhos diferentes, o valor da classificação aparece em colunas diferentes em cada linha. Pergunto qual a melhor solução
  15. Bom dia, Sei que não é o local indicado mas preciso de ajuda em relação à condição If no excel. Preciso do seguinte: - Se os valores da coluna forem inferiores a 300 (H5<300), quero "Menor"; - Se os valores estiverem entre 300(igual) e 340(igual) (300<=H5<=340), quero "Entre"; - Se os valores forem superiores a 340 (H5>340), quero "Mais". Já tentei de todas as maneiras e não consegui, alguma ajuda? Obrigada!
  16. Boas a todos e desde já um obrigado pela futura ajuda, Estou a realizar um exercício em que consiste realizar um programa que envolve arrays onde tenho de gerar 5 números não repetitivos no género do totoloto. A minha dúvida é a seguinte: Tenho que fazer um multiplicador do nº de apostas que me permita realizar mais que uma aposta para me apresentar mais conjuntos de 5 números aleatórios. Ou seja, se fazer uma aposta, aparece-me 5 números numa textbox e 1 número definido como o número da sorte numa textbox à parte. O que pretendo é que, por exemplo, caso meto o valor do nº de apostas como "2
  17. Boa Noite, Gostava de saber como colocar uma hora a iniciar quando começar uma prova desportiva no excel? E já agora, se possível, gostava de saber, como colocar um cronómetro no excel para essa mesma prova desportiva? Cumprimentos, Abraço
  18. Galera preciso de um código que some todos os valores dentro de 3 colunas na Plan1 e após feito isso o código irá para uma segunda aba ( Plan 2) e somara os valores de uma coluna. Após a soma dos valores de ambas abas o código deve verificar se O VALOR TOTAL da soma dos valores das 3 colunas (plan2) é igual o valor total da soma da coluna (Plan1). Se alguém puder ajudar!! Exemplo: Estas são as colunas da planilha 1. ( O numero de colunas sempre será 3, mas o numero de linhas pode variar, portanto o progama deve possuir por exemplo um FOR até chegar em alguma linha em branco, quando chegar
  19. Boas pessoal, Apesar de vários tópicos sobre contar cor no Excel (com vba) não encontro resultado para a minha duvida.... Numa determinada folha de Excel preciso de contar numa linha células com fundo de cor mas só se uma determinada letra estiver noutra linha. ex: contar na Linha 2 células amarelas se na linha 1 houver a letra C Também era interessante, a mesma situação mas para contar fonte colorida. Ex: contar na Linha 2 números com fonte vermelha se na linha 1 houver a letra C Obrigado
  20. Ola pessoal, estou precisando de uma ajudinha. tenho duas colunas departamento e linha na mesa sheet preciso carregar uma combobox usando VBA com a coluna departamento sem repetiçao e ao escolher um item da combobox, carregar uma segunda combobox com os dados da Linha tambem sem repetiçao. tenho um codigo que consigo carregar a primeira combobox, mas como carrego a segunda combobox a partir do que foi selecionado na primeira ? Private Sub UserForm_initialize() Dim ultimaLin As Long, area As New Collection Dim Value As Variant, temp() As Variant On Error Resume Next ultimaLin = Sheets("
  21. Boa tarde, há alguma forma de actualizar apenas o código de um .xlsm sem perder dados nas folhas de dados?
  22. Eu estou com um pequeno problema na minha calculadora. Já fiz pesquisa no google e outros motores de busca mas infelizmente não encontrei nenhuma solução ao meu problema. Já fiz o design e o código para as operações. Preciso de ajuda para entender a função "parse" e com aplica-la. Não estou a pedir que me façam o código mas sim uma pequena ajuda de como utilizar e entender o que ele faz. Desde já obrigado.
  23. Bom dia, Estou com uma dúvida, se alguém me conseguir ajudar, agradeço! É o seguinte, peço ao utilizador para inserir uma data inicial (defino como sendo a) e uma data final (defino como sendo b). Depois quero comparar as datas que tenho numa coluna com as datas dadas pelo utilizador, algo deste genero: If cells(i,5)>=a and cells(i,5)<=b then Contudo, a macro não lê o valor da célula(i,5) ! Alguma ajuda? Obrigada!!
  24. Bom dia, A minha dúvida é a seguinte, tenho os seguintes dados: <ColunaB> 1 2 5 8 6 15 46 25 13 4 ... E quero acrescentar uma coluna ao lado que me faça o seguinte, se os nr. (da colunaB) forem de 1 a 15 , na nova coluna quero o nr.1 (em cada célula, por exemplo se numa célula da colunaB tiver o nr.2 quero que na nova coluna apareça o nr.1, isto na célula ao lado), de 16 a 30 quero o nr.2 e de 31 a 45 o nr.3. Posso iniciar assim: For i=3 to lastRow If cells (i,2) <> " " then ... Alguma ajuda? Sou muito nova nisto! Ficaria algo do género: <ColunaB>
  25. Boa noite amigos. Venho, por este meio, pedir a vossa ajuda. (junto envio o anexo onde explica detalhadamente o que se deseja) Trata-se do seguinte: Tenho um formulário que trata de requisições de processos. Ao abrir, aparecem duas opções: ou introduzir o Nº de Processo ou o Nº de Arquivo. Só poderá ser introduzido um destes valores. Ao clicar no botão OK, aparecerá, na parte direita do écran, no quadrado de cor verde, as informações respeitantes a esse processo ou nº de arquivo que constam na tabela Arquivo. No lado esquerdo do mesmo écran, numa zona alaranjada, irá a
×
×
  • 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.