ATENÇÃO NOVOS USUÁRIOS
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Pesquisa resultou em 56 ocorrências
- Dom Mar 22, 2020 12:00 pm
- Fórum: VBA Básico
- Tópico: userform no desktop
- Respostas: 4
- Exibições: 4789
Re: userform no desktop
Uma outra opcão alternativa é abrir o arquivo do Excel através de um script: Abra o Bloco de notas e coloque o seguinte código vbscript: Set xls = CreateObject("Excel.Application") xls.Visible = false ' **** ALTERE INHA ABAIXO > CAMINHO DO SEU ARQUIVO ***** Set Wb = Xls.Workbooks.Open("C:\Users\USER...
- Qui Fev 27, 2020 2:22 pm
- Fórum: Excel + Access
- Tópico: COMO ACESS ORDENAR - UP E DOWN - OU RECORTAR E COLAR
- Respostas: 2
- Exibições: 4712
Re: COMO ACESS ORDENAR - UP E DOWN - OU RECORTAR E COLAR
Olá nao pode ser atraves de consulta. Exemplo
Ascendente (A a Z, 0 a 9)
Ou decrescente (Z a A, 9 a 0)
Ascendente (A a Z, 0 a 9)
Código: Selecionar todos
SELECT Campo1, Campo2
FROM Sua_Tabela
ORDER BY Campo1 ASC;
Código: Selecionar todos
SELECT Campo1, Campo2
FROM Sua_Tabela
ORDER BY Campo1 DESC;
- Qua Dez 11, 2019 8:09 pm
- Fórum: VBA Básico
- Tópico: Impedir Digitação Após a Vírgula [RESOLVIDO]
- Respostas: 4
- Exibições: 1313
Re: Impedir Digitação Após a Vírgula
Exemplo: 123,55 (correto - 2 casas) 123,558 (errado - 3 casas) Bom pelo que entendi, conforme seu primeiro post que o usuário consiga inserir apenas 2 números apos a virgula: Mantenha o seu evento keyPress e acrescente o evento Change: Private Sub TxtValor_Change() Dim bMax As Byte bMax = VBA.Len(T...
- Ter Dez 10, 2019 4:33 pm
- Fórum: VBA Básico
- Tópico: Impedir Digitação Após a Vírgula [RESOLVIDO]
- Respostas: 4
- Exibições: 1313
Re: Impedir Digitação Após a Vírgula
Veja se a sugestao lhe atende: No evento change, do seu textbox Private Sub TextBox1_Change() formataMoeda TextBox1 End Sub Em um modulo padrao, (desta forma voce pode usar para outros controles), cole o codigo abaixo Sub formataMoeda(valor) If IsNumeric(valor) Then If InStr(1, valor, "-") >= 1 Then...
- Qua Abr 11, 2018 1:41 pm
- Fórum: VBA Básico
- Tópico: Abrir Multipage diferente [RESOLVIDO]
- Respostas: 2
- Exibições: 1267
Re: Abrir Multipage diferente
Exemplo
Para abrir na page1
para page2
para page3
Para abrir na page1
Código: Selecionar todos
UserForm1.MultiPage1.Value = 0
UserForm1.Show
Código: Selecionar todos
UserForm1.MultiPage1.Value = 1
UserForm1.Show
Código: Selecionar todos
UserForm1.MultiPage1.Value = 2
UserForm1.Show
- Sex Mar 16, 2018 4:37 pm
- Fórum: Excel - Integração com a Web
- Tópico: conexão do excel vba com mysql
- Respostas: 3
- Exibições: 2892
Re: conexão do excel vba com mysql
Acredito que esteja se referindo a mysql web. Para fazer que voce quer, é necessario criar um host web com um bd mysql com acesso remoto . Existem alguns free (veja essa lista): http://radixcode.com/top-free-4-hosts-that-provide-remote-access-to-mysql-database/. Mas o único que consegui utilizar foi...
- Qua Mar 14, 2018 3:34 pm
- Fórum: VBA Básico
- Tópico: [RESOLVIDO] ListBox em Ordem DECRESCENTE
- Respostas: 3
- Exibições: 3099
Re: ListBox em Ordem DECRESCENTE
A rotina inverte os dados contidos no listbox, sem uso de filtros ou abas auxiliares
Veja se é isso que deseja.
Veja se é isso que deseja.
- Ter Mar 06, 2018 9:27 am
- Fórum: Modelos Prontos
- Tópico: VBA - Preenchendo um listbox com mais de 10 colunas
- Respostas: 13
- Exibições: 6974
Re: VBA - Preenchendo um listbox com mais de 10 colunas
Faz o seguinte, dimensiona a area de dados do listbox. Por exemplo no evento initialize (configure o Listbox): Private Sub UserForm_Initialize() Dim arrLb() As Variant ReDim arrLb(0, 20) ' onde 20 é o nº de colunas With ListBox1 .Rowsource = "" .List = arrLb .ColumnCount = 20 .ColumnWidths = "50 pt;...
- Ter Mar 06, 2018 12:15 am
- Fórum: Modelos Prontos
- Tópico: VBA - Preenchendo um listbox com mais de 10 colunas
- Respostas: 13
- Exibições: 6974
Re: VBA - Preenchendo um listbox com mais de 10 colunas
Tem que acrescentar addItem With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Text .List(.ListCount - 1, 2) = comboBox1.Text .List(.ListCount - 1, 3) = TextBox2.Text .List(.ListCount - 1, 4) = TextBox3.Text .List(.ListCount - 1, 5) = comboBox2.Text .List(.ListCount - 1, 6) = TextBox4.Text '...
- Qui Mar 01, 2018 9:51 pm
- Fórum: Modelos Prontos
- Tópico: VBA - Preenchendo um listbox com mais de 10 colunas
- Respostas: 13
- Exibições: 6974
Re: VBA - Preenchendo um listbox com mais de 10 colunas
fbzam, com o Listbox acrescentando dados de textbox e combobox, seria mais ou menos assim: With ListBox1 .List(.ListCount - 1, 0) = TextBox1.Text .List(.ListCount - 1, 2) = comboBox1.Text .List(.ListCount - 1, 3) = TextBox2.Text .List(.ListCount - 1, 4) = TextBox3.Text .List(.ListCount - 1, 5) = com...