Re: [算表] 排交期的問題 (非常危急 請大大協助(VBA)
可以考慮用 VBA 來解決, 所以你只要輸入 11/11 或 1/1 即可測試
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Target.Count = 1 Then
For Each cell In Target
If IsDate(cell.Value) Then
If (Month(cell.Value) < Month(Date)) And _
(Year(cell.Value) = Year(Date)) Then
Application.EnableEvents = False
cell.Value = DateAdd("yyyy", 1, cell.Value)
Application.EnableEvents = True
End If
End If
Next
End If
End Sub
範例檔案: http://tinyurl.com/7nnc9h5
※ 引述《sk8erboi0403 ( 踟躕)》之銘言：
: ※ 引述《Bolty ( )》之銘言：
: : A B C
: : 1 開始日 工作天 完成日 (完成日若出現純數字，請將儲存格格式設為日期)
: : 2 2011/11/1 15 =A2+B2+INT((B2-8+WEEKDAY(A2))/6)+1
: : 希望可以幫你度過難關，有問題再提出來吧。
: 那我就真的提出來了
: 在
: 輸入日期的時候 我們會常習慣輸入月份 系統會自動判定為2011年
: 但現在 我想要在輸入11 12月時判定為2011年 輸入123月時判定為2012年
: 有可以解決的方法嗎?
: (需在exel2000下執行)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.116.146.144
※ 編輯: windknife18 來自: 122.116.146.144 (11/20 15:58)
推
11/20 19:24, , 1F
11/20 19:24, 1F
→
11/20 19:29, , 2F
11/20 19:29, 2F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
