Excel VBA：カスタム関数が動作しない

Question

私はデータセットからより詳細な情報を収集するためのカスタム関数の開発に取り組んでいます。私は機能が存在することを認識して優れている、それは私のパラメータを入力することができますが、それは私に#VALUEを与えている！エラー。

私はそれがいくつかの配列と関係があるかもしれないと私はどのように表示されるデータを収集しようとしていると思われる。

私は2つのテーブルにメインデータテーブルと、私が収集しようとしている余分なデータを含むコールテーブルを持っています。

各アイテムの開始時間と継続時間に基づいて、各アイテムが占めるスロットの数を調べています。私はDo Untilループを使用して、アイテムが占有する「スロット」を持つ配列を塗りつぶし、そのリストを関数の出力セルに表示しようとしました。私のコメントを無視してください。

Function SlotsOccupied(Duration, StartTime, Day) 


    Dim SlotsUsed() As String 
    ReDim SlotsUsed(0 To Duration) 'sets SlotsUsed array size 
    Dim StartT(0 To 1) 'sets Array StartT 
    Dim StarTarr As Variant 
    Dim DurCount as Integer 
    Dim SlotCount as Integer 
    Dim StartTCount as Integer 


             'Sets Counts and starting variables 
    DurCount = 0 
    SlotCount = 0 
    StartTCount = StartTime 


    StartT(0) = Day     'sets StartT array values 
    StartT(1) = StartTime 


    Do Until DurCount = Duration 

     StartTarr = Join(StartT, ",") 

     Slot = Application.WorksheetFunction.VLookup(StarTarr, Slots.Range("a2:b56"), 2, False) 

     SlotsUsed(SlotCount) = Slot 

     DurCount = DurCount + 1 
     StartTCount = StarTCount + 1 
     SlotCount = SlotCount + 1 

    Loop 

    SlotsOccupied = Join(SlotsUsed, ",") 

何か助けていただければと思いますが、私はかなり長い時間をかけてコードを作成していません。私は脳の錆を感じています。

ありがとうございます。

Answer 1

変数durcount、slotcount、またはstarttcountを暗くすることはありません。