請問如何隨日期自動填上固定數字謝謝

horce

下載 (13.34 KB)

2010-6-15 21:17

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

感恩感恩

horce

回復 1# horce


    特氣用量統計表.zip (16.66 KB)

下載次數: 11

2010-6-15 21:41

忘記附檔了,THS

ted10932

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

下載 (22.43 KB)

2010-6-15 22:57

cf4-table.zip (17.35 KB)

下載次數: 5

2010-6-15 22:58

victorl

回復 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

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

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

GBKEE

回復 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

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

ccppas

天啊原來excel是這樣用的

mycmyc

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