macro_mayusculas.bas

  1. Attribute VB_Name = "Módulo1"
  2. 'La macro empieza por SUB
  3. ' y luego va el nombre de la macro
  4. Sub ProbarVariable()
  5.  
  6. 'Declaración de unas variables
  7. ' El tipo de la variable es monetario
  8. Dim importe As Currency
  9. Dim valor As Currency
  10.  
  11. 'Las instrucciones se ejecutan secuencialmente
  12.  
  13. ' La asignación se hace con =
  14. ' A la izquierda de la asignación se pone la variable
  15. ' A la derecha va la fórmula
  16. importe = 9000
  17. valor = importe * 5
  18. MsgBox valor
  19.  
  20. valor = 20 * 30
  21. MsgBox valor
  22.  
  23. valor = valor + 1
  24. MsgBox valor
  25.  
  26. End Sub
  27.  
  28. Sub PonerMayusculas()
  29.  
  30. Dim valor As String
  31.  
  32. 'Leer lo que hay en la celda
  33. valor = ActiveCell.Value
  34.  
  35. 'Pone en mayúsculas la variable
  36. valor = UCase(valor)
  37.  
  38. 'Escribe la variable en la celda
  39. ActiveCell.Value = valor
  40.  
  41. End Sub
  42.  
  43. Sub PonerMinusculas()
  44.  
  45. Dim valor As String
  46.  
  47. 'Entrada de datos
  48. valor = ActiveCell.Value
  49.  
  50. 'Cálculo
  51. valor = LCase(valor)
  52.  
  53. 'Mostrar resultado
  54. ActiveCell.Value = valor
  55.  
  56. End Sub
  57.  
  58. Sub PonerNombrePropio()
  59.  
  60. Dim valor As String
  61.  
  62. 'Entrada de datos
  63. valor = ActiveCell.Value
  64.  
  65. 'Cálculo
  66. valor = WorksheetFunction.Proper(valor)
  67.  
  68. 'Mostrar resultado
  69. ActiveCell.Value = valor
  70.  
  71. End Sub
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  

Proinf.net