Adicionado em: | 13/11/2011 |
Modificado em: | 13/11/2011 |
Tamanho: | Vazio |
Downloads: | 699 |
Saberexcel - o site de quem precisa aprender macros MS Excel VBA
Esses macros usando a instrução Select Case, chama determinada macro de acordo com o nome atribuido ao botão renomeado(Shapes),
objeto botão da barra de formulario do Aplicativo do Excel
Sub sbx_botao_clique()
[D:D].ClearContents
Select Case Application.Caller
Case "btnUM"
MsgBox ("Botão 1 - Numeros Pares"), vbInformation, "Escola Saberexcel VBA Estudos®"
sbx_inserir_autonumeracao_pares
Case "btnDOIS"
MsgBox ("Botão DOIS - Numeros Impares"), vbInformation, "Escola Saberexcel VBA Estudos®"
sbx_inserir_autonumeracao_impares
End Select
End Sub
Sub sbx_inserir_autonumeracao_pares()
vLinha = 0
[D:D].ClearContents
For vLinha = 0 To 20
[d45000].End(xlUp).Offset(1, 0).Value = vLinha
vLinha = vLinha + 1
Next
End Sub
Sub sbx_inserir_autonumeracao_impares()
vLinha = 1
[D:D].ClearContents
For vLinha = [F1].Value To 20 Step 1
[d45000].End(xlUp).Offset(1, 0).Value = vLinha
vLinha = vLinha + 1
Next
End Sub
Sub sbx_limpar_teste()
[D:D].ClearContents
[G1].Select
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 05/04/2012 |
Modificado em: | 05/04/2012 |
Tamanho: | Vazio |
Downloads: | 760 |
Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções
Esses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application), objetos userforms e Labels, frame, que mudam de cores
afetados pelo evento Mouse_Mouse.
Espero que gostem do exemplo, que possa lhe ser útil. Fique com Deus,
Expedito Marcondes - Curso Microsoft Excel VBA - vídeos de Treinamento Microsoft Excel VBA
'- - - - - - - - - - - - - - - - - - -'
Private Sub Frame1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For Each Control In Frame1.Controls
Control.BorderStyle = 0
Control.ForeColor = &H0&
Next Control
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame1.BorderStyle = 1
For Each Control In Frame1.Controls
Control.BorderStyle = 0
Next Control
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label1_Click()
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.BorderStyle = 1
Frame1.Caption = "Selecionou Macros"
Frame1.ForeColor = &HFF&
Label1.ForeColor = &HFF0000
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
UserForm1.Caption = "Aprenda tudo sobre Fórmulas - Escola SaberExcel"
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.BorderStyle = 1
Label2.ForeColor = &HFF0000
Label1.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Frame1.Caption = "Selecionou Treinamentos "
Frame1.ForeColor = &H80&
UserForm1.Caption = "Aprenda tudo sobre Funções - Escola SaberExcel"
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label3_Click()
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/index.php/curso-completo-microsoft-excel-vba.html", , True
End If
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label3.BorderStyle = 1
Label3.ForeColor = &HC0&
Label1.ForeColor = &HFF0000
Label2.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Frame1.Caption = "Selecionou Cursos Saberexcel"
Frame1.ForeColor = &HFF0000
UserForm1.Caption = "Aprenda tudo sobre Macros - Escola Saberexcel"
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label4_Click()
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label4.BorderStyle = 1
Label4.ForeColor = &H8000&
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Frame1.Caption = "Selecionou Curso Completo com Video-Aulas (SaberExcel)"
Frame1.ForeColor = &H8000&
UserForm1.Caption = "Aprenda Microsoft Excel VBA - Escola Saberexcel"
Label3.ForeColor = &H80000012
End Sub
'- - - - - - - - - - - - - - - - - - -'
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 792 |
Saberexcel - o site das macros - aqui voce encontra o que procura.
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que trabalha com Checkboxes, quando ativar determinada checkbox, que estão dispostos na folha de planiha na coluna(B), inserirá uma data e hora (Agora()) na coluna(C). São sete objetos checkboxes do vba que interagem com as macros.
Sub Processa_checkbox(sbObjeto)
Dim vLinha As Integer
Dim vRange As String
'Variaveis procura por todos os checkboxes inseridos plan
vLinha = sbObjeto.TopLeftCell.Row
vRange = "C" & CStr(vLinha)
'Insere na coluna(C) a data atual se o checkbox for ativado
If sbObjeto.Value = True Then
ActiveSheet.Range(vRange).Value = Now() 'nao esqueça de inserir a formatação personalizada na folha de planilha (Agora())
'Limpa a coluna C se a checkbox for destivada
Else
ActiveSheet.Range(vRange).Value = Null
End If
End Sub
Aprenda Aplicativo Microsoft Excel VBA com Saberexcel - o site das macros
Adicionado em: | 01/11/2011 |
Modificado em: | 01/11/2011 |
Tamanho: | Vazio |
Downloads: | 818 |
Saberexcel- o site de quem precisa aprender Macros MS Excel VBA
Esses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application), usando objetos textboxes, retorna a quantidade de textboxes
preenchidos, com uma operação matematica.
Private Sub cmdCONTAR_Click()
Dim vContador, iValor
ObjetosTxt = 10
iValor = 0
For vContador = 1 To ObjetosTxt
If Len(Me.Controls("cmbTEXTO" & vContador)) > 0 Then
iValor = iValor + 1
End If
Next
'uma mensagem com quebra de linhas -- intuito didático.
MsgBox "Neste formulário há: " & vbCrLf & _
"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" & vbCrLf & _
"[ " & iValor & _
" ] .....: - TextBox's preenchidos " & vbCrLf & "[ " & ObjetosTxt - iValor & _
" ] .....: - TextBox's Vazios " & vbCrLf & _
"[ " & Val(ObjetosTxt) & " ] .....: - TextBox's no Total" & _
vbCrLf & "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" & _
vbCrLf & "Escola Saberexcel VBA Estudos® - Treinamentos" & _
vbCrLf & "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", _
vbInformation, "Saberexcel VBA Estudos®"
End Sub
Private Sub cmdFECHAR_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.cmbTEXTO1.SetFocus
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
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
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