祝大大們龍年行大運,請教該如何用巨集自動找出今日日期下的作欄位計算~ - Excel程式區

[發問] 祝大大們龍年行大運,請教該如何用巨集自動找出今日日期下的作欄位計算~

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-1-3 08:45 | 顯示全部帖子

回復 1# cmo140497
重覆"Fresh"會重覆顯示

Sub Fresh()
For I = 5 To Range("IV3").End(xlToLeft).Column
If Cells(3, I) = Date Then
Range("C65535").End(xlUp).Offset(1, 0) = Range("C2") - Sheet2.Range("B2:B10").Find(Cells(5, I)).Offset(0, -1)
End If
Next I
End Sub

複製代碼

Remain counter_20120102.rar (14.01 KB)
另外功能上之要求尚不清楚
1.星期六日是否不計算
2.第6列上之gg tr...是否沒用到

靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。