标记单元格并从选定单元格返回var

我有一个非常小的数据库（100-200行）需要使用的数据。 K列是到期日期。我想标记任何过期或过期两周的日期。一旦这个单元格被标记，我就想从我写的代码中将数据提取到TextBody中，发送一封电子邮件给myslef，以通知我过期以及与过期相关的数据。标记单元格并从选定单元格返回var

Set objMessage = CreateObject("CDO.Message") 
    objMessage.Subject = "Clumpy Milk Ahead" 
    objMessage.From = """Expired Milk"" <[email protected]>" 
    objMessage.To = "[email protected]" 
    objMessage.TextBody = "Place pulled data here"

最后，我需要一个消息，看起来有点像这样...

set Referencing_Expiration_Cell As RFC 

    Brand: (RFC col A) 
    Type: (RFC col d) 
    Shipment: (RFC col E) 
    Distributor: (RFC col F) 
    Pickup Driver: (RFC col H) 
    Employee: (RFC col I) 
    Expiration Date: (RFC col K)

此代码将被放置在一个按钮来每天运行。所以脚本不需要自动化。任何帮助，将非常感激。我一直在研究一些不同的代码字符串，并且不能让我的生活得到我想要的东西，以便一切顺利。

在此先感谢您的任何信息/帮助！

来源

2013-10-17 Justin Gregory

您是否收到与您尝试的错误？如果是的话，那么错误是什么，代码中出现了什么？ – Harrison

我在邮件中的代码或通过验证发送电子邮件的附加代码中没有发生错误。我无法获取信息以填充电子邮件。我想我很想知道在获得这种类型的项目设置时要采取什么方向。我的猜测是为电子邮件中所需的信息类型设置某些变量，这些变量由标记日期自动选择，然后填充到电子邮件中。哪条路是我挣扎的地方。 WorkFlow，是我将它标为.. -Jgr3g –

做了我的[回复]（http://stackoverflow.com/a/19432705/2145211）有帮助吗？需要帮助请叫我。 – Harrison

我在假设你的问题是问如何在VBA中使用一行中的值。以下代码将一次检索一行值。它假设您的数据在A2中开始，并且至少有2行数据

Sub Macro1() 

Dim endCell, currentCell As range 
Set currentCell = Worksheets("Sheet1").range("A2") 
Set endCell = currentCell.End(xlDown) 

Do 

    brand = currentCell.Value 
    myType = currentCell.Offset(0, 3).Value 'Offset moves a column over to B in this case 
    shipment = currentCell.Offset(0, 4).Value 
    distributer = currentCell.Offset(0, 5).Value 
    driver = currentCell.Offset(0, 6).Value 
    employee = currentCell.Offset(0, 7).Value 
    ExpireDate = currentCell.Offset(0, 9).Value 

    If ExpireDate < Today() + 14 

     'Do Stuff here 

    End If 

    Set currentCell = currentCell.Offset(1, 0) 'Offset moves to the next row down in this case 

Loop Until currentCell = endCell.Offset(1, 0) 
End Sub

来源

2013-10-17 16:50:54 Harrison

标记单元格并从选定单元格返回var

回答

相关问题