Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox, com base na range nomeada, ao clicar em um ítem na caixa de combinação(Combobox) os valores retornarão para um Label(Rótulo) e também para determinadas células na folha de planiha, a inserção de dados acontecerá a medida que for selecionando os ítens da ComboBox. Espero que o exemplo seja útil.
Fiquem com Deus, E_Marcondes.

'Esse procedimento esta em uma planilha que faz parte do Modulos Como Fazer - Programação Microsoft Excel VBA
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Worksheets("Plan1").Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
ActiveCell.Offset(0, 0).Value = "u" ' faz a formatação Wingdings (seta direita)
ActiveCell.Offset(0, 1).Value = ComboBox1.Value 'vai inserir código do lado da célula ativa também
ActiveCell.Offset(1, 0).Select ' e selecionar a próxima linha
Label1.Caption = "Item..: [ " & ComboBox1.Value & " ] inserido com sucesso"
End Sub

Aprenda tudo sobre o Apliicativo Microsoft Excel VBA - Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos SaberExcel

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), aumenta e diminui as medidas do Objeto CommandButton(Botão)
observe que a instrução IF, faz com que os eventos de clicar retorna a ação, fucionando como se fosse um botao de ativacao(Toggle)

Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub

Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub

'procedimento no módulo de edição do objeto Workbook, evento Auto_Open
Private Sub Workbook_Open()
With Saber1.CommandButton1
.Height = 20
.Width = 90
.Left = 150
.Top = 80
.Caption = "Sô tiancinha!!!"
End With
End Sub





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

Saberexcel - o site das macros
Exemplos de planilha do Aplicativo Microsoft Excel VBA, contendo userforms e textboxes, com simplicidade de contas a pagar, porém pode ser muito bem aproveitado, a intenção é ensinar um caminho para se fazer, uma boa formatação e usar alguns macros em exemplos de planilha.
Abaixo a imagem do formulário gerado pela planilha exemplo. Neste exemplo voce poderá ver como ligar um determinado textbox à uma célula, para mostrar um determinado valor.





Aprenda Microsoft Excel VBA - SaberExcel

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

Saberexcel - Site das Macros
Essas declarações e procedimentos do Aplicativo Microsoft Excel VBA, impede o usuário de mover o userform (formulário) pela folha de planilha, tornando-o estático, imóvel.


Private Declare Function RemoveMenu _
Lib "user32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) _
As Long

Private Declare Function FindWindowA _
Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Const MF_BYPOSITION As Long = &H400

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim lFrmHdl As Long, iCount As Integer
lFrmHdl = FindWindowA(vbNullString, Me.Caption)
If lFrmHdl <> 0 Then
'MF_BYCOMMAND
'Indicates that uPosition gives the identifier of the menu item.

'If neither the MF_BYCOMMAND nor MF_BYPOSITION flag is specified,
'the MF_BYCOMMAND flag is the default flag.

'MF_BYPOSITION
'Indicates that uPosition gives the zero-based relative position of the menu item.
'ie 0,1,2,3 etc
'Exit Sub
'Typical Windows has 6 menus
'Restore, Move, Size, Minimise, Maximize, Close
'Even though a Userform displays 2 = Move & Close
'By default Move is the Next item
'so just loop twice
For iCount = 0 To 1
RemoveMenu GetSystemMenu(lFrmHdl, False), 0, MF_BYPOSITION
Next iCount

End If
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel