Zanin
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 05/07/2008 12:11 hs
Caros, alguem porderia me ajudar?
Gostaria de saber se existe alguma função ou programação em VB para contar a quantidade de celulas que possuem comentarios.
quando digo comentario me refiro a função de inserir comentario um comentario na célula.
|
|
|
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/07/2008 01:37 hs
Set cmt = Worksheets(1).Comments
d = 0
For Each c In cmt
d = d + 1
Next
Plan1.Range("J23") = d
Problema solucionado = click no cadeado para post encerrado!!!!!!!!!
|
|
|
|
zanin
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2008 22:06 hs
Cara valew pela ajuda so que não consigo executar em vb. |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2008 23:28 hs
Private Sub Form_Load() 'Chama o excel abrindo o arquivo indicado
Set myxl = CreateObject("Excel.Application")
Workbooks.Open App.Path & "pasta1.xls"
'Torna este excel invisivel
myxl.Visible = False Dim MyPlan As Excel.Worksheet
'Atualiza planilha Rec0XX
Set MyPlan = myxl.Worksheets("PLAN1")
'Executa macro que contaComentarios
MyPlan.Select
myxl.Run "ContaComen"
'Retorna quantidade de comentarios
MsgBox MyPlan.Range("J23")
'Fecha excel
myxl.ActiveWorkbook.Save
myxl.Parent.Quit 'Libera objeto da memoria
Set myxl = Nothing End Sub
|
|
|
|
