Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72233 / 76734

←次へ　｜　前へ→


	【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