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

【问题标题】：Excel VBA - read cell value from codeExcel VBA - 从代码中读取单元格值
【发布时间】：2013-07-09 04:51:56
【问题描述】：

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

这是我的代码：

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

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

将 i 调暗为整数 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

i = i + 1 下一个单元格下一行

【问题讨论】：

好吧，您正在查看Range("E5:E17")，并且您的电子邮件地址在F 列中，所以看起来您应该在需要电子邮件时从F 列中读取值.你的问题到底是什么？
是的。上面的脚本只获取日期值。我还需要循环中的电子邮件值。因此，如果 datediff 大于 8，电子邮件将发送到相应的电子邮件。

标签： excel vba

【解决方案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

【讨论】：

不，我只想在循环中获取电子邮件值。
嗯...我已经更新了我的代码。但是，我如何仅获取当前行的电子邮件列？
是的。我想要的！我也已经拿到了。你的代码更简单。谢谢！