如何做到對日期的checking - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何做到對日期的checking

返回列表下一主題上一主題發帖

如何做到對日期的checking

中學生 Rank: 2

帖子: 13
主題: 5
精華: 0
積分: 52
點名: 0
作業系統: windows 8
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2014-7-29
最後登錄: 2016-7-25

4^# 跳轉到 »

發表於 2014-9-5 12:46 | 只看該作者

另外, 想問問, 如果我想要在A15 輸入我想要的日期, 例如8-Sep-14, 然後想要計算前一天(即5-Sep-14)之間A,B,C,D,E,F每一項的相差數值, 計算之後在相應15欄顯示出來(即B15,C15,D15等)

那我應該從哪一個command指令學習?? 我完全沒有方向

中學生 Rank: 2

帖子: 13
主題: 5
精華: 0
積分: 52
點名: 0
作業系統: windows 8
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2014-7-29
最後登錄: 2016-7-25

3^#

發表於 2014-9-5 12:41 | 只看該作者

回復 patrickccs

參考看看
owen06 發表於 2014-9-4 10:04

已成功嘗試, 謝謝

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-9-4 10:04 | 只看該作者

回復 1# patrickccs

參考看看

Private Sub CommandButton1_Click()
If [a2] = Date Then
[a2].EntireRow.Delete
Range("a2:G" & [a65536].End(3).Row).Copy
Sheets("sheet1").Select
Sheets("sheet1").[a2].Select
Selection.PasteSpecial xlPasteValues
Else: Range("a2:G" & [a65536].End(3).Row).Copy
Sheets("sheet1").Select
Sheets("sheet1").[a2].Select
Selection.PasteSpecial xlPasteValues
End If
End Sub

複製代碼

靜思自在 : 發脾氣是短暫的發瘋。

返回列表下一主題上一主題