VBA for Excel 2007 tutorial-2D arrays to print matrix
VBA 2D arrays to print a matrix
| 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 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
| ||||||||||||||
| ................................................................................................................................... | 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. | |||
