6.3 Suspended Ceiling Design Process - Bilkent University

The Program Code in Microsoft Visual Basic
' Reachability Macro
' This macro partitions the matrix based on the reachability matrix result
'
Option Explicit
Option Base 1
Public reach As Variant 'reach contains the elements in the
reachability matrix
Dim temp1, temp2 As Variant
Public color(150)
Sub reachability_matrix()
Dim i, j, k, m As Integer
ReDim reach(n, n), temp1(n, n), temp2(n, n)
Dim counter As Integer
''''''''''''''''''''''''''''''''''''''
' Clear contents
Application.ScreenUpdating = False
Partitioned = 1 ' flag to indicate that the problem is
partitioned now
'Worksheets("DSM").Select
'Cells(2, 1).Select
'counter = 1
'Do While (Len(ActiveCell.Value) > 0)
' color(counter) = ActiveCell.Interior.ColorIndex
' counter = counter + 1
' Cells(1 + counter, 1).Select
'Loop
Worksheets("New Sequence").Select
Range(Cells(1, 2), Cells(250, 250)).Select
Selection.ClearContents
Cells(1, 1).Select
Worksheets("Partitioned DSM").Select
Range(Cells(1, 1), Cells(250, 250)).Select
Selection.ClearContents
With Selection.Interior
.ColorIndex = 2
.Pattern = xlPatternNone
225