Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
EXCELで2次元グラフ表示
投稿日時: 23/05/06 14:41:23
投稿者: TomVla

平面波y=A*SIN(2*PI()*(t/P-SQRT(x^2+y^2)/L)をEXCELで2次元グラフ表示するのが目的です。
x:-5〜5を(-0.1)刻みでA列、y;-5〜5を(-0.1)刻みで第2行にとり
セル範囲B3:CX103の各升目に
=$B$1*SIN(2*PI()*($H$1/$D$1-SQRT((A3)^2+($P$2)^2)/$F$1))
の計算結果を埋め込もうとしています。
B3の升目は0.919706となり、この升目の左下をクリックすれば縦方向B4〜B103は自動計算されます。
このB3の升目を利用して横方向のC3〜CXを自動計算する方法が知りたいのです。
ご教示よろしくお願いします。

投稿日時: 23/05/06 19:41:11
投稿者: TomVla

以下補足します。
 
y=A*SIN(2*PI()*(t/P-SQRT(x^2+y^2)/L)
a=1 t=66 P=10 L=5 としてB3の升目を計算すると
 
0.919706 = $B$1*SIN(2*PI()*($H$1/$D$1-SQRT((A3)^2+(-5)^2)/$F$1))
となります。

回答
投稿日時: 23/05/06 20:56:55
投稿者: 半平太

>B3セル= $B$1*SIN(2*PI()*($H$1/$D$1-SQRT((A3)^2+(-5)^2)/$F$1))
  ↓
 B3セル =$B$1*SIN(2*PI()*($H$1/$D$1-SQRT($A3^2+B$2^2)/$F$1))
 
  参照先を絶対参照から複合参照に「適宜」変更した上の数式を
 全ての升にコピーする、と言う話と違うのですか?
 
 (単なる数式の話になっちゃいますが・・そんな事じゃないのですか?)

投稿日時: 23/05/06 21:19:25
投稿者: TomVla

半平太様
ご回答ありがとうございます。
全部で101行、75列もありますので各行、各列ごとにコピーするのは大変です。
数回の処理で全升を埋める方法がないものかと思っております。

回答
投稿日時: 23/05/06 21:31:03
投稿者: 半平太

そう言う話でしたか。
ならこれで。
 
Sub filFormula()
    Range("$B$3:$CX$103").Formula = "=$B$1*SIN(2*PI()*($H$1/$D$1-SQRT($A3^2+B$2^2)/$F$1))"
End Sub

投稿日時: 23/05/07 03:47:21
投稿者: TomVla

半平太様
できました!!ありがとうございます。
超初心者ですのでこれから勉強を進めます。
助かりました!!