Magic Squares : Cell « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Cell

Magic Squares

 
Private Sub AssignValueCell()
    Dim row1 As Integer
    Dim row2 As Integer
    Dim row3 As Integer
    Dim col1 As Integer
    Dim col2 As Integer
    Dim col3 As Integer
    Dim diagonal1 As Integer
    Dim diagonal2 As Integer
    row1 = Cells(3, "B").Value + Cells(3, "C").Value + Cells(3, "D").Value

    col1 = Cells(3, "B").Value + Cells(4, "B").Value + Cells(5, "B").Value

    diagonal1 = Cells(3, "B").Value + Cells(4, "C").Value + Cells(5, "D").Value

    Cells(6, "B").Value = col1

    Cells(3, "E").Value = row1
    Cells(6, "E").Value = diagonal1

End Sub








Related examples in the same category

1.Is a cell empty
2.Get the last cell
3.Nest If statement in Do Loop While with comparison operators
4.Nest If statement in Do Loop Until for cells
5.Is active cell empty
6.Transposing is taking a rectangular block of data and rotating it so that columns become rows and vice versa.
7.Uses nested For/Next loops to count the total number of cells used in all open worksheets:
8.Selects cell G4
9.A better way to write to a range:Filling a range
10.Use arrays to fill ranges faster
11.Moving the pointer to the cell containing the greatest value