Comment detail
LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)
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
|
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
|
matarillo
#7522()
[
Other
]
Rating0/0=0.00
VBA for Excel (2003)
Sub Main() i = Val(InputBox("")) Range("A1").Resize(i * 2 - 1).Formula = "=REPT(""*"",IF(ROW()<=" & i & ",ROW()," & i & "*2-ROW()))" End SubRating0/0=0.00-0+
1 reply [ reply ]