Excel VBA質問箱 IV

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

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


29820 / 76738 ←次へ | 前へ→

【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を実行してみてください。

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

【52188】らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 12:59 質問
【52189】Re:らせん状(うず状)に数字を並べていく ハチ 07/10/29(月) 13:10 発言
【52190】Re:らせん状(うず状)に数字を並べていく とおりすがり 07/10/29(月) 13:10 発言
【52191】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 13:58 質問
【52192】Re:らせん状(うず状)に数字を並べていく ichinose 07/10/29(月) 14:24 発言
【52196】Re:らせん状(うず状)に数字を並べていく 駿 07/10/29(月) 15:04 お礼
【52193】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 14:46 発言
【52194】Re:らせん状(うず状)に数字を並べていく じゅんじゅん 07/10/29(月) 14:49 発言
【52197】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 15:21 質問
【52198】Re:らせん状(うず状)に数字を並べていく ichinose 07/10/29(月) 19:39 発言
【52199】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 19:46 お礼
【52216】Re:らせん状(うず状)に数字を並べていく Jaka 07/10/31(水) 16:03 発言
【52223】Re:らせん状(うず状)に数字を並べていく 小僧 07/11/1(木) 10:50 回答
【52224】数学なんて嫌いだ。 Jaka 07/11/1(木) 11:29 発言
【52329】Re:らせん状(うず状)に数字を並べていく kon 07/11/9(金) 2:11 質問
【52332】Re:らせん状(うず状)に数字を並べていく ichinose 07/11/9(金) 7:46 発言
【52349】Re:らせん状(うず状)に数字を並べていく ichinose 07/11/10(土) 8:39 発言

29820 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free