La propietat THISCELL del objecte APPLICATION a VBA

per

Aquesta propietat ens retorna la cel·la des de la qual s’està executant una UDF. És una propietat molt interessant que ens pot ajudar a identificar en quina cel·la està fallant la nostra UDF

Exemple

Definim una funció molt senzilla que divideix 2 xifres

Function div(dividend As Long, divisor As Long)

    On Error GoTo error_funcio
    
    div = dividend / divisor

    Exit Function

error_funcio:

    Debug.Print "Hi ha un error a la cel·la " & Application.ThisCell.Address & " _ " & Err.Description

End Function

A la columna C apliquem la funció, apliquem la funció.

Quan anem a veure el control d’errors, podem identificar clarament les cel·les on la funció falla:

Feu un comentari