Excel VBA質問箱 IV

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

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


72237 / 76738 ←次へ | 前へ→

【8986】Re:比例計算
回答  ウッシ  - 03/11/12(水) 20:11 -

引用なし
パスワード
   こんばんは、Takao さん

FORECAST(存在すら知らなかった関数です)とは、結果が異なりますけど・・・
平均から算出がB列に、差から算出がC列に出ます。

>199KNの場合、表の100〜200KNの間になるわけですが、2つの平均もしくは差で出す
という意味を取り違えてるかも

Sub test_0()
  Dim i As Long
  Dim strMpa As String, dblMpa As Double
  Dim mRng As Range, cRng As Range, cR As Range
  Dim aveD As Double, depD As Double
  
  Set mRng = Range("A1").CurrentRegion.Rows(1)
  Set cRng = Range("A4", Range("A65536").End(xlUp))
  For Each cR In cRng
    i = Application.Match(cR.Value, mRng, 1)
    If Cells(1, i) = 0 Then
      cR(1, 2) = Cells(2, i + 1) / Cells(1, i + 1) * cR.Value
    Else
      cR(1, 2) = _
        ((Cells(2, i) / Cells(1, i)) + (Cells(2, i + 1) _
          / Cells(1, i + 1))) / 2 * cR.Value
    End If
      cR(1, 3) = (Cells(2, i + 1) - Cells(2, i)) _
          / (Cells(1, i + 1) - Cells(1, i)) * cR.Value
  Next
  Set mRng = Nothing
  Set cRng = Nothing
End Sub
0 hits

【8962】比例計算 Takao 03/11/12(水) 9:09 質問
【8964】Re:比例計算 INA 03/11/12(水) 9:53 回答
【8967】Re:比例計算 Takao 03/11/12(水) 11:23 回答
【8983】Re:比例計算 Takao 03/11/12(水) 18:09 質問
【8984】Re:比例計算 ichinose 03/11/12(水) 18:52 回答
【8985】Re:比例計算 Takao 03/11/12(水) 19:42 質問
【8986】Re:比例計算 ウッシ 03/11/12(水) 20:11 回答
【8987】Re:比例計算 Takao 03/11/12(水) 20:48 回答
【8988】Re:比例計算 Takao 03/11/12(水) 20:57 回答
【8990】Re:比例計算 ウッシ 03/11/12(水) 21:34 回答
【8989】Re:比例計算 ichinose 03/11/12(水) 21:27 発言
【8991】Re:比例計算 Takao 03/11/12(水) 21:37 回答
【8992】Re:比例計算 kein 03/11/13(木) 1:01 回答
【8994】Re:比例計算 Takao 03/11/13(木) 9:42 回答
【8997】Re:比例計算 Takao 03/11/13(木) 11:38 お礼

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