excel - Excel VBA - 从代码中读取单元格值

Question

从excel发送电子邮件的任务。下面是示例列。如何从循环中获取电子邮件值？谢谢

这是我的代码：

   调暗为范围
   将行暗淡为范围
   将单元格调暗为范围
   将 mydate 调暗为日期
   将 myDiff 调暗


设置 rng = Range("E5:E17")
设置 rng2 = Range("F5:F17")
将单元格 2 调暗为范围

将 i 调暗为整数
我 = 5

对于 rng.Rows 中的每一行
  对于 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 那么
  电子邮件.发送
万一

我 = 我 + 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