在excel中修改单元格的按钮

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

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

“2013年1月1日

点击

2/1/2013“

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

---

Thanx提前

您需要使用

DateAdd（）

。将此代码放入按钮单击事件中。同时将

Sheet1

更改为相关的sheetname

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

---

您需要使用

DateAdd（）

。将此代码放入按钮单击事件中。同时将

Sheet1

更改为相关的sheetname

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

---

你可以试试这样的

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

---

你可以试试这样的

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

---

亲爱的感谢这工作得很好，但是，我想动态地保留所选单元格，换句话说，我不想被限制在单元格A2中。我需要选择工作表中的任何单元格或完整的行或列，并对其应用操作。然后使用

选择

对象：）。范围（“选择”）。值？很抱歉，我以前从未使用过VBA检查我在上面的帖子中更新的代码。您可能需要刷新页面。谢谢，您是最棒的；-）亲爱的感谢这工作得很好，但是，我想动态地保留所选单元格，换句话说，我不想被限制在单元格A2中。我需要选择工作表中的任何单元格或完整的行或列，并对其应用操作。然后使用

选择

对象：）。范围（“选择”）。值？很抱歉，我以前从未使用过VBA检查我在上面的帖子中更新的代码。您可能需要刷新页面。谢谢，您是最棒的；-）现在，宏将添加到选定的单元格中。现在，宏将添加到选定的单元格中。