VBA for Excel 2007 tutorial-2D arrays to print matrix

VBA 2D arrays to print a matrix


In this example, We use VBA two-dimensional array to print a matrix as shown below:

0 1 1 1 1 1
-1 0 1 1 1 1
-1 -1 0 1 1 1
-1 -1 -1 0 1 1
-1 -1 -1 -1 0 1
-1 -1 -1 -1 -1 0



The diagonal of the matrix fills with 0s. The lower-left side of the matrix fill with -1 and the higher-right side fills with 1.

To the run the example program, you will need one Form and one CommandButton.



VBA for Excel: using VBA 2D array to fill matrix
VBA code for this example:


Option Explicit
Private Sub CommandButton1_Click()
    Dim matrix(5, 5) As Integer
    Dim row, col As Integer
    'fill values in the matrix
    For row = 0 To 5
        For col = 0 To 5
            If row = col Then ' if row=col=> fill with 0s
                matrix(row, col) = 0 'if row>col=>fill with-1s
            ElseIf row > col Then 'else=> fill with 1s
                matrix(row, col) = -1
            Else: matrix(row, col) = 1
            End If
        Next
    Next
    'display the matrix in excel sheet
    For row = 0 To 5
        For col = 0 To 5
            Cells(row + 1, col + 1) = matrix(row, col)
        Next
    Next
   
End Sub




Comments

Name:
Comment:
Enter the text:
CAPTCHA image

...................................................................................................................................Home | Forum | About | Contact
This website intents to provide free and high quality tutorials, examples, exercises and solutions, questions and answers of programming and scripting languages:
C, C++, C#, Java, VB.NET, Python, VBA,PHP & Mysql, SQL, JSP, ASP.NET,HTML, CSS, JQuery, JavaScript and other applications such as MS Excel, MS Access, and MS Word.
However, we don't guarantee all things of the web are accurate. If you find any error, please report it then we will take actions to correct it as soon as possible.
Copyright @ 2011-2013 worldbestlearningcenter. All Rights Reserved.
Home Programming Web DB & App Questions Exercises Tips Programs FAQs Download About
Computer-Wbest
Popular Pages
You might like