For ... Next Loopで変数を使用してExcelでR1C1を指定する

Question

Excelを使用してタイムカードの合計時間を計算するために、特定のセルから特定の数値を引き出すFor Nextループを実行しようとしています私が使っているもののためのプログラム）。しかし、R1C1を使用しているため、場所のカウントを実行しているため、どのように実行するのか把握できません。私は物事を行うこの特定の方法に隠れているわけではありませんが、そのバリエーションはAccessで働いていました（しかし、理由のためにAccessを使用することはできません）。

添付されているコードは、私が使用しているコードです。

For Weekday = 11 To 17 'Determine the day of the week by Row Reference (R1C1 format) 
    For DayValue = 29 To 34  'Determin time input (Call, Meal In, Meal Out, Wrap, etc.) for day of the week 
     WrkTimes(DayValue) = ActiveSheet.Cells.FormulaR1C1 = "R" & (Weekday) & "C" & (DayValue) 'Select the correct time input 
    Next DayValue 'Process the next time input  
    TotHrs(Weekday) = WrkTimes(34) - WrkTimes(29) - (WrkTimes(31) - WrkTimes(30)) - (WrkTimes(33) - WrkTimes(32)) 'Calculate total hours for the day 
    ActiveSheet.Cells(Weekday, 37) = TotHrs(Weekday) 'Display total hours for the day in the proper cell 

はいこのループの最後に[次へ]コマンドがありますが、これと最後の間に他の関連性のないコードがあります。私はあなただけ格納する必要があるだろう

Answer 1

私の最初の提案は

Cells(r, c) 

を使用することですそして、あなたがそのような

Cells(r-3, c) 

としてあなたのオフセットに置くことができDayValueライン上のエラーを取得していますrとcの値は、平日（r）と日の値（c）として行っています。場合

---

あなたがループで見ているものであれば：

Cells(Weekday, DayValue).Value 

これは、あなたが参照してきたセルの値を与えるだろう。

---

編集：私のコメントから

提案：

Dim i as Long, j as Long, k as Long 
For Weekday = 11 To 17 
    i = Cells(Weekday, 34).Value 'Should allow you to have an output for each row 
    For DayValue = 33 To 29 Step -1 'Saving column 34 outside of the dayvalue loop 
     j = i 
     k = Cells(Weekday, DayValue).Value 
     i = j - k 
    Next DayValue 
    Cells(Weekday, 37).Value = i 
Next Weekday 

Answer 2

だから、私は範囲外の添字を取得保管する理由（スコットと系統発生からの提案に従った後）を明確にします私の平日（x）は17に設定されていなければならないとき7に設定されていたことが分かります。

ありがとうございました。