Com dados como:
Insiraaseguintefunçãodefinidapelousuárioemummódulopadrão:
PublicFunctionFindAll(vAsVariant,rngAsRange)AsStringDimiAsLongary=rngFori=LBound(ary,1)ToUBound(ary,1)Ifv=ary(i,1)ThenFindAll=FindAll&"," & ary(i, 2)
Next i
FindAll = Mid(FindAll, 2)
End Function
Escolha uma célula, diga D7 e digite:
=MIN(A:A)
e em C7 digite:
=findall(D7,A1:B25)
FunçõesDefinidaspeloUsuário(UDFs)sãomuitofáceisdeinstalareusar:
- ALT-F11exibeajaneladoVBE
- ALT-IALT-Mabreumnovomódulo
- coleomaterialefecheajaneladoVBE
Sevocêsalvarapastadetrabalho,aUDFserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx
PararemoveroUDF:
- abrirajaneladoVBEcomoacima
- limpeocódigo
- fecheajaneladoVBE
ParausaroUDFdoExcel:
=myfunction(A1)
Parasabermaissobremacrosemgeral,consulte:
e
e para detalhes sobre UDFs, consulte:
As macros devem estar ativadas para que isso funcione!