No.1ベストアンサー
- 回答日時:
質問者さんのご所望のものかどうかわかりませんが、
リサージュ図形を描く単純なVBAマクロをつくってみました。
A列に
x=A*cos(c*t)
B列に
y=B*sin(d*t+e)
を出力していくものです。
データ点数はNpoint
時間ステップはTdelta
でVBAプログラムの中で指定します。
tは0からNpoint*Tdelta
までの値を動きます。
sleep関数で動きを遅くしていますので
A列とB列をプロットするようにグラフを作っておくと
リサージュ曲線が描かれる様子がわかります。
添付の動画をご覧ください。
以下プログラムです。これをVBAのsheet1などにコピーして
実行すれば動きます。
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
Sub Lissajous()
''定数設定
Const A = 1#
Const B = 1#
Const c = 1#
Const d = 1.234567
Const e = 0
Const Npoint = 500
Const Tdelta = 0.05
''変数定義
Dim i As Long
Dim t As Double
Dim x As Double
Dim y As Double
''初期化
Columns("A:B").Select
Selection.ClearContents
Range("A1").Select
''計算開始
t = 0
For i = 1 To Npoint Step 1
x = A * Cos(c * t)
y = B * Sin(d * t + e)
t = t + Tdelta
Cells(i, 1) = x
Cells(i, 2) = y
''図形を見やすくするため動きを止める
DoEvents
Sleep 10
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) Excel VBAのことでお聞きしたいことがあり、ご教授お願いします。 下記の3つの図形があり、この 3 2022/08/08 17:57
- デザイン オフィス系のソフトのフリーハンドできちんと描画するには 1 2022/11/11 18:45
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) Excelのvbaについて教えてください。 図形一つ一つに名前がついています。 指定した図形の名前を 2 2022/08/04 15:13
- Excel(エクセル) エクセルVBAで図形のテキストを取得してセルに入力 2 2022/10/05 23:09
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) excelウェブサイト登録マクロ有効ブックにしないで済む方法 2 2023/08/05 20:26
- Excel(エクセル) エクセルの値を元に図形の色を変えたい 2 2022/05/11 01:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointで台形を描く方法
-
グーグルスプレッドシートの図...
-
線を組み合わせた図形の塗りつ...
-
pdf上に描画した図形が印刷され...
-
エクセルで図形を連動させたい
-
AutoCADで渦巻きを描く方法
-
ワードかエクセルの図形を使っ...
-
クリックしたらパネルがめくれ...
-
Illustratorで白い部分のみを透...
-
【VBA】3個の図形をコピーしてS...
-
エクセルかワードの図形描画で...
-
おしえてgooに図形の問題を投稿...
-
簡単な絵が描けるソフト(word...
-
エクセルで事務所のレイアウト...
-
Excel のバージョンによって、...
-
ExcelのVBAコードについて教え...
-
エクセルで自作の図形をメニュ...
-
エクセル ユーザーフォームに...
-
WORDで図に網掛けする方法は?
-
Illustratorでくくり括弧記号を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PowerPointで台形を描く方法
-
グーグルスプレッドシートの図...
-
線を組み合わせた図形の塗りつ...
-
pdf上に描画した図形が印刷され...
-
AutoCADで渦巻きを描く方法
-
Excel のバージョンによって、...
-
Illustratorでくくり括弧記号を...
-
おしえてgooに図形の問題を投稿...
-
Illustratorで白い部分のみを透...
-
エクセルで図形を連動させたい
-
ワードかエクセルの図形を使っ...
-
ExcelのVBAコードについて教え...
-
Excel 図形へのハイパーリンク
-
Excel2003図-扇形を書く方法は...
-
エクセル ユーザーフォームに...
-
Canvaの図形は、縦横比をキープ...
-
Excel2010で、今の、Ex...
-
図形でしずく型を作りたい
-
WORDで図に網掛けする方法は?
-
クリックしたらパネルがめくれ...
おすすめ情報