- 871 名前：デフォルトの名無しさん [2021/05/15(土) 13:49:58.81 ID:YDtAUn460.net]
- Lbound関数がどうもうまく出来ないのでお知恵を拝借させてください。
--------------------------------------------------------------------
【VBA標準モジュール】
Option Explicit
Function F_Test(wRange As Range) As Integer
F_Test = LBound(wRange)
End Function
--------------------------------------------------------------------
【ワークシート】
A列は別に何でも良くて，例えば以下のとおり。
A1セル 10
A2セル 11
A3セル 12
A4セル 13
--------------------------------------------------------------------
B1に =F_Test(A1:A3) の数式で「3」という答えが欲しい。
その他，A1:A4なら「4」，A2:A3なら「2」という感じ。
要は引数の配列の添字の数が欲しい。
Functionの引数部分をVariantに変えて
Function F_Test(wRange As Variant) As Integer にしてもうまく行きませぬ。
|
 |
