VBA: instrucción if de una sola línea con múltiples acciones

Este grupo especializado despúes de días de investigación y de recopilar de datos, hallamos la solución, deseamos que resulte útil para ti para tu proyecto.

Solución:

¡Absolutamente puedes!

If Dir("C:file.txt", vbDirectory) = "" Then  MsgBox "File doesn't exist" : Exit Sub

• los If declaración ya admite la sintaxis de una sola línea.
  En términos simples, esto significa que podemos tener:

  1. If boolean-expression Then
        execution
     End If
     

  2. If boolean-expression Then execution
     

     • Nótese la falta de End If en la segunda opción, ya que se omite por completo en la sintaxis de una sola línea
     • También tenga en cuenta que el bloque de ejecución solo puede contener una sola declaración

---

• Luego, otra forma de concatenar el código es con el : que actúa como una nueva línea ↵ en el compilador.

  Esta es una práctica bastante común en la declaración de variables:

  Dim x As Integer: x = 42
  

---

Ahora, apliquemos esos pasos juntos:

1. el codigo original

   If Dir("C:file.txt", vbDirectory) = "" Then 
      MsgBox "File doesn't exist"
      Exit Sub
   End If
   

2. Aplicando el linea solaIf sintaxis

   If Dir("C:file.txt", vbDirectory) = "" Then MsgBox "File Doesn't Exist"
   Exit Sub
   

3. Utilizar el : símbolo para poner Exit Sub en nuestra línea única If

   If Dir("C:file.txt", vbDirectory) = "" Then MsgBox "File Doesn't Exist" : Exit Sub
   

En VBA puedes ejecutar incluso más de dos líneas de código en uno, solo agregue : entre una instrucción y la otra! Esto es perfectamente legal:

If True Then MsgBox "True - Line 1": MsgBox "True - Line 2": Exit Sub

Si aceptas, eres capaz de dejar una crónica acerca de qué le añadirías a este post.

---

---

Utiliza Nuestro Buscador