Commonmark migration

Source Link

edited Jun 17, 2020 at 9:04

#VBA (EXCEL) , 111 Bytes

VBA (EXCEL) , 111 Bytes

Sub c()

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

#VBA (EXCEL) , 111 Bytes

Sub c()

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

Sub c()

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

added 29 characters in body

Source Link

edited Aug 5, 2018 at 4:34

VBA (EXCEL) , 111 Bytes #VBA (EXCEL) , 111 Bytes

Sub c()

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

Sub c()

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

VBA (EXCEL) , 111 Bytes

Sub c()

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

#VBA (EXCEL) , 111 Bytes

Sub c()

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

deleted 22 characters in body

Source Link

edited Sep 11, 2017 at 9:10

VBA (EXCEL) , 128111 Bytes

Sub c() 

For x=0 To 25
For y=0 To 25
b=y
If y>xy<x Then
a=a&Chr(65+y)
Else b=x
a=a&Chr(65+x65+b)
End If
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

VBA (EXCEL) , 128 Bytes

Sub c()
For x=0 To 25
For y=0 To 25
If y>x Then
a=a&Chr(65+y)
Else
a=a&Chr(65+x)
End If
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

VBA (EXCEL) , 111 Bytes

Sub c() 

For x=0 To 25
For y=0 To 25
b=y
If y<x Then b=x
a=a&Chr(65+b)
Next
a=a&vbNewLine
Next
MsgBox a
End Sub

Source Link

created Sep 11, 2017 at 7:37

Loading

Return to Answer