Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objeto userform e um CheckBox oculta todos os controles
Labels, TextBoxes e CommandButtons do objeto Userform.

Private Sub CheckBox1_Click()
Dim c As Control
For Each c In Me.Controls
If CheckBox1 = True Then
Select Case TypeName(c)
Case "TextBox"
c.Visible = False
Case "Label"
c.Visible = False
Case "CommandButton"
c.Visible = False
End Select
CheckBox1.Caption = "Objetos Ocultos"
CheckBox1.BackColor = &HFFFF00
CheckBox1.ForeColor = &HFF&
Else
Select Case TypeName(c)
Case "TextBox"
c.Visible = True
Case "Label"
c.Visible = True
Case "CommandButton"
c.Visible = True
End Select
TextBox1.SetFocus
CheckBox1.Caption = "Ocultar Objetos"
CheckBox1.BackColor = &H80C0FF
CheckBox1.ForeColor = &H8000&
End If
Next c
lblSBX.Visible = True 'mostrando label desejado.
End Sub

Private Sub fechar_Click()
End
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.

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.

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 >>>

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

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

Private Sub ComboBox1_Click()
Dim i As Byte
'------------'
For i = 1 To 4
Controls("textbox" & i).Visible = False 'torna visivel a textbox(caixa de texto) desejada
Next i
Controls("textbox" & ComboBox1.ListIndex + 1).Visible = True
'------------'

'apenas formatação dos objetos (treinamento excel vba)
'observe que somente copiei a parte do código acima em laranja e inserí como Caption e ou Backcolor dos objetos desejados
Frame1.Caption = Controls("textbox" & ComboBox1.ListIndex + 1)
ComboBox1.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
Label1.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
Label2.ForeColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
frmSaberexcel_Treinamento.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
End Sub

(esse exemplo faz parte dos nossos módulos COMO FAZER - Programação MS Excel VBA)


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel