12
返回列表 上一主題 發帖

如何做到對日期的checking

patrickccs

帖子
13 
主題
5 
精華
0 
積分
52 
點名
0  
作業系統
windows 8 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2014-7-29 
最後登錄
2016-7-25 
11# 跳轉到 »
發表於 2014-9-10 12:39 | 只看該作者
回復 10# owen06

成功了, 非常感謝, 我最後一個問題是如果我想在另一張sheet執行這張sheet這個指令的話,要怎樣做?

非常非常感謝

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
12#
發表於 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

TOP

patrickccs

帖子
13 
主題
5 
精華
0 
積分
52 
點名
0  
作業系統
windows 8 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2014-7-29 
最後登錄
2016-7-25 
13#
發表於 2014-9-10 13:24 | 只看該作者
回復 12# owen06

明白了, 真的感謝你

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
12
返回列表 上一主題