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

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
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.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
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


_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
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

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
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