Question

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

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

“2013年1月1日

点击

2013" 年2月1日

是否有可能实施？你能帮忙吗？

提前完成

Answer 1

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

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

<强>语法

DateAdd(interval, number, date)

interval参数具有以下设置：

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

Answer 2

您可以尝试这样的事情

sub myClick()
  Selection.Value = Selection.value + 1
end sub

用于修改excel中的单元格的按钮

2 个答案: