Excel 公式，如果 B1 有文本，则在 A1 中输入今天的日期

Question

Could you help me please to find out an excel formula to enter today date in A1 if B1 has a specific word?

Answer 1

♣Solved!♣

2 proposed solns/alternatives:

---

(1) Excel function

Enter in cell A1:

=if("B1" = "whatever", today(),"")

To ignore updating, will need VB code most likely, or simply put Automatic Calc. off (tools, options, forumulas -> manual + untick 'recalc before saving') ie:

---

(2) VB

VB code (open excel, press alt + f11 to open VB, select relevant sheet from within the 'Microsoft Excel Objects' dropdown list for workbook in question - you'll find this in the 'Project Explorer' window pane of VB, eg in my case, it's 'Sheet14 (Sheet1)" per screenshot below..):

Enter following code after selecting "Worksheet" and "Change" from drop-down lists in the main code section that opens up after you double click (in my case): "Sheet14 (Sheet1)", per above:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b1")) Is Nothing Then
    If Range("b1").Value = "whatever" Then
        Range("a1").Value = Date
    End If
Else
    'do Nothing
End If

End Sub

(note: some trigger is required - above code assumes this will be cell B1 changing to "whatever" specific text).

---

References: (adapted this for 'change' as opposed to 'selectionchange':) using intersect with 'selectionchange' or equivalent/similar date function: Date function: VB

---

Pros/Cons (VB soln):

Pro: Not effected by calculation updates or change in date clock events

Con: Requires VB

Con: More code required to remove content of cell A1 if B1 updated...

Pro: Auto-updates whenever cell changes

---

VB test results