excel - Excel VBA - コードからセル値を読み取る

Question

エクセルからメールを送るタスク。以下は列の例です。ループからメールの値を取得するにはどうすればよいですか? ありがとう

これが私のコードです:

   Dim rng As Range
   薄暗い行を範囲として
   範囲としての薄暗いセル
   Dim mydate As Date
   Dim myDiff As Long


rng = Range("E5:E17") を設定
rng2 = Range("F5:F17") を設定
Dim cell2 As Range

Dim i As Integer
私は= 5

For Each row In rng.Rows
  For Each cell In row.Cells

MsgBox cell.Value
mydate = cell.Value
myDiff = DateDiff("d", Date, mydate)

Set rng2 = Range("F" & i)
For Each cell2 In rng2
 MsgBox cell2.Value
Next cell2


myDiff > -8 かつ myDiff < 8 の場合
  aEmail.Send
終了条件

私 = 私 + 1
  次のセル
次の行
   

Answer 1

これが必要だと思います..

Dim n as Integer   

For n = 5 to 17
  msgbox cells(n,3) '--> sched waste
  msgbox cells(n,4) '--> type of treatm
  msgbox format(cells(n,5),"dd/MM/yyyy") '--> Lic exp
  msgbox cells(n,6) '--> email col
Next