Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
UDF
 
Notifications
Clear all

UDF

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
979 Visualizações
RSS
 dimorais
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Bom dia
Capturei essa Udf do site excel-user.com

Função GetFontColor (ByVal Target As Range) As Object
GetFontColor = Target.Fonte.ColorIndex
End Function

Na folha:
GetFontColor (A2)

Ao rodar apresenta erro.
Grato :D

 
Postado : 14/04/2014 5:18 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia dimorais,

Esta é uma função própria criada em VBA, é necessário implementar o código que deve ter sido disponibilizado pelo site.

Abraço

Marcos Rieper

 
Postado : 14/04/2014 5:22 am
 dimorais
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Marcos, essa Udf é a original do site, curtinha assim. :roll:

http://www.excel-user.com/2009/11/vba-g ... ction.html

 
Postado : 14/04/2014 5:28 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

1º ) Não é Função e sim Function;
2º ) Não é Fonte e sim Font

3º) No proprio site que citou tem a correção logo abaixo :

This function wouldn't work for me until I defined the GetFontColor as Long (not as Object) - and then it worked perfectly!

[]s

 
Postado : 14/04/2014 5:29 am
 dimorais
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Tem razão Mauro, está nos comentários. Falha nossa :D

 
Postado : 14/04/2014 5:32 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Verdade, não vi a função somente a chamada dela. Ato falho.

 
Postado : 14/04/2014 5:38 am
Forum Jump:
  Tópico Anterior
Próximo Tópico