excel - 使用 VBA 在单元格中添加迄今为止的一天

标签 excel vba

我设置了一个宏,可以清除电子表格上的内容。在此宏的末尾,我想选择其中已包含日期的特定单元格,然后将当前日期替换为当前日期 +1。在网上搜索后,我找到了 DateAdd 函数,但我对 VBA 还很陌生,并且很难正确编写该函数。选择必要的单元格后,我如何将日期更改为第二天?

最佳答案

从字面上理解你的问题,你可以这样做:

' Here goes the code where you select the date cells you want to increment
' ...
' Now increment them by 1 day:
Dim cell As Range
For Each cell In Selection
    cell.Value = cell.Value + 1 ' adds 1 day
Next cell

Date 数据类型的单位是天。所以加 1 就等于一天。

关于excel - 使用 VBA 在单元格中添加迄今为止的一天,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8156271/

相关文章:

Excel 索引匹配数组 - 显示列表中的所有值

python - 如何按时间顺序将多个 csv 文件合并到彼此的右边? (Python)

sql - ADODB Excel SQL 语句写入下一个可用行

html - 在 MySQL 中从 html 转换 ascii 字符

excel - 动态将两张纸合二为一

VBA Excel 更改斜体并添加 </and/>

vba - Excel 中的 MsgBox 焦点

VBA - 具有多个条件的索引/匹配函数

excel - 如何将一个 Excel 表 (ListObject) 中的多行追加到另一个表?

excel - 防止 VBA 选择不同的工作表