Excel VBA - コード

Question

からセル値を読み取り、excelから電子メールを送信するタスク。 以下は例の列です。ループからメールの価値をどのように得ることができますか？ おかげでここ

は私のコードです：myDiff場合

 
    Dim rng As Range 
    Dim row As Range 
    Dim cell As Range 
    Dim mydate As Date 
    Dim myDiff As Long
 

Set rng = Range("E5:E17") 
Set rng2 = Range("F5:F17") 
Dim cell2 As Range
 

Dim i As Integer 
i = 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 
 

> -8そしてmyDiff < 8次に
aEmail.Send 
END IF
 

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

`、そしてそれがどのように見えるように、あなたのメールアドレスは、列` F`にあります

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