INSERIR OS COMENTÁRIOS EM CÉLULAS DO EXCEL

 Tópico anterior Próximo tópico Novo tópico

INSERIR OS COMENTÁRIOS EM CÉLULAS DO EXCEL

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#480589 - 02/04/2018 21:16:38

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 11/02/2019 22:24:22 por JCM0867

Olá pessoal

Estou pegando dados de uma planilha do Excel:

Dim AppExcel As Object
Dim WBook As Object
AppExcel = CreateObject("Excel.Application")
WBook = AppExcel.Workbooks.Open(Planilha)

Para pegar o conteúdo da células sem problema
por exemplo:
Linha=1
Coluna=1
Texbox1.text = WBook.Application.Cells(Linha, coluna).Value

Digamos que essa Célula tb possui um comentário, como faço para o texto do comentário?

Grato




Resposta escolhida #480590 - 02/04/2018 21:39:14

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Texbox1.text = WBook.Application.Cells(Linha, coluna).Comment.Text

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#480591 - 02/04/2018 23:04:19

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Ok, deu certo
Valeu
Obrigado



#487076 - 11/02/2019 17:00:53

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 11/02/2019 17:07:46 por JCM0867

Olá pessoal
Reativando o Tópico, agora gostaria de inserir um comentário na Célula.

Tentei e não deu certo
WSheet.Cells(Linha, coluna).Comment = Texto

Como faço?
A célula já está pronta para receber o comentário

Grato





#487085 - 11/02/2019 17:57:25

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Para passar um comentário, teria que passar um objeto comentário. Se você quer só colocar um texto nele, use a propriedade Text, conforme mostrei anteriormente.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#487088 - 11/02/2019 18:12:07

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 11/02/2019 18:18:38 por JCM0867

 Anexos estao visíveis somente para usuários registrados

tentei com text tb não deu certo
WSheet.Cells(Linha, coluna).Comment.text = Texto

O conteúdo da células sem problema
WSheet.Cells(Linha, coluna).Value= Texto





#487090 - 11/02/2019 19:41:20

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Então você ainda não adicionou o objeto:

With WSheet.Cells(Linha, coluna).Comment
.Visible = True
.Text = "algo aqui
End With


_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#487091 - 11/02/2019 20:11:07

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 11/02/2019 20:12:11 por JCM0867

O mesmo erro persiste e não aceitou o .Visible=True




#487093 - 11/02/2019 20:49:30

LVFIOROT
SERRA
Cadast. em:Março/2012


grava uma macro e veja como se faz...

Sub teste()
'
' teste Macro
'

'
    Range("E9").Select
    Range("E9").AddComment
    Range("E9").Comment.Visible = False
    Range("E9").Comment.Text Text:="lvfiorot:" & Chr(10) & "xuxu beleza"
    Range("E16").Select
End Sub






#487130 - 13/02/2019 09:46:22

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 13/02/2019 09:47:36 por JCM0867

Usei a Solução do Kerplunk com as mudanças em vermelho e deu certo:

With WSheet.Cells(Linha, coluna).Comment
    .Visible = False
    .Text("algo aqui")
End With

Muito Obrigado





#487131 - 13/02/2019 10:08:17

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
É que fiz de cabeça só na intuição, então sintaxe pode estar incorreta

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por JCM0867 em 13/02/2019 10:57:26