Comment detail

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

This comment is reply for 7522 matarillo: VBA for Excel (2003)(LL Golf Hole 8 - 横向きのピラミッドを作る). Go to thread root.

VBA for Excel (2003) 短くしました。

1
2
3
4
Sub Main()
  i = Val(InputBox(""))
  Range("A1").Resize(i * 2 - 1) = "=REPT(""*""," & i & "-ABS(ROW()-" & i & "))"
End Sub

Index

Feed

Other

Link

Pathtraq

loading...