Vba - Revision history

Guillaume: /* Examples */

2010-04-30T07:38:53Z

‎Examples

2010-04-30T07:37:25Z

‎Examples

2010-04-30T07:36:53Z

‎Examples

2010-04-30T07:36:37Z

2010-04-29T18:29:24Z

‎Thomas algorithm

2010-04-29T18:25:41Z

2010-04-29T18:22:57Z

2010-04-29T18:22:02Z

‎Create chart

2010-04-29T18:21:28Z

‎Create chart

2010-04-29T18:16:45Z

‎Delete text

@@ Line 10: / Line 10: @@
 ReDim Pt(1 to 10)
 Cells(2, 2) = WorksheetFunction.Sum(Pt)
 </pre>
 </htm>

@@ Line 7: / Line 7: @@
 <htm>
 <pre name="code" class="vb">
 Cells(2, 2) = WorksheetFunction.Sum(Pt)
 </pre>

@@ Line 7: / Line 7: @@
 <htm>
 <pre name="code" class="vb">
-Cells(2 + n / Nint, 5) = WorksheetFunction.Sum(Pt)
+Cells(2, 2) = WorksheetFunction.Sum(Pt)
 </pre>
 </htm>

← Older revision		Revision as of 07:36, 30 April 2010
Line 1:		Line 1:
	[[vba]] or visual-basic for applications is a scripting/programming language and development environment embedded within the Office suite software from microsoft. The syntax is equivalent to visual-basic, but the libraries and functions give direct access to the objects of the Office environment.		[[vba]] or visual-basic for applications is a scripting/programming language and development environment embedded within the Office suite software from microsoft. The syntax is equivalent to visual-basic, but the libraries and functions give direct access to the objects of the Office environment.
		+
		+	==Examples==
		+
		+	===Sum an array===
		+	''Pt()'' is a VBA array
		+	<htm>
		+	<pre name="code" class="vb">
		+	Cells(2 + n / Nint, 5) = WorksheetFunction.Sum(Pt)
		+	</pre>
		+	</htm>

	==Sample code==		==Sample code==

@@ Line 105: / Line 105: @@
 ===Thomas algorithm===
 <htm>
 <pre name="code" class="vb">

← Older revision		Revision as of 18:25, 29 April 2010
Line 99:		Line 99:
	End With		End With

		+
		+	End Sub
		+	</pre>
		+	</htm>
		+
		+	===Thomas algorithm===
		+	<htm>
		+	<pre name="code" class="vb">
		+	'----------------------------------------------------------------------------------------------------
		+	'Este algoritmo resolve a equação:
		+	'concent (i+1)e_coef(i) + concent(i) p_coef(i) + concent(i-1)*w_coef(i) = Ti(i)
		+	'Referência (wikipedia): http://en.wikipedia.org/wiki/Tridiagonal_matrix_algorithm
		+	'----------------------------------------------------------------------------------------------------
		+	Sub Thomas(ByRef e_coef() As Double, _
		+	ByRef p_coef() As Double, _
		+	ByRef w_coef() As Double, _
		+	ByRef TI() As Double)
		+
		+	Dim PF() As Double
		+	Dim QF() As Double
		+
		+	Dim U As Long
		+	Dim L As Long
		+
		+	Dim j As Long
		+
		+	U = UBound(e_coef)
		+	L = LBound(e_coef)
		+
		+	ReDim PF(L To U) As Double
		+	ReDim QF(L To U) As Double
		+
		+	PF(L) = -e_coef(L) / p_coef(L)
		+	QF(L) = TI(L) / p_coef(L)
		+
		+	For j = L + 1 To U
		+	PF(j) = -e_coef(j) / (p_coef(j) + w_coef(j) * PF(j - 1))
		+	QF(j) = (TI(j) - w_coef(j) * QF(j - 1)) / (p_coef(j) + w_coef(j) * PF(j - 1))
		+	Next
		+
		+
		+	TI(U) = QF(U)
		+
		+	For j = U - 1 To L Step -1
		+	TI(j) = PF(j) * TI(j + 1) + QF(j)
		+	Next

	End Sub		End Sub

@@ Line 2: / Line 2: @@
 ==Sample code==
 ===Delete charts===
@@ Line 87: / Line 99: @@
      End With
 End Sub

@@ Line 30: / Line 30: @@
 <pre name="code" class="vb">
 'Rotina que faz gráfico
-Sub fazGrafico(nRow As Long, nCol As Long)
+Sub fazGrafico(nRows As Long, nCols As Long)
      ActiveSheet.Shapes.AddChart.Select
-     ActiveChart.SetSourceData Source:=Range(Cells(2, 6), Cells(nRow + 1, nCol + 5)), _
+     ActiveChart.SetSourceData Source:=Range(Cells(2, 6), Cells(nRows + 1, nCols + 5)), _
          PlotBy:=xlRows
      ActiveChart.ChartType = xlLine
-     ActiveChart.SeriesCollection(1).XValues = Range(Cells(1, 6), Cells(1, nCol + 5))
+     ActiveChart.SeriesCollection(1).XValues = Range(Cells(1, 6), Cells(1, nCols + 5))
 End Sub

@@ Line 26: / Line 26: @@
 ===Create chart===
-Subroutine that creates a nice graphic
+Simple subroutine that creates a chart
 <htm>
 <pre name="code" class="vb">

@@ Line 77: / Line 77: @@
 ===Delete text===
 <htm>
 <pre name="code" class="vb">