- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
613 ：デフォルトの名無しさん[sage]：2016/01/25(月) 19:45:11.59 ID:h5WdPhTZ - 解説書「Excelで学ぶ物理シミュレーション」が変数定義してなかったので、変数定義しながらやってるのですが、
以下の「ActiveSheet〜」のところで、を「変数が定義されていません」とエラーが出てしまいます。
ActiveSheetはどう変数定義すればよろしいのでしょうか？
--
Sub particles()
Worksheets(2).Activate
Dim x0, y0, x1, y1, x2, y2, r As Integer
x0 = 300
y0 = 300
x1 = 0
y1 = 0
x2 = 0
y2 = 100
r = 20
AcitiveSheet.Shapes.AddShape(msoShapeOval, x0 + x1 - r, y0 + y1 - r, 2 * r, 2 * r).Select
(以下略)
|