myleoyes

回復 10# GBKEE
GBKEE前輩你好!
　　　　 良師!謝謝!程式需求
         Sub 連續()
            Dim F As Range
              With Sheet1
              .Select
              Set F = .Rows(1).Find(Month(Date) & "月", LookIn:=xlValues)
              F(Rows.Count, 1).End(xlUp)(2, 1) = Date
            End With
        End Sub
        但程式並沒有將滑鼠順便帶上日期的位置
        因為滑鼠的位置是執行下個程式的按鈕
        再附檔參考看看請再辛苦囉!!謝謝再三!!

myleoyes

回復 11# myleoyes
luhpro前輩你好!
　　　　 前輩!謝謝!真的可以耶!!
         歹勢!!大眼睛一直在忙沒有注意到
         你的傑作謝謝再三!!

GBKEE

回復 11# myleoyes
F(Rows.Count, 1).End(xlUp)(2, 1) = Date   '  給物件值
F(Rows.Count, 1).End(xlUp)(2, 1).Select     '  物件的方法

myleoyes

回復 13# GBKEE
GBKEE前輩你好!
　　　　 良師!謝謝!!辛苦囉!!