NUMBER AND ALPHABET PATTERN IN VBA

Показать описание

NUMBER AND ALPHABET PATTERN IN VBA

Sub Alfabate()
Dim i, j, k As Integer
Cells.Clear
For i = 1 To 26
k = 0
For j = 1 To i

Cells(i, j).Value = VBA.Chr(65 + k)
k = k + 1
Next j
Next i
End
End

End Sub

Sub horixontal()

Dim i, j As Integer
Cells.Clear
For i = 1 To 26

For j = 1 To i

Cells(i, j).Value = VBA.Chr(64 + i)

Next j
Next i
End
End

End Sub

Sub numberprint()

Dim i, j, k As Integer

For i = 1 To 10
k = 1
For j = 1 To i

Cells(i, j).Value = k

k = k + 1
Next j
Next i
End
End

End Sub
Sub invertedfullpyramind()
Cells.Clear
Dim Rn, Cn As Integer

For Rn = 0 To 5

For Cn = 0 To Rn

Range("K1").Offset(Rn, Cn).Value = Rn + 1 - Cn

Range("K1").Offset(Rn, -Cn).Value = Rn + 1 - Cn

Next Cn

Next Rn

End
End

End Sub