我需要在Excel表格中放置一個按鈕來更改單元格內容。在excel中修改單元格的按鈕
例如,我想填充單元格A2的日期結構爲dd/mm/yyyy,一旦我選擇單元格並按下按鈕,單元格內容(日期)將向前移動1天。
「2013年1月1日
點擊
2013年2月1日」
時,很有可能的事情來實現?你能幫我嗎 ?
Thanx提前
我需要在Excel表格中放置一個按鈕來更改單元格內容。在excel中修改單元格的按鈕
例如,我想填充單元格A2的日期結構爲dd/mm/yyyy,一旦我選擇單元格並按下按鈕,單元格內容(日期)將向前移動1天。
「2013年1月1日
點擊
2013年2月1日」
時,很有可能的事情來實現?你能幫我嗎 ?
Thanx提前
您需要使用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
隨訪FROM COMMENTS
我想要動態地保留選定的單元格,換言之,我不想限制在單元格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
親愛感謝這個工作完美,但,我想保持選定單元格動態,換句話說,我不希望被限制在單元格A2中我需要選擇表格中的任何單元格或完整的行或列並對其應用操作。 – arin
然後使用'Selection'對象:) –
.Range(「Selection」)。Value?對不起,我以前從未使用VBA – arin