0

我需要在 excel 表中放置一个按钮来更改单元格内容。

例如，我想用结构为 dd/mm/yyyy 的日期填充单元格 A2，一旦我选择单元格并按下按钮，单元格内容（日期）将向前移动 1 天。

“2013 年 1 月 1 日

点击

2013 年 2 月 1 日"

这样的事情有可能实现吗？你能帮我吗 ？

提前感谢

4

2 回答 2

3

您需要使用DateAdd(). 将此代码放在按钮单击事件中。还要更改Sheet1为相关的工作表名称。

With ThisWorkbook.Sheets("Sheet1")
    .Range("A2").Value = DateAdd("d", 1, .Range("A2").Value)
End With

句法

DateAdd(interval, number, date)

间隔参数具有以下设置：

yyyy : Year 
q : Quarter 
m : Month 
y : Day of year 
d : Day 
w : Weekday 
ww : Week 
h : Hour 
n : Minute 
s : Second

评论跟进

我想动态保留选定的单元格，换句话说，我不想被限制在单元格 A2 中，我需要选择工作表中的任何单元格或完整的行或列并对其应用操作。

试试这个

Dim aCell As Range

If TypeName(Selection) = "Range" Then
    For Each aCell In Selection
        With ThisWorkbook.Sheets("Sheet1")
            aCell.Value = DateAdd("d", 1, aCell.Value)
        End With
    Next
End If
于 2013-10-28T18:44:30.807 回答
1

你可以试试这样的

sub myClick()
  Selection.Value = Selection.value + 1
end sub
于 2013-10-28T18:45:07.243 回答