年度只加大於零

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2015-3-26 21:56 | 顯示全部帖子

回復 3# p212
k123456770前輩!請看動畫檔...
前輩!你可能誤解小弟的問題
      這樣公式無法得到答案
         =SUMPRODUCT((TEXT(K$4:K$12,"YYY")=TEXT(AY2,"YYY"))*SUMIF(Q4:Q12,">0"))
      =SUMPRODUCT((TEXT(K$4:K$12,"YYY")=TEXT(AY2,"YYY"))*SUMIF(Q4:Q12,">0"))
      所以用補助欄是可以達成需求
   AY2=DATE(YEAR(TODAY()),1,1)
   AY3=DATE(YEAR(TODAY()),12,31)
   AY4=IF(AND(K4>=AY$2,K4<=AY$3,Q4>0),Q4,"")下拉
   但心想應該不需要靠補助欄就可以達到目的不是嗎?
   請前輩不吝再賜教謝謝再三!!

Le40o.gif (776.68 KB)

Leo40.gif (776.68 KB)

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2015-3-27 21:34 | 顯示全部帖子

回復 6# p212
兩位前輩!真抱歉小弟也弄錯原始檔的用意
   應該 AY4=IF(AND(K4>=AY$2,K4<=AY$3,M4>0,Q4>0),Q4,"")
   也就是說M欄與Q欄要同時大於零才加總
   再附檔請不吝再賜教謝謝再三!! 辛苦囉!

Leo40-1.rar (4.17 KB)

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2015-3-28 21:39 | 顯示全部帖子

回復 8# JBY
前輩想到囉謝謝!!另一問題請教
L1為 67 顯示為 67年次型態
K1輸入1978/2/16 顯示為 67/2/16 型態
K2=CONCATENATE(MID(YEAR(K1),1,4)-1911)
照理說 K2=L1沒錯
按分析鈕卻無法執行程式
Sub 分析()
      If [K2] <> [L1] Then MsgBox ("很抱歉系統無法分析！輸入資料為 " & [K2] & " 年次不等於來源 " & [L1] & " 年次的資料,請修改輸入資料ＯＫ！！"): End
         執行程式
End Sub
為何K2的 67非L1的 67
不知有何公式可以取代或其他方法
請不吝賜教謝謝再三!!辛苦囉!
K2不能用程式轉為值如右 [K2]=Evaluate("=CONCATENATE(MID(YEAR(K1),1,4)-1911)")

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2015-3-29 17:40 | 顯示全部帖子

回復 10# JBY
前輩!謝謝!!
用中曆來輸入出生日期比較順
所以K1是由如下程式寫入
Sub 出生日期()
   ZZ = InputBox("輸入日期", "       請輸入你的出生年月日", "67/2/16")
   If ZZ <= 0 Then Exit Sub
   a = Split(ZZ, "/")
   a(0) = a(0) + 1911
   [K1] = Join(a, "/")
   [K1].NumberFormat = "e/m/d"
End Sub
如果K2=YEAR(K1)-1911是無法顯示正確的年次
哪知K2=CONCATENATE(MID(YEAR(J1),1,4)-1911)雖可顯示正確的年次
但卻非數值頭痛耶!!