Excel VBA - 从代码中读取单元格值 [英] Excel VBA - read cell value from code

问题描述

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

task to send email from excel. Below is the example column. How I can get the email value from the loop? Thanks

这是我的代码：

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

设置rng =范围（E5：E17）
设置rng2 =范围（F5：F17）
Dim cell2 As Range

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

Dim i As Integer
i = 5

Dim i As Integer i = 5

对于每行在rng.Rows
对于每个单元格在row.Cells

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
结束如果

If myDiff > -8 And myDiff < 8 Then aEmail.Send End If

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

i = i + 1 Next cell Next row

推荐答案

我想你需要这个..

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

这篇关于Excel VBA - 从代码中读取单元格值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！