VBA example - Excel 2007: VBA loop color pattern 7


VBA code to colors pattern 7

 In this VBA example code, you will learn to generate a colored pattern as shown below. It is a combination of two half-matrixes of color patterns--upper-right and lower-right color matrixes.

To run this example VBA code, you will need a Form, and a CommandButton.


VBA MS Excel: VBA loop example code to generate color pattern-pattern 8

VBA code for this example:


Option Explicit Private Sub CommandButton1_Click()
 
 Dim i, j, l, m As Integer
   i = 6 j = 6 For i = 1 To 6  
  
For j = 6 To 1 Step -1
   
        
If (i + j = 7) Then
   
            
Cells(i, j).Interior.Color = RGB(200, 10, 10)
          
         
ElseIf (i + j > 7) Then
   
             
Cells(i, j).Interior.Color = RGB(10, 10, 200)
               
         
ElseIf (i + j < 7) Then
     
            
'Cells(i, j).Interior.Color = RGB(10, 10, 200)
    
         
End If
         
  
Next

 Next
  For l = i + 1 To 13  
  
For m = 1 To 6
       
    
If (l = m + 7) Then
     
           
Cells(l, m).Interior.Color = RGB(200, 10, 10)
                
     
ElseIf (l > m + 7) Then
      
          
'Cells(l, m).Interior.Color = RGB(10, 10, 200)
        
     
ElseIf (l < m + 7) Then
      
         
Cells(l, m).Interior.Color = RGB(10, 10, 200)
         
     
End If
           
 
Next

Next  
End Sub


Comments

Comments

Name:
Comment:
Enter the text:
CAPTCHA image




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.