Excel VBA質問箱 IV

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

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


9949 / 13644 ツリー ←次へ | 前へ→

【24616】TREND関数の用法について mitu 05/4/28(木) 15:16 質問[未読]
【24618】Re:TREND関数の用法について ウッシ 05/4/28(木) 16:21 回答[未読]
【24619】Re:TREND関数の用法について 小僧 05/4/28(木) 17:46 回答[未読]
【24621】Re:TREND関数の用法について ウッシ 05/4/28(木) 19:08 回答[未読]
【24623】Re:TREND関数の用法について mitu 05/4/28(木) 21:08 お礼[未読]

【24616】TREND関数の用法について
質問  mitu  - 05/4/28(木) 15:16 -

引用なし
パスワード
   いつもお世話になっています。
予想値を得るために、VBAでTREND関数を使用したいのですが、うまくいかず困っています。

B列の5行目からiyend行までの値に対応する既知データが、
J列の5行目からiyend行まで入っています。

このデータを基に、B列の値がaaのときのJ列の値が求めたいのですが・・・

Application.WorksheetFunction.TREND("J5:J" & iyend, "B5:B" & iyend, aa)

をどのようにすればよいのか、具体的にご教示いただければ幸いです。

【24618】Re:TREND関数の用法について
回答  ウッシ  - 05/4/28(木) 16:21 -

引用なし
パスワード
   こんにちは

「Application.WorksheetFunction.TREND」ではダメでしたので、
「Application.TREND」を試しましたけど動くのですが戻り値がエラーになってしまい
ます。

仕方無いので「Evaluate」で

  Dim v
  v = Evaluate( _
      "Trend(J5:J" & iyend & ",B5:B" & iyend & "," & aa & ", 1)" _
      )
  MsgBox v(1)

【24619】Re:TREND関数の用法について
回答  小僧  - 05/4/28(木) 17:46 -

引用なし
パスワード
   ▼mitu さん うっしさん:
こんにちは。

Sub test()
Dim iyend As Long
Dim V As Variant
Dim aa As Range
  Set aa = Range("B22")
  iyend = 12

  V = Application.WorksheetFunction.Trend _
  (Range("J5:J" & iyend), Range("B5:B" & iyend), aa, True)

  Set aa = Nothing

  MsgBox V(1)
End Sub

iyend は数値型で、aaは値が入っているセルを指定してください。

【24621】Re:TREND関数の用法について
回答  ウッシ  - 05/4/28(木) 19:08 -

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

そうなんですね、配列で渡せばいいんですか

  Dim iyend As Long
  Dim aa(0)
  iyend = 20
  aa(0) = 25
  
  Dim v
  v = Application.Trend( _
      Range("J5:J" & iyend).Value, _
      Range("B5:B" & iyend).Value, aa, True)
  MsgBox v(1)

【24623】Re:TREND関数の用法について
お礼  mitu  - 05/4/28(木) 21:08 -

引用なし
パスワード
   ▼うっしさん 小僧 さん:
こんにちは。

早速のご教示ありがとうございました。
お陰様で、どちらの方法でもうまく処理できました。

ご両人のご丁寧なご指導に深謝します。

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