+- Forum Pplware (http://forum.pplware.com)
+-- Fórum: Mais Tech (/forumdisplay.php?fid=11)
+--- Fórum: Programação e Web (/forumdisplay.php?fid=16)
+--- Tópico: [VBA LibreOffice] Index out of range - Soluções (/showthread.php?tid=21719)
[VBA LibreOffice] Index out of range - Soluções - dininis - 28-10-2015 15:57
Muito boa tarde!
No meu trabalho tenho que trabalhar, diariamente, com o Libreoffice e certas funções que necessito utilizo o VBA do mesmo para contornar certos problemas.
Neste caso tenho uma função para organizar arrays multidimencionais ($A$1:$D$5, por exemplo), por colunas ou linhas. O meu problema dá-se quando quero utilizar essa mesma função para um array já calculado, em vez de um intervalo de células ({1;2;3;4;5}, por exemplo).
Passo a explicar,
nesta função: Exemplo(intel)
Se 'intel' for um intervalo de células ($A$1:$D$5), o array começa em array(1,1). Se for um valor ({1;2;3;4;5}), o mesmo já começa em array(0,0).
O problema dá-se com o intervalo de células. Para contornar a situação, teria que identificar o campo (0,0) do array como não definido e, de seguida, redefinir o array para iniciar nesse intervalo.
Mas... Não encontro nenhuma função que mo permita fazer, e não sei sequer se é possível tratar de 'exceptions' com este VBA do libreoffice.
Ideias?
RE: [VBA LibreOffice] Index out of range - Soluções - dininis - 28-10-2015 16:12
Resolvido com:
ReDim preserve Intel(UBound(Intel),UBound(intel,2))