Procedementos "Función" e "Sub" en VBA

Funcións VBA integradas

Antes de comezar a crear as súas propias funcións VBA, é bo saber que Excel VBA ten unha rica colección de funcións integradas preconstruídas que pode usar mentres escribe o seu código.

Pódese ver unha lista destas funcións no editor de VBA:

• Abra un libro de Excel e inicie o editor VBA (faga clic para facelo Alt + F11) e, a continuación, prema F2.
• Seleccione unha biblioteca na lista despregable da parte superior esquerda da pantalla VBA.
• Aparecerá unha lista de clases e funcións de VBA incorporadas. Fai clic no nome da función para mostrar a súa breve descrición na parte inferior da xanela. presionando F1 abrirá a páxina de axuda en liña para esa función.

Ademais, pódese atopar unha lista completa de funcións VBA integradas con exemplos no Centro de Desenvolvedores de Visual Basic.

Procedementos personalizados "Función" e "Sub" en VBA

En Excel Visual Basic, un conxunto de comandos que realizan unha tarefa específica colócase nun procedemento. función (Función) ou submarino (Subrutina). A principal diferenza entre os procedementos función и submarino é ese o procedemento función devolve resultado, procedemento submarino - non.

Polo tanto, se precisa realizar accións e obter algún resultado (por exemplo, sumar varios números), adoita utilizarse o procedemento. función, e para simplemente realizar algunhas accións (por exemplo, cambiar o formato dun grupo de celas), cómpre seleccionar o procedemento submarino.

Argumentos

Pódense pasar varios datos aos procedementos VBA mediante argumentos. A lista de argumentos especifícase ao declarar un procedemento. Por exemplo, o procedemento submarino en VBA engade o número enteiro dado (Enteiro) a cada cela do intervalo seleccionado. Podes pasar este número ao procedemento usando un argumento, como este:

Sub AddToCells(i As Integer) ... End Sub

Teña presente que ter argumentos para os procedementos función и submarino en VBA é opcional. Algúns procedementos non requiren argumentos.

Argumentos opcionais

Os procedementos VBA poden ter argumentos opcionais. Estes son argumentos que o usuario pode especificar se quere e, se se omiten, o procedemento utiliza os valores predeterminados para eles.

Volvendo ao exemplo anterior, para facer un argumento enteiro para unha función opcional, declararíase así:

Sub AddToCells (Opcional i Como enteiro = 0)

Neste caso, o argumento enteiro i o valor predeterminado será 0.

Pode haber varios argumentos opcionais nun procedemento, todos eles listados ao final da lista de argumentos.

Pasando argumentos por valor e por referencia

Os argumentos en VBA pódense pasar a un procedemento de dúas formas:

• Por Val – pasar un argumento por valor. Isto significa que só se pasa o valor (é dicir, unha copia do argumento) ao procedemento e, polo tanto, os cambios realizados no argumento dentro do procedemento perderanse ao finalizar o procedemento.
• PorRef – pasar un argumento por referencia. É dicir, o enderezo real da localización do argumento na memoria pásase ao procedemento. Calquera cambio que se realice nun argumento dentro do procedemento gardarase ao finalizar o procedemento.

Usando palabras clave Por Val or PorRef na declaración do procedemento, pode especificar como se pasa o argumento ao procedemento. Isto móstrase nos seguintes exemplos:

Sub AddToCells(ByVal i As Integer) ... End Sub

Sub AddToCells(ByRef i As Integer) ... End Sub

Lembre que os argumentos en VBA pásanse por referencia por defecto. Noutras palabras, se non se usan palabras clave Por Val or PorRef, entón o argumento pasarase por referencia.

Antes de proceder aos trámites función и submarino con máis detalle, será útil botar unha nova ollada ás características e diferenzas entre estes dous tipos de procedementos. A continuación móstranse breves discusións dos procedementos de VBA función и submarino e móstranse exemplos sinxelos.

Procedemento VBA «Función»

O editor de VBA recoñece o procedemento funcióncando atopa un grupo de comandos entre as seguintes instrucións de apertura e peche:

Función... Finalizar función

Como se mencionou anteriormente, o procedemento función en VBA (en oposición a submarino) devolve un valor. Para os valores de retorno aplícanse as seguintes regras:

• O tipo de datos do valor de retorno debe ser declarado na cabeceira do procedemento función.
• A variable que contén o valor de retorno debe chamarse do mesmo xeito que o procedemento función. Non é preciso declarar esta variable por separado, xa que sempre existe como parte integrante do procedemento. función.

Isto está ben ilustrado no seguinte exemplo.

Exemplo de función VBA: Realización dunha operación matemática sobre 3 números

O seguinte é un exemplo de código de procedemento VBA función, que toma tres argumentos de tipo Dúas veces (números de coma flotante de dobre precisión). Como resultado, o procedemento devolve outro número de tipo Dúas vecesigual á suma dos dous primeiros argumentos menos o terceiro argumento:

Función SumMinus(dNum1 como dobre, dNum2 como dobre, dNum3 como dobre) Como dobre SumMinus = dNum1 + dNum2 - dNum3 Función final

Este procedemento VBA moi sinxelo función ilustra como se pasan os datos a un procedemento mediante argumentos. Podes ver que o tipo de datos devolto polo procedemento está definido como Dúas veces (as palabras din Como Dobre despois da lista de argumentos). Este exemplo tamén mostra como o resultado do procedemento función almacenado nunha variable co mesmo nome que o nome do procedemento.

Chamar ao procedemento VBA "Función"

Se o procedemento simple anterior función inserido nun módulo no editor de Visual Basic, pódese chamar desde outros procedementos VBA ou usar nunha folla de traballo nun libro de Excel.

Chame ao procedemento VBA "Función" desde outro procedemento

Procedemento función pódese chamar desde outro procedemento VBA simplemente asignando ese procedemento a unha variable. O seguinte exemplo mostra unha chamada a un procedemento Summinus, que se definiu anteriormente.

Sub main() Dim total as Double total = SumMinus(5, 4, 3) End Sub

Chame ao procedemento VBA "Función" desde unha folla de traballo

Procedemento VBA función pódese chamar desde unha folla de cálculo de Excel do mesmo xeito que calquera outra función integrada de Excel. Polo tanto, o procedemento creado no exemplo anterior función - Summinus pódese chamar introducindo a seguinte expresión nunha cela da folla de traballo:

=SumMinus(10, 5, 2)

Procedemento VBA «Sub»

O editor de VBA entende que hai un procedemento diante del submarinocando atopa un grupo de comandos entre as seguintes instrucións de apertura e peche:

Sub... End Sub

Procedemento VBA "Sub": Exemplo 1. O aliñamento central e o cambio de tamaño da fonte nun intervalo de celas seleccionado

Considere un exemplo dun procedemento VBA sinxelo submarino, cuxa tarefa é cambiar o formato do intervalo de celas seleccionado. As celas están centradas (tanto vertical como horizontalmente) e o tamaño da fonte cámbiase ao especificado polo usuario:

Sub Format_Centered_And_Sized (iFontSize opcional como enteiro = 10) Selection.HorizontalAlignment = xlCenter Selection.VerticalAlignment = xlCenter Selection.Font.Size = iFontSize End Sub

Este procedemento submarino realiza accións pero non devolve un resultado.

Este exemplo tamén usa un argumento Opcional Tamaño de letra. Se o argumento Tamaño de letra non pasou a trámite submarino, entón o seu valor predeterminado é 10. Non obstante, se o argumento Tamaño de letra pasou a trámite submarino, entón o rango de celas seleccionado establecerase co tamaño de fonte especificado polo usuario.

Subprocedemento de VBA: exemplo 2: aliñamento central e fonte en negra no intervalo de celas seleccionado

O seguinte procedemento é similar ao que acabamos de comentar, pero esta vez, en lugar de redimensionar, aplica un estilo de letra en negra ao intervalo de celas seleccionado. Este é un procedemento de exemplo submarino, que non leva argumentos:

Sub Format_Centered_And_Bold() Selection.HorizontalAlignment = xlCenter Selection.VerticalAlignment = xlCenter Selection.Font.Bold = True End Sub

Chamar ao procedemento "Sub" en Excel VBA

Chame ao procedemento VBA "Sub" desde outro procedemento

Para chamar a un procedemento VBA submarino doutro procedemento VBA, cómpre escribir a palabra clave Chamada, nome do procedemento submarino e máis entre parénteses están os argumentos do procedemento. Isto móstrase no seguinte exemplo:

Sub main() Call Format_Centered_And_Sized(20) End Sub

Se o procedemento Formato_Centrado_E_Tamaño ten máis dun argumento, deben estar separados por comas. Como isto:

Sub main() Call Format_Centered_And_Sized(arg1, arg2, ...) End Sub

Chame ao procedemento VBA "Sub" desde a folla de traballo

Procedemento submarino non se pode introducir directamente nunha cela da folla de Excel, como se pode facer cun procedemento funciónporque o procedemento submarino non devolve un valor. Con todo, procedementos submarino, que non teñen argumentos e decláranse como público (como se mostra a continuación) estará dispoñible para os usuarios da folla de traballo. Así, se os procedementos simples discutidos anteriormente submarino inserido nun módulo no Editor de Visual Basic, o procedemento Formato_Centrado_E_Negriña estará dispoñible para o seu uso nunha folla de cálculo de Excel e o procedemento Formato_Centrado_E_Tamaño – non estará dispoñible porque ten argumentos.

Aquí tes un xeito sinxelo de executar (ou executar) un procedemento submarino, accesible desde a folla de traballo:

• prensa Alt + F8 (preme a tecla alt e mentres o mantén premido, prema a tecla F8).
• Na lista de macros que aparece, selecciona a que queres executar.
• prensa Correr (correr)

Para realizar un procedemento submarino rápida e facilmente, pode asignarlle un atallo de teclado. Para isto:

• prensa Alt + F8.
• Na lista de macros que aparece, seleccione a que desexa asignar un atallo de teclado.
• prensa Parámetros (Opcións) e no cadro de diálogo que aparece, introduza o atallo de teclado.
• prensa OK e pecha o diálogo Macro (Macro).

Atención: Ao asignar un atallo de teclado a unha macro, asegúrese de que non se use como estándar en Excel (por exemplo, Ctrl + C). Se seleccionas un atallo de teclado xa existente, reasignarase á macro e, como resultado, o usuario pode iniciar a macro por accidente.

Ámbito do procedemento VBA

A parte 2 deste titorial discutiu o alcance das variables e constantes e o papel das palabras clave. público и Privado. Estas palabras clave tamén se poden usar con procedementos VBA:

Public Sub AddToCells(i As Integer) ... End Sub

Private Sub AddToCells(i As Integer) ... End Sub

Lembra que se antes de declarar un procedemento VBA función or submarino non se insire a palabra clave, establécese a propiedade predeterminada para o procedemento público (é dicir, estará dispoñible en todas partes neste proxecto VBA). Isto contrasta coas declaracións de variables, que son por defecto Privado.

Saída anticipada dos procedementos VBA "Función" e "Sub"

Se precisa finalizar a execución dun procedemento VBA función or submarino, sen esperar o seu final natural, entón para iso hai operadores Función de saída и Saír Sub. O uso destes operadores móstrase a continuación usando un procedemento sinxelo como exemplo. funciónA que espera recibir un argumento positivo para realizar máis operacións. Se se pasa un valor non positivo ao procedemento, non se poden realizar máis operacións, polo que se lle debe mostrar unha mensaxe de erro ao usuario e o procedemento debe saír inmediatamente:

Función VAT_Amount(sVAT_Rate As Single) As Single VAT_Amount = 0 If sVAT_Rate <= 0 Then MsgBox "Esperaba un valor positivo de sVAT_Rate pero recibido" e sVAT_Rate Función de saída Final se... Finalizar función

Teña en conta que antes de completar o procedemento función - Importe_IVE, insírese unha función VBA integrada no código MsgBox, que mostra unha ventá emerxente de aviso para o usuario.