moduloMacros_2009_05_12.bas

  1. Attribute VB_Name = "moduloMacros_2009_05_12"
  2. Option Explicit
  3.  
  4. Private numCols As Integer
  5. Private numFils As Integer
  6. Private numDatos As Integer
  7.  
  8. Public Sub MacroCrearTablaCartesiana( _
  9. ByVal colsColumnas As Integer, _
  10. ByVal colsFilas As Integer, _
  11. ByVal colsDatos As Integer, _
  12. Optional ByVal patronGraficos As Variant = "", _
  13. Optional ByVal patronTotales As Variant = "", _
  14. Optional ByVal patronFormatos As Variant = "" _
  15. )
  16. '2009-V-12
  17.  
  18. Dim opcionGraficos As Boolean
  19. Dim opcionTotales As Boolean
  20.  
  21. opcionGraficos = patronGraficos <> ""
  22. opcionTotales = patronTotales <> ""
  23.  
  24. Call CrearTablaCartesiana( _
  25. Worksheets("datos").Range("datos"), _
  26. Worksheets("reporte").Range("reporte"), _
  27. colsColumnas, colsFilas, colsDatos, _
  28. opcionFijar:=False, _
  29. opcionGraficos:=opcionGraficos, patronGraficos:=patronGraficos, _
  30. opcionTotales:=opcionTotales, patronTotales:=patronTotales, _
  31. patronFormatos:=patronFormatos _
  32. )
  33.  
  34. Worksheets("reporte").Activate
  35. Worksheets("datos").Visible = False
  36.  
  37. 'Recordar
  38. numCols = colsColumnas
  39. numFils = colsFilas
  40. numDatos = colsDatos
  41. End Sub
  42.  
  43. Public Sub MacroCrearTablaDinamica()
  44. Call CrearTablaDinamica( _
  45. Worksheets("datos").Range("datos").CurrentRegion, _
  46. numCols, numFils, numDatos)
  47. End Sub
  48.  
  49. 'Public Sub MacroTest()
  50. ' Call CrearTablaCartesiana( _
  51. ' Worksheets("datos").Range("datos"), _
  52. ' Worksheets("reporte").Range("a5"), _
  53. ' 2, 2, 4, _
  54. ' opcionFijar:=False)
  55. 'End Sub
  56.  
  57.  

Proinf.net