標題: 請問如何隨日期自動填上固定數字謝謝 [打印本頁]

---

作者: horce    時間: 2010-6-15 21:18     標題: 請問如何隨日期自動填上固定數字謝謝

[attach]1291[/attach]
請問高手們
因為每天隨日期,會 KEY IN 同樣的數字在表格裡不知道有沒有方法,讓它自動隨日期,填入同樣的數字感恩
像6/16到的時候就自動增加固定的數字上去

感恩感恩

---

作者: horce    時間: 2010-6-15 21:42

回復 1# horce


    [attach]1292[/attach]
忘記附檔了,THS

---

作者: ted10932    時間: 2010-6-15 22:58

提供一個折衷的建議, 作法是固定數字在月初仍全部預填上去, 但是格式要使用 "設定自動格式設定"功能, 將大於今天的數字顏色與背景相同
[attach]1293[/attach]
[attach]1294[/attach]

---

作者: victorl    時間: 2010-6-16 00:10

回復 2# horce


檔案開啟自動更新
Private Sub Workbook_Open()
    With Sheets("CF4")
        For Each aa In Range(.[a9], .[a65536].End(xlUp).Offset(-1))
            If aa <= Date Then
                aa.Offset(, 5) = aa.Offset(-1, 5).Value
                aa.Offset(, 6) = aa.Offset(-1, 6).Value
            End If
        Next
    End With
End Sub

---

作者: asimov    時間: 2010-6-16 00:36

簡單的方式
F8=IF(AND(A8<=TODAY(),(A8<>"")),461,"")
向下複製

還有檔案必須設為自動計算

---

作者: GBKEE    時間: 2010-6-16 06:59

回復 4# victorl
Private Sub Workbook_Open()
    With Sheets("CF4")
        For Each aa In Range(.[a9], .[a65536].End(xlUp).Offset(-1))
            If aa <= Date Then
                aa.Offset(, 5) = aa.Offset(-1, 5).Value
                aa.Offset(, 6) = aa.Offset(-1, 6).Value
            Else
                Exit For  '離開迴圈 以縮短時間
            End If
        Next
    End With
End Sub

---

作者: horce    時間: 2010-6-16 21:21

我只能說大家真的是太強了,感恩感恩

---

作者: ccppas    時間: 2010-8-6 23:31

天啊原來excel是這樣用的

---

作者: mycmyc    時間: 2010-10-13 23:08

請問 用TODAY()  然後讓它固定  不然那天填的多變今天日期
怎麼弄呢

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)