Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application),
USERFORM: INSERIR COMENTARIO COM DADOS PERSONALIZADOS
Planilha Excel VBA comentário personalizado userform TextBox inserir
Planilha Excel VBA comentário personalizado userform TextBox inserir
Ao efetuar um duplo click nas area (N5:N14), abrirá um USF(Formulario) com textboxes para serem preenchidos. Quando Preechidos inserirá um Comentario na Célula específica e mostrará o comentario proviniente de suas entradas(Digitação). Caso Dê um Duplo clique onde contém algum comentário, será deletado automáticamente.
Fique com Deus,
‘procedimento usado no Userform.
Private Sub CommandButton1_Click()
Dim vCom As String
Dim i As Byte
Dim vRoteirov
Com = Me.TextBox1.Value & ” Kilometros a Viajar, ” & vbLf
vRoteiro = Array(“Cidade Partida : “, “Passo 1 – Cidade : “, “Passo 2 – Cidade: “, “Cidade Chegada : “)
For i = 2 To 5
If Me.Controls(“TextBox” & i).Value <> “” Then vCom = vCom & vRoteiro(i – 2) & _Me.Controls(“TextBox” & i).Value & “, ” & vbLf
Next i
‘//===== comentarios adicionar célula específica
Debug.Print vCom
ActiveCell.AddComment vCom
With ActiveCell.Comment.Shape.OLEFormat.Object
.AutoSize = True
.Interior.ColorIndex = 38 ‘rosa salmão
With .Font
.Name = “Comic Sans MS”
.Size = 8
.Bold = True
.ColorIndex = 10
End With
End With
Unload Me
End Sub
‘//========= NO EVENTO CHANGE DA FOLHA DE PLANILHA
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim vResposta As String
If Not Intersect(Target, [N13:N22]) Is Nothing Then
Cancel = True
With Target
If .Comment Is Nothing Then
frmROTEIRO.Show
Else
.Comment.Delete
End If
End With
End If
End Sub
‘//=========
Expedito Marcondes.
Escola SaberExcel VBA Estudos
site….: http://www.saberexcel.com.br
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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 SBI Excel VBA – comentário Userform TextBox inserir |
| << Download Link: Verifique também Caixa de Itens Excluídos >> |
SBI Excel VBA – comentário Userform TextBox inserir
