Question

这是我的第一个问题，所以我会尽可能清楚。

我在Excel中有一个大型数据集，我特别感兴趣的一个栏目有评论，例如＆＃34;您好，此产品发布的日期是08/04/2017＆＃34;例如。我希望创建一个代码，允许我将这些单元格中的每个日期更改为05/04/2016。

编辑：为了清楚起见，每个单元格可能包含也可能不包含多个日期！

“守则”将理想地确定单元格中2016年4月5日之后的任何日期，并且有可能在2016年4月5日之前找到，但不会触及任何日期或日期之前的任何文本。细胞

以下是我一直在使用的代码，如果它有帮助的话，

Sub ReplaceDate()

Dim x As Date

x = 6/4 / 2016至05/04/2020

Range("C2:C31").Select
Selection.NumberFormat = "dd/MM/yyyy"
Selection.Replace "x", Replacement:="05/04/2016", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

下一个x

End Sub

正如您可能已经猜到的那样，现在代码实际上取代了任何＆＃34; X＆＃34;在单元格中，但我尝试了Selection.Replace DataValue > 05/04/2016之类的东西。

非常感谢任何帮助！

亲切的问候。

Answer 1

你可以尝试：

@CrossOrigin
@RequestMapping(value="/notifications", method=RequestMethod.POST, consumes=MediaType.APPLICATION_JSON_VALUE, produces=MediaType.APPLICATION_JSON_VALUE)
public ResponseEntity<NotificationParent> sendNotifications(@RequestBody NotificationParent objs) {
    ...
    return new ResponseEntity<NotificationParent>(objs, HttpStatus.OK);
}

如何让VBA在2016年4月5日以后更新日期{05 44}

1 个答案: