[[20200521202745]]　『コードについて質問です。』（電卓男）　ページの最後に飛ぶ

『コードについて質問です。』（電卓男）

Sub 位置ズレ計算()

  Dim i As String
    i = 12

  Do While Cells(i, 5) <> ""
    Cells(i, 4) = Sqr(Cells(i, 5) ^ 2 + Cells(i, 6) ^ 2) * 2

    i =  + 1
  Loop
end Sub

2つのセルの値の0に対する計算をこのようにやらせています。

これを
2つのセルの値の15に対する計算をさせるにはどうやって数値を追加したら良いか教えていただけませんでしょうか。
もしくは特定のセルに15と入力してそこの数値を拾う形のほうが多用するかもしれません。

すみませんがよろしくお願いします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

＞2つのセルの値の15に対する計算
どういう計算なのか説明をしてもらわないと分からないですよ。

(15,15)との距離の2倍ということですか？
（γ） 2020/05/21(木) 21:34

コメント返信：