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