Excel VBA質問箱 IV

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

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


76267 / 76738 ←次へ | 前へ→

【4894】Re:ユーザー関数についておしえてください。
回答  りん E-MAIL  - 03/4/13(日) 7:28 -

引用なし
パスワード
   Coo さん、こうちゃん さん おはようございます。

>今回、ワークシートで使うことを考えています。
>sheet1の
>A列目に1行からn行まで任意のデータが
>B列目に1行からn行まで任意のデータが
>C列目の1行目にも任意のデータが入っています。
>nは毎回変わります。

引数がセル限定ですが。
xとyの範囲の大きさが違っている場合は、大きいほうに合わせて合計します。

Function test(x As Range, y As Range, z As Integer)
  Dim c As Range, xy As Long, II as Long
  xy = Application.WorksheetFunction.Max(x.Count, y.Count) '大きいほう
  ReDim xx(xy) As Double, yy(xy) As Double
  '
  xx(0) = 0: yy(0) = 0
  For II = 1 To xy
    xx(II) = x(II) + xx(II - 1)
    yy(II) = y(II) + yy(II - 1)
  Next
  'Result
  test = xx(xy) + yy(xy) + xx(xy - 2) / z
End Function

こんな感じです。
[セルD1]=test(A1:A6,B1:B6,C1) のようにして使ってください。
エラーチェックはつけていないので、文字列をはさんだりするとエラーになります。
1 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 発言

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