- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我不确定为什么我的代码没有输出我的消息,即使我的电子表格有一个空字段。如果我在消息框显示它为空的值,所以不确定为什么它没有在 IsEmpty 函数中拾取它。
Sub Button1_Click()
Dim Cell As Range
Dim name As Range
Dim objDate As Date
Dim myName As String
For Each Cell In Range("P3:P4").Cells
myName = Cell.Offset(0, -14).Value
If Not IsDate(Cell.Value) Then
MsgBox "Please make sure all dates are in a valid form: DD.MM.YYYY"
ElseIf Cell.Value <= Date + 30 Then
**ElseIf IsEmpty(myName) Then
MsgBox "Please enter a name"**
Else
Dim appOutlook As Outlook.Application
Dim mitOutlookMsg As Outlook.MailItem
Dim recOutlookRecip As Outlook.Recipient
' Step 1: Initialize an Outlook session.
Set appOutlook = CreateObject("Outlook.Application")
' Step 2: Create a new message.
Set mitOutlookMsg = appOutlook.CreateItem(olMailItem)
With mitOutlookMsg
' Step3: Add the To recipient(s) to message.
Set recOutlookRecip = .Recipients.Add(myName)
recOutlookRecip.Type = olTo
'Set valid properties like Subject, Body, and Importance of the message.
.Subject = "Test123"
'.Body = "Test"
.BodyFormat = olFormatHTML
.HTMLBody = "Dear " & myName & " TEST EMAIL "
.Importance = olImportanceHigh 'High importance
' Resolve every Recipient's name
For Each recOutlookRecip In .Recipients
recOutlookRecip.Resolve
If Not recOutlookRecip.Resolve Then
mitOutlookMsg.Display
End If
Next
.Send
End With
Set mitOutlookMsg = Nothing
Set appOutlook = Nothing
MsgBox "Emails have been sent"
End If
Next Cell
End Sub
最佳答案
Cell.Value <= Date + 30
将始终返回 TRUE
当单元格为空时。
移动ElseIf IsEmpty(myName) Then
之前 ElseIf Cell.Value <= Date + 30 Then
例如
If IsEmpty(myName) Then
MsgBox "Please enter a name"
ElseIf Not IsDate(Cell.Value) Then
MsgBox "Please make sure all dates are in a valid form: DD.MM.YYYY"
ElseIf Cell.Value <= Date + 30 Then
Else
编辑:以下部分回答了您在评论中提出的问题。
如果您不想在一个单元格为空时运行代码,那么您可以使用此代码。这将检查是否 count of cells = number of cells filled
.如果它们不相同,则表示一个或多个单元格为空。
Sub Sample()
Dim rng As Range
Set rng = Range("P3:P4").Cells
If rng.Count <> Application.WorksheetFunction.CountA(rng) Then
MsgBox "Please ensure that all cells are filled with dates in the range"
Exit Sub
End If
'
'~~> Rest of the code
'
End Sub
关于vba - 代码不检查空字符串,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25241085/
我正在尝试用 Java 构建一个字符串,该字符串的长度最多为 3,最少为 1。 我正在根据整数数组的内容构建字符串,如果数组的内容为 -1,我想在字符串中输出一个空字符。否则字符串将包含整数的字符版本
我有一个类,其中有一个方法可以在字符串中包含 NUL 字符的情况下终止程序。具体表达是这样的: stringVar.indexOf('\u0000') < 0 这个字符串是通过 Scanner 从用户
我有一个 wchar_t 数组。我需要在数组中的特定位置添加一个 unicode 空字符。 wchar_t var1[100]; var1[79] = '\u0000'; 我尝试了上面的方法,但出现以
好吧,这听起来可能是重复的,但我已经尝试了所有可能性,例如 str.strip()、str.rstrip()、str.splitline (),还 if-else 检查像: if str is not
System.out.println("-----------------------------------------------------------"); System.out.pr
我有一个奇怪的问题。我从公司内部的许多不同应用程序接收数据,并将这些数据显示在网站上。根据发送数据的系统,数据本身可能在字符串中包含一些奇怪的字符。我的问题是我有一个用户可以搜索以允许其中包含此数据的
我遇到了 aSSL ,这似乎有几年历史了,想知道是否有人有其他“安全”AJAX 连接代码示例?显然,这不如使用 SSL 证书安全,但使用 null character SSL在那里进行攻击(最近针对
我有一个类似于以下内容的 pyspark 数据框: df = sql_context.createDataFrame([ Row(a=3, b=[4,5,6],c=[10,11,12], d='b
我有以下要执行的查询: MyModel.objects.annotate(current_name=Coalesce('nickname', 'name')).order_by('current_na
每当 rails 变量等于 nil(或者实际上每当我使用 rails 代码(参见第 3 个代码示例))时,我的 html 中就会得到一串空字符。 new.html.haml %h1.editable.
我是一名优秀的程序员,十分优秀!