Adicionado em: | 31/10/2011 |
Modificado em: | 31/10/2011 |
Tamanho: | Vazio |
Downloads: | 1134 |
Esses macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o Evento Worksheet_Change, afeta a folha de planilha ativa ao digitar algo, neste caso escolhemos duas células (B5 e D5), ao digitar nestas células determinadas palavras o aplicativo abrirá um
userform com algumas textbox vai inserir dados em determinadas colunas na folha de planilha.
Espero que o exemplo lhe seja útil. Fique com Deus, Expedito Marcondes.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
INSIRA O CÓDIGO ABAIXO NA FOLHA DE CÓDIGO DA FOLHA DE PLANILHA
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" And Target.Count = 1 Then
If Target.Value = "Motor" Then
frmDADOS1.Show
End If
ElseIf Targett.Address = "$D$5" And Target.Count = 1 Then
If Target.Value = "Ponte" Then
frmDADOS2.Show
End If
End If
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
NO MODULO DE EDIÇÃO DO FORMULÁRIO frmDADOS1 INSIRA OS CÓDIGOS:
Private Sub cmdLANCAR_Click()
[O6:P1000].ClearContents 'limpar a area de inserção de novos dados.
Plan1.[O65000].End(xlUp).Offset(1, 0) = "Largura"
Plan1.[O65000].End(xlUp).Offset(0, 1) = CDbl(txtLARGURA)
Plan1.[O65000].End(xlUp).Offset(1, 0) = "Comprimento.:"
Plan1.[O65000].End(xlUp).Offset(0, 1) = CDbl(txtCOMPRIMENTO)
MsgBox ("Dados inseridos com sucesso"), vbInformation, "Saberexcel - o site das macros"
End Sub
Private Sub cmdFECHAR_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
txtLARGURA.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
NO MODULO DE EDIÇÃO DO FORMULÁRIO frmDADOS2 INSIRA OS CÓDIGOS:
Private Sub cmdLANCAR_Click()
[J6:K1000].ClearContents
Plan1.[J65000].End(xlUp).Offset(1, 0) = "Potencia"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtPOTENCIA)
Plan1.[J65000].End(xlUp).Offset(1, 0) = "Tensão"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtTENSAO)
Plan1.[J65000].End(xlUp).Offset(1, 0) = "Rotação"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtROTACAO)
MsgBox ("Dados inseridos com sucesso"), vbInformation, "Saberexcel - o site das macros"
End Sub
Private Sub UserForm_Initialize()
txtPOTENCIA.SetFocus
End Sub
Private Sub cmdFECHAR_Click()
Unload Me
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: | 26/11/2012 |
Modificado em: | 26/11/2012 |
Tamanho: | Vazio |
Downloads: | 1140 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esse procedimento do Aplicativo Microsot Excel VBA(Visual Basic Application), mostra um objeto TextBox e acompanha
o Cursor de acordo com a célula selecionada, aproveitei também para incrementar o exemplo adicionando um objeto Image
do VBA.
Questão proposta: e Respondida
Objeto textbox e imagem(Saberexcel) acompanha o cursor:
Prezado Marcondes
Preciso de um macro que ao usuario clicar em determinada célula,
um objeto TextBox acompanhe o cursor na folha de planilha, por
exemplo uma coluna a direita do cursor(Celula) Ativa.
Se puder ajudar, sou-lhe muito grato.
(***) gostei muito do Curso Completo MS Excel VBA.
João B. S. F. - Jundiai - SP
RESp: Prezado Amigo João Batista, Obrigado,
Fiz um macro para simulando sua necessidade, Na célula(D1), inseri uma condição,
se Celula(D1) for igual 1 mostra a Textbox e acompanha durante a digitação.
Isso você poderá inserir a condição desejada, intervalo de linhas, resultado de uma totalização de dados, ou data especifica, ou diferença datas,
ao selecionar determinada area servindo como um alerta,
Espero que seja isso que esteja precisando,
Fique com Deus,
Expedito Marcondes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vRegiao = Range("c8:g17")
If Not Intersect(Target, vRegiao) Is Nothing Then
If Range("d5").Value = 1 Then
Shapes("TextBox1").Visible = True
Shapes("Image1").Visible = True
Shapes("TextBox1").Left = Target.Offset(0, 1).Left
Shapes("TextBox1").Top = Target.Offset(1, 0).Top
Shapes("Image1").Left = Target.Offset(0, 5).Left
Shapes("Image1").Top = Target.Offset(1, 0).Top
Else
Shapes("TextBox1").Visible = False
Shapes("Image1").Visible = False
End If
Else
Shapes("TextBox1").Visible = False
Shapes("Image1").Visible = False
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.
Baixe o exemplo de planiha contendo os macros acima: <<< Registre-se em nosso Site >>>
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1165 |
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando UserForm e ComboBox, mostram determinados dados relacionados em outra caixa de combinação (ComboBox), alterando simultaneamente a Propriedade RowSource de ambas.
Private Sub Cb1_Click()
'A maneira de se fazer é Alterar a propriedade RowSouce pelo código
'Esse If testa qual o Depto foi escolhido
If Cb1.ListIndex = 0 Then 'ListIndex 0 representa o primeiro dpto da lista
Cb2.RowSource = "Adm" 'Adm é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
ElseIf Cb1.ListIndex = 1 Then 'ListIndex 1 representa o segundo dpto da lista e assim por diante
Cb2.RowSource = "Prod" 'Prod é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
End If
End Sub
'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
'não esqueça que a numeração da lista inicia em 0
Private Sub UserForm_Activate()
Cb1.RowSource = "Dept"
Cb1.Text = Cb1.List(0) '0 é o primeiro item da lista
End Sub
'Abaixo o evento change de uma combobox somente para voce ver como montar uma mensagem concatenando dados
Private Sub Cb2_Change()
[J3].Value = Cb2.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub
Private Sub Cb1_Change()
[J2].Value = Cb1.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub
Aprenda Aplicativo Microsoft Excel VBA(Visual Basic Application) - com Saberexcel
Adicionado em: | 05/03/2011 |
Modificado em: | 05/03/2011 |
Tamanho: | Vazio |
Downloads: | 1191 |
Esses procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), oculta e ou mostra determinada folha de planilha,
como também determinadas Colunas. Observe que muda o caption e a cor do commandbutton no usf(userform), conforme a o procedimento,
o procedimento verifica o caption do botão e status da planilha se está ou não oculta, para não perder o caption do commandbutton,
também a propriedade AllowFiltering:=True, veja abaixo a explicação, essa propriedade é para que o autofiltro funcione com a planilha protegida.
Veja abaixo explicação Microsoft.
Private Sub CommandButton12_Click()
Dim vPlanilha As Worksheet
For Each vPlanilha In ThisWorkbook.Worksheets
If vPlanilha.Name <> "" Then vPlanilha.Unprotect ""
Next
With Sheets("1").Range("D1:J1").EntireColumn
.Hidden = Not .Hidden
If .Hidden Then CommandButton12.Caption = "Visível" Else CommandButton12.Caption = "Invisível "
End With
If Sheets("2").Visible = True Then
Sheets("2").Visible = False
Saber3.Shapes("sb").Visible = False
Else
Sheets("2").Visible = True 'planilha referenciada pelo nome da folha de planilha
Saber3.Shapes("sb").Visible = True 'planilha referenciada pelo nome da folha de código da folha de planilha
End If
For Each vPlanilha In ThisWorkbook.Worksheets
If vPlanilha.Name <> "" Then vPlanilha.Protect "", _
DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Next
Unload frmMENU
End Sub
Private Sub UserForm_Initialize()
'ao inicializar verifica se as células D1:J1, estão ocultas para o correto caption do botão
If Sheets("1").Range("D1:J1").EntireColumn.Hidden Then
CommandButton12.Caption = "Visível"
CommandButton12.BackColor = vbGreen
CommandButton12.ForeColor = &H80000012
Else
CommandButton12.Caption = "Invisível"
CommandButton12.BackColor = vbRed
CommandButton12.ForeColor = &HFFFFFF
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1232 |
Saberexcel - o site das macros
Esses procedimentos e declarações do Aplicativo Microsoft Excel VBA, retiram o (X) de fechar o userform, você poderá usar isso para forçar o usuário a sair por um botão que o conduzirá a um outro lugar ou uma mensagem., baixe o exemplo, link no final da página.
INSIRA AS DECLARAÇÕES ABAIXO EM UM MÓDULO COMUM
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = -16
Public Const WS_SYSMENU = &H80000
Sub ChamarForm()
UserForm1.Show
End Sub
INSIRA OS PROCEDIMENTOS ABAIXO NA FOLHA DE CÓDIGO DO OBJETO USERFORM
Private Sub Label2_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink "http://www.saberexcel.com.com/"
End Sub
Private Sub Label3_Click()
Link = "mailto:[email protected]"
On Error GoTo SbError
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True '
Exit Sub
bError:
MsgBox "mensagem....... " & Link
End Sub
Private Sub UserForm_Initialize()
Dim hWnd As E_MarLong, lStyle As Long
If Val(Application.Version) >= 9 Then
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Else
hWnd = FindWindow("ThunderXFrame", Me.Caption)
End If
lStyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, (lStyle And Not WS_SYSMENU)
End Sub
Aplicativo Microsoft Excel VBA - Saberexel - o site das macros
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