Excel VBA質問箱 IV

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

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


76281 / 76732 ←次へ | 前へ→

【4874】Re:ユーザー関数についておしえてください。
回答  こうちゃん E-MAIL  - 03/4/11(金) 16:24 -

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

>ユーザー関数を作成してみたいと考えています。
>今、A列目に1行からN行まで任意のデータがB列目に1行からN行まで任意のデータがC列目の1行目にも任意のデータが入っています。
>Function test(配列x,配列y,z) as double・・・(1)
>このA列とB列のデータを配列指定で、C列のデータは単体で読み込んでその後のマクロに
>データを使いたいのですが、どのように(1)式をどのように記述すればよいのでしょうか?
>
>配列x x(1)=A1 x(2)=A2 ・・・x(N)=AN
>配列y y(1)=B1 y(2)=B2 ・・・y(N)=BN
>z    z=C1
>
>どなたかご指導よろしくお願いいたします。


配列を作るところはOKですか?
関数の呼び方はこんな感じですが、マクロからの呼び出しでいいんですよね。
#ワークシートで使うならチョッと違います。

標準モジュールに貼り付けてお試しください。(パクリ^^;)

Sub Main()
  Dim x(5) As Double
  Dim y(5) As Double
  Dim z As Integer
  Dim i As Integer
 
  For i = 1 To 5
    x(i) = i
    y(i) = i * 2
  Next
  z = 5
  
  MsgBox test(x(), y(), z)
End Sub

Function test(x() As Double, y() As Double, z As Integer) As Double
  Dim temp As Double
  Dim i As Long
  Dim j As Long
    
  For i = 1 To UBound(x())
    For j = 1 To UBound(y())
      temp = temp + x(i) * y(j)
    Next
  Next
  temp = temp * CDbl(z)
  test = temp
End Function
2 hits

【4861】ユーザー関数についておしえてください。 Coo 03/4/11(金) 0:12 質問
【4874】Re:ユーザー関数についておしえてください。 こうちゃん 03/4/11(金) 16:24 回答
【4880】Re:ユーザー関数についておしえてください。 Coo 03/4/11(金) 23:31 質問
【4894】Re:ユーザー関数についておしえてください。 りん 03/4/13(日) 7:28 回答
【4942】Re:ユーザー関数についておしえてください。 Coo 03/4/14(月) 22:44 質問
【4943】かさねがさねすみません。 りん 03/4/14(月) 22:47 発言

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