- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
15#
發表於 2013-6-1 07:38
| 只看該作者
回復 c_c_lai
謝謝 c_c_lai,
可以使用了, 感謝~
再請問一下,
.Cells(lngVlookupRow, ...
yliu 發表於 2013-5-31 23:53 
如果除以 4：
1 ( Int(0.25)=0)， 2 ( Int(0.5))=0 )， 3( Int(0.75))=0 )， ' 第一季 (應為 0)
4( Int(1))=1)， 5( Int(1.25))= 1)， 6( Int(1.5 ))=1)， ' 第二季 (應為 1)
7( Int(1.75))= 1)， 8( Int(2))=2 )， 9( Int(2.25))=2)， ' 第三季 (應為 2)
10( Int(2.5))=2)， 11( Int(2.75 ))=2)，12( Int(3))=3) ' 第四季 (應為 3)
除以 3.2：
1 ( Int(0.3125)=0)， 2 ( Int(0.625))=0 )， 3( Int(0.9375))=0 )， ' 第一季
4( Int(1.25))=1)， 5( Int(1.5625))= 1)， 6( Int(1.875 ))=1)， ' 第二季
7( Int(2.1875))= 2)， 8( Int(2.5))=2 )， 9( Int(2.8125))=2)， ' 第三季
10( Int(3.125))=3)， 11( Int(3.4375 ))=3)，12( Int(3.75))=3) ' 第四季
結論： .Cells(lngVlookupRow, Chr(79 + Int(lngCurrenMonth / 3.2))) =
.Cells(lngVlookupRow, Chr(79 + Int(lngCurrenMonth / 3.2))) + lngCurrValue
1月 ：.Cells(lngVlookupRow, Chr(79 + 0)) = .Cells(lngVlookupRow, Chr(79 + 0)) + lngCurrValue
.Cells(lngVlookupRow, "O") = .Cells(lngVlookupRow, "O") + lngCurrValue ' 第一季
7月 ：.Cells(lngVlookupRow, Chr(79 + 2)) = .Cells(lngVlookupRow, Chr(79 + 2)) + lngCurrValue
.Cells(lngVlookupRow, "Q") = .Cells(lngVlookupRow, "Q") + lngCurrValue ' 第三季
11月：.Cells(lngVlookupRow, Chr(79 + 3)) = .Cells(lngVlookupRow, Chr(79 + 3)) + lngCurrValue
.Cells(lngVlookupRow, "R") = .Cells(lngVlookupRow, "R") + lngCurrValue ' 第四季
此論得知，如以 3.2 作為分母除之、再以 Int() 來過濾，得值得以正確顯示，不致歸類錯誤。 |
|
