Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29814 / 76732

←次へ　｜　前へ→


	【52192】Re:らせん状（うず状）に数字を並べていく

ichinose - 07/10/29(月) 14:24 -


	引用なし

	パスワード

こんにちは。

一例です。
新規ブックの標準モジュールに
'============================================
Sub Mk_uzu()
　 Dim rng As Range
　 Dim rs As Double
　 Dim x As Double
　 Dim y As Double
　 Dim z As Double
　 Dim cnt As Long
　 Dim idx As Double
　 Set rng = Range("g20")
　 rs = 200
　
　 z = 0
　 cnt = 1
　 x = rng.Left: y = rng.Top
　 idx = 0.15
　 With rng.Parent
　　　 With .Rectangles.Add(x, y, 15, 15)
　　　　　.Text = cnt
　　　　　.Font.Size = 7
　　　　　End With
　　　 cnt = cnt + 1
　　　Do Until z > rs
　　　　 With .Rectangles.Add(x + z * Cos(idx), y + z * Sin(idx), 15, 15)
　　　　　　.Text = cnt
　　　　　　.Font.Size = 7
　　　　　　End With
　　　　 cnt = cnt + 1
　　　　 z = z + 1.5
　　　　 idx = idx + 0.2
　　　　 Loop
　　　End With
End Sub

上記のMk_uzuを実行してみてください。

後は、間隔を工夫してください。

2 hits

▼

【52188】らせん状（うず状）に数字を並べていく やまだ 07/10/29(月) 12:59