Difference between pages "MakeArrayFromExcelColumn" and "Recursion"

Latest revision as of 19:51, 24 April 2017

@@ Line 1: / Line 1: @@
- Function MakeArrayFromExcelColumn(ColumnNo As Integer, TotalRows As Integer) As Variant
- Dim CurArr()
- ReDim CurArr(1)
- CurArr(0) = ""
- For MK = 2 To TotalRows
-     Dim CurStr As String
-     CurStr = CStr(CurCells(MK, ColumnNo).Value)
-     Dim WCounter As Integer
-     WCounter = 0
-     While WCounter < UBound(CurArr) And CurStr <> CurArr(WCounter)
-         WCounter = WCounter + 1
-     Wend
-     If WCounter >= UBound(CurArr) Then
-         CurArr(UBound(CurArr)) = CurStr
-         ReDim Preserve CurArr(UBound(CurArr) + 1)
-     End If
- Next MK
- MakeArrayFromExcelColumn = CurArr
- End Function
+<div align="right">Back to [[Academic_Archives]].</div>
+__TOC__
-[[Category:CATIA DP VB]]
+===In Progress===
+===Important Links===
+[http://www.idi.ntnu.no/~fredrior/files/Catmull-Clark%201978%20Recursively%20generated%20surfaces.pdf E. Catmull and J. Clark: Recursively generated B-spline surfaces on arbitrary topological surfaces, Computer-Aided Design 10(6):350-355 (November 1978)] (proto-subdivision surfaces).
+===Posted Projects===
+'''MEL Scripts:'''
+<div align="right">Back to [[Academic_Archives]].</div>