Search the Community
Showing results for tags 'vba'.
-
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
-
[Resolvido] Preciso de uma Ajuda Básica...
Prica posted a topic in Visual Basic for Applications (VBA)
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 -
Apagar 1 unico valor da base de dados?
HIGKILLER posted a topic in Visual Basic for Applications (VBA)
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() -
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
-
Erro para MSGBOX de datagridview (string converter)
HIGKILLER posted a topic in Visual Basic for Applications (VBA)
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 -
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
-
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 -
-
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
-
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.
-
Em VBA do Excel como é que se verifica se um array dinâmico do tipo string está vazio?
diogo_sousa posted a topic in Visual Basic for Applications (VBA)
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 -
Fazer com que código funcione no Excel
José luis leal posted a topic in Visual Basic for Applications (VBA)
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 -
Analise à amostragem para estudo de capabilidade?
Hugu posted a topic in Visual Basic for Applications (VBA)
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 -
Bom dia, É possível criar um ciclo For i=3 To "encontrar linha formatada " ?? Cumprimentos
-
Mover dados da última coluna de cada linha - Excel
fana81 posted a topic in Visual Basic for Applications (VBA)
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 -
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!
-
Multiplicar apostas num gerador tipo totoloto
noyus posted a topic in Visual Basic for Applications (VBA)
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 -
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
-
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
-
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
-
Comboboxs encadeados sem repetição de valores
Guilherme Artiles posted a topic in Visual Basic for Applications (VBA)
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(" -
Actualizar apena código sem alterar folhas
Ridelight posted a topic in Visual Basic for Applications (VBA)
Boa tarde, há alguma forma de actualizar apenas o código de um .xlsm sem perder dados nas folhas de dados? -
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.
-
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!!
-
Fazer corresponder um nr. a cada célula
Elisa Maio posted a topic in Visual Basic for Applications (VBA)
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> -
Formulário onde constem duas tabelas - uma mostra dados e noutra são inseridos dados
omjmesquita posted a topic in Visual Basic for Applications (VBA)
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