【討論】用 VBA 畫一個菱形排列

[jute]

一時手賤想把它改一下，使菱形的高度和寬度都可讓使用者自訂
結果搞了半天越弄越慘（我還是差遠了，呵呵）:P

[leonchou]

最初由 jine 發表
這位Engineer
這段碼在大部份字型下畫出來的是三角形和鳶形耶
無法通用,蠻可惜的

我前面有提到星號之間有無空白和
固定/非固定寬字型的關係,
是影響形狀的重要因素.
不明白的人可自行參考↑↑...

[沙拉油]

最初由 Leon Chou 發表
這好像是古早 Basic 的題目.. ||
Sub aa()
[A1:A5].ClearContents
For i = 1 To 5
v_star = ""
If i > 3 Then c = c - 1 Else c = c + 1
For j = 1 To c
v_star = v_star & "* "
Next j
v_star = Space(c + 3 - c * 2) & v_star
Cells(i, 1) = v_star
Next i
End Sub

這讓我想到十幾年前用 Basic 顯示出那個菱形後的那個心情，簡直爽透了∼