Noticias

Exemplo de procedimento para adicionar 12 folhas ao Workbook, com os nomes dos meses:  

A Função CONTAR.VAZIO() [COUNTBLANK()] conta as células vazias num determinado Range:  

A Função dhRoman(123) ou, no exemplo, dhRoman(A1) retorna CXXIII: Código: Public Function dhRoman(ByVal intValue As Integer) As String ' Converte um numero decimal entre 1 and 3999 ' em numeração romana. ' A partir de "VBA Developer's Handbook, 2nd Edition" ' por Ken Getz and Mike Gilbert ' Copyright 2001; Sybex, Inc. All rights reserved. ' Exemplo: ' dhRoman(123) retorna …

A Função RptChar(), devolve o caracter digitado o número de vezes pretendido: Código: Public Function RptChar(ByVal strNum As String, _ ByVal intChar As String) As String Dim strOut As String strOut = String(strNum, intChar) RptChar = strOut End Function

A Função RptSpace() devolve um número de espaços entre cadeias de caracteres: Código: Public Function RptSpace(ByVal strNum As Variant) As String Dim strOut As String strOut = Space(strNum) RptSpace = strOut End Function