Question

我已经成功地使此代码起作用，您可以单击F6:F16范围内的任何单元，然后弹出一个日期选择器，然后输入在活动单元中选择的日期。但是，我想给运行宏添加一个条件，使日期选择器弹出，以便仅在左侧单元格包含单词“ Date：” 并且该单元格运行时才运行左侧为空白，什么也不会发生。

例如当我单击单元格F8时，如果单元格E8包含“ Date：” ，而单元格{{ 1}}为空，该宏不能运行（即，日期选择器不能弹出）。

希望如此。这是我现有的无条件的代码：

第1页（代码）

E8

谢谢

Answer 1

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Count = 1 Then
    If Not Intersect(Target, Range("F6:F18")) Is Nothing Then
        If Target.Offset(0,-1).Value = "Date:" Then
            Call datePick
        End If
    End If
End If
End Sub

通过使用条件/ if语句单击Excel中的特定单元格来运行宏

1 个答案: