如何做到對日期的checking

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

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

1^# 跳轉到 »

發表於 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

複製代碼

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

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

2^#

發表於 2014-9-5 21:28 | 顯示全部帖子

回復 4# patrickccs

試試看在sheet1加入這個

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 And .Row = 15 Then
For Each mr In [a2:a10]
If mr = [a15] Then
tg = mr.Row
End If
Next
For i = 2 To 7
Cells(15, i) = Cells(tg, i) - Cells(tg - 1, i)
Next
End If
End With
End Sub

複製代碼

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

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

3^#

發表於 2014-9-8 10:53 | 顯示全部帖子

本帖最後由 owen06 於 2014-9-8 10:54 編輯

Private Sub CommandButton2_Click()
For Each mr In [a2:a10]
If mr = [a15] Then
tg = mr.Row
End If
Next
For i = 2 To 7
Cells(15, i) = Cells(tg, i) - Cells(tg - 1, i)
Next
End Sub

複製代碼

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

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

4^#

發表於 2014-9-10 12:01 | 顯示全部帖子

回復 9# patrickccs

改良了一下，你試試吧

Private Sub CommandButton1_Click()
[b15:G15].Clear
For Each mr In Range("a2:a" & [a1].End(4).Row)
If mr = [a15] Then
tg = mr.Row
End If
On Error Resume Next
Next
For i = 2 To 7
Cells(15, i) = Cells(tg, i) - Cells(tg - 1, i)
Next
End Sub

複製代碼

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

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

5^#

發表於 2014-9-10 12:57 | 顯示全部帖子

本帖最後由 owen06 於 2014-9-10 12:58 編輯

回復 11# patrickccs

如果想在其他工作表執行另一個工作表的內容，那就要在指令的範圍前面，加上明確的sheet名稱，才不會迷路。
例如

Private Sub CommandButton1_Click()
sheets("sheet1").[b15:G15].Clear
For Each mr In sheets("sheet1").Range("a2:a" & sheets("sheet1").[a1].End(4).Row)
   If mr = sheets("sheet1").[a15] Then
      tg = mr.Row
   End If
On Error Resume Next
   Next
For i = 2 To 7
   sheets("sheet1").Cells(15, i) = sheets("sheet1").Cells(tg, i) - sheets("sheet1").Cells(tg - 1, i)
Next
End Sub