Adicionado em: | 24/05/2011 |
Modificado em: | 24/05/2011 |
Tamanho: | Vazio |
Downloads: | 2070 |
Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o número da linha selecionado no objeto ComboBox, selecionando a linha pelo objeto ComboBox. Se a sua caixa de combinação é preenchida com todos os elementos em ordem (por exemplo, com a linha de código) ' ComboBox1.List=Range("A2:A" & Range("A65536").End(xlUp).Row).Value . Propriedade ListIndex fornece o número da linha correspondente. Dado que o primeiro elemento no índice 0, se inicia na linha 2 temos o número da linha ComboBox1.Listindex = + 2
Sugiro que baixe o exemplo de planiha no final da página para um melhor entendimento. Fiquem com Deus, Expedito Marcondes.
Private Sub UserForm_Initialize() 'carregar com a inicialização do Formulário(userform)
ComboBox1.List = Range("A2:A" & Range("A65536").End(xlUp).Row).Value
End Sub
Private Sub ComboBox1_Change() 'ao preencher(digitar) no objeto Combobox1
Cells(ComboBox1.ListIndex + 2, 1).EntireRow.Select 'selecionando a linha correspondente na folha de planiha
Set Area = Selection
Numero_Linha = Area.Row
MsgBox "Selecionou a linha: [" & Numero_Linha & "]" & " Selecionou ítem..: [ " & ComboBox1.Value & " ]", _
vbInformation, "Saberexcel - o site das Macros"
End Sub
Private Sub CommandButton1_Click()
Unload Me 'comando para fechar um formulário(Userform)
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Adicionado em: | 25/05/2011 |
Modificado em: | 25/05/2011 |
Tamanho: | Vazio |
Downloads: | 2792 |
Saberexcel - o site de quem precisa Aprender Macros MS excel VBA.
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objetos como TextBox, Labels e Frames, com intuíto didático, retorna a soma formatada em um Label(rótulo) com formatos para Moeda de todos os valores digitados na Textbox que retornam também para determinada coluna da folha de planilha, com isso fiz uma fórmula para auxiliar quem precisa usar alguma fórmula, que converte Euros em Reais, foi muito simples, usei um parâmetro de conversão em uma determinada célula e fiz uma formatação usando a função Texto(), como poderá ver na formula abaixo. Para melhor entendimento baixe o exemplo de planilha no link no final da folha de Planilha.
SABEREXCEL - Prática com Macros, Cursos vba, Modulos como Fazer, Funções de Planilha(VBA - observe que usei uma WorksheetFunction para retornar uma soma), não deixe de ler sobre as 340 PLANILHAS EXEMPLOS WORKSHEETFUNCTIONS VBA. Excel planilhas WorksheetFunctions Funções de Planilhas
Private Sub CommandButton1_Click()
TextBox1.Value = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
[D65000].End(xlUp).Offset(1, 0).Value = TextBox1.Value
Label1.Caption = Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €")
Frame1.Caption = "Valor Total: [ " & Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €") & " ]"
TextBox1.Value = ""
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Dim SBX As String, Start As Integer
SBX = TextBox1.Value
Start = TextBox1.SelStart
If SBX <> "" Then
If Right(SBX, 1) <> "€" Then
SBX = RTrim(SBX) & " €"
TextBox1.Text = SBX
TextBox1.SelStart = Start
End If
End If
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €")
TextBox1.SetFocus
End Sub
usei essa fórmula para retornar um valor(Moeda) convertido de Euros para Reais, talvez possa ser útil para alguém.
="SOMA..: [ R$ "&TEXTO(SUBTOTAL(9;D2:D23);"#.000,00 €")&" ] = "&TEXTO(SUBTOTAL(9;D2:D23)*L1;"#.000,00")&" Reais"
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
Adicionado em: | 25/05/2011 |
Modificado em: | 25/05/2011 |
Tamanho: | Vazio |
Downloads: | 827 |
SaberExcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.
Esses macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um SplashScreen, com duração de cinco(5) segundos, com auxílio de um Objeto Userform, após esses 5(cinco) segundos o procedimento fecha o Userform.
NA FOLHA DE EDIÇÃO DO OBJETO USERFORM INSIRA O SEGUINTE PROCEDIMENTO
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "Fechar_formulario"
End Sub
EM UM MODULO COMUM INSIRA OS SEGUINTES MACROS.
Sub Fechar_formulario()
ActiveWorkbook.RefreshAll
Unload frmSplash
End Sub
Sub Abrir_formulario()
frmSplash.Show 0
End Sub
NA FOLHA DE EDIÇÃO DO OBJETO WORKBOOK INSIRA O PROCEDIMENTO.
Private Sub Workbook_Open()
frmSplash.Show
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 18/06/2011 |
Modificado em: | 18/06/2011 |
Tamanho: | Vazio |
Downloads: | 1007 |
Saberexcel - o site de quem precisa Aprender sobre Macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), mostra os objetos TextBox desejados a partir de uma seleção no Objeto Combobox. Aproveitei para lhes mostrar como interagir com alguns outros objetos, formatando-os. É bem simples. Espero que o exemplo possa ajudá-los. Fiquem com Deus. Expedito Marcondes
Option Explicit
Adicionado em: | 19/06/2011 |
Modificado em: | 19/06/2011 |
Tamanho: | Vazio |
Downloads: | 2008 |
SaberExcel - O Site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), soma determinados valores na própria Caixa de Texto(TextBox),
usando o Evento AfterUpdate(Ocorre depois que os dados de um controle são alterados através da interface do usuário) por ex: ao digitar 756+3837+938 = Ao teclar Enter, retornará o resultado da soma na própria caixa de texto(Textbox) = 5531
Private Sub TextBox1_AfterUpdate()
Dim iValor, vTabela, vNum, i
On Error Resume Next
TextBox1 = Evaluate(TextBox1.Value)
If Err.Number Then
TextBox1 = ""
Err.Clear
End If
iValor = Me.TextBox1.Value
vTabela = Split(iValor, "+")
vNum = 0
For i = 0 To UBound(vTabela)
vNum = vNum + vTabela(i)
Next
Me.TextBox1.Value = vNum
Frame1.Caption = "Total da Soma..:" & TextBox1.Value
'observe que aqui vou fazer um exemplo para voce aprender um pouco sobre a propriedade offset, que deslocará dados,
'de determinado objeto para a célula na folha de planilha - lembre-se( ....Offset(linha, Coluna).
'Não deixe de ler sobre COMO FAZER - Programação MS excel VBA -(Propriedade offset),
'de extrema importancia no aprendizado ms Excel VBA
[A65000].End(xlUp).Offset(1, 0).Value = "Total..: [ " & TextBox1.Value & " ]"
[A65000].End(xlUp).Offset(0, 2).Value = "Soma executada no próprio TextBox1."
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA