帖子: 7
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: Win8
軟體版本: X64
閱讀權限: 10
註冊時間: 2013-9-11
最後登錄: 2013-9-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-9-11 17:41 | 只看該作者

[發問] Excel 中的判斷式數量累加如何寫

各位先輩們,
小弟目前試著寫一個Execl 判斷式. 是將Sheet A 中的 K 欄位中有Test 字眼的挑選出來,並累加. 再將累加結果丟到Sheet B. 的 I 欄位
但是我寫出來的總量總是0 並且會將 K欄位清空,為什麼?
範例:
Sheet A                                                                         Sheet B
I    J       K             L                                                 H                   I
1 HW    Test       2012-1-1                                  2012-1-1       1
2 SW    Open    2013-1-3                                  2012-5-10       2
3 HW    Verfiy 2013-2-1
4 SW    Test       2012-5-10
我的程式碼如下:
Dim data As String
data = test

For k = 1 To (row - 1)
      If (limtxt <> "test") Then
   Worksheets("Raw_Data").Cells(k + 2, 11).Value = str2
   If (InStr(1, data, str2) >= 1) Then limnum = limnum + 1

End If
Next k

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-9-11 17:50 | 只看該作者

回復 1# xaiver

程式碼不完整

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

xaiver

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: Win8
軟體版本: X64
閱讀權限: 10
註冊時間: 2013-9-11
最後登錄: 2013-9-13

3^#

發表於 2013-9-11 18:43 | 只看該作者

版主你好.
這個code 有點大, 我只是擷取其中一段. 不知道是否要將所有的code貼上來,才能解決我的問題嗎? 還是有其他的方式.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-9-11 20:35 | 只看該作者

回復 3# xaiver

Option Explicit
Sub Ex()
Dim I As Integer, E As Range
For Each E In Sheets("A").Range("K1:K15")
If InStr(E, "Test") Then '有"Test"字串大小寫有區別
'If InStr(UCase(E), UCase("Test")) Then '轉為大寫 : 所以大小寫沒區別
I = I + 1
End If
Next
Sheets("B").Range("I1") = I ' 的 I 欄位
' 並且會將 K欄位清空,為什麼? 沒看到程式碼,所以不曉的.
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

xaiver

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: Win8
軟體版本: X64
閱讀權限: 10
註冊時間: 2013-9-11
最後登錄: 2013-9-13

5^#

發表於 2013-9-12 08:52 | 只看該作者

版大你好,
謝謝你的指導, 目前執行上是ok.
  但是~, 我的想法不太一致..
我先說明一下,

Sheet A :                                           Sheet B
I       J       K                L                                     H                I             J
1 HW    OPEN       2012-1-5                      2012-1-1    0
2 SW       Test          2012-1-7                      2012-1-7    1
3 HW    Closed    2012-1-9                      2012-1-14 1
4 SW    OPEN       2012-1-3                      2012-1-21 2
5 HW    Test          2012-1-20                   2012-1-28 2

I 欄位是每周計算一次, 然後有新增的部份加上去. 所以1-21 的2 是由1~20的問提.
我目前的code是這樣有問題的地方我已標紅色.
煩請指導

code.zip (18.85 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-9-12 09:33 | 只看該作者

回復 5# xaiver
這裡討論Excel的VBA,可以上傳Excel檔方便討論

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

xaiver

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: Win8
軟體版本: X64
閱讀權限: 10
註冊時間: 2013-9-11
最後登錄: 2013-9-13

7^#

發表於 2013-9-12 10:37 | 只看該作者

版大
好的, 請參考附件

Coding file.zip (357.56 KB) 版大,

TOP

xaiver

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: Win8
軟體版本: X64
閱讀權限: 10
註冊時間: 2013-9-11
最後登錄: 2013-9-13

8^#

發表於 2013-9-12 13:17 | 只看該作者

回復 7# xaiver

Password: 3668jt!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-9-12 14:22 | 只看該作者

回復 8# xaiver
你的程式很龐大沒註解,看的眼花,不知所云.

Sub BugTrend()
For i = 1 To (row - 1)
' itopen.Activate
' A = ActiveCell.Offset(i, 0)
A = itopen.Offset(i, 0) '精簡程式碼
'itclose.Activate
'b = ActiveCell.Offset(i, 0)
b = itclose.Offset(i, 0)
'
'
MsgBox str2 '沒有東西 *** 錯誤點可能在此 ****
Worksheets("Raw_Data").Cells(i, 11).Value = str2
If InStr(str2, "Limitation") Then limnum = limnum + 1

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

xaiver

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: Win8
軟體版本: X64
閱讀權限: 10
註冊時間: 2013-9-11
最後登錄: 2013-9-13

10^#

發表於 2013-9-12 15:39 | 只看該作者

謝謝版大,
其實我自己也稍微弄了一下,

For i = 1 To (row - 1)
itopen.Activate
A = ActiveCell.Offset(i, 0) ==> 抓取open date
itclose.Activate
b = ActiveCell.Offset(i, 0) ==> 抓取close date
itsev.Activate
c = ActiveCell.Offset(i, 0) ==>抓取Severity
itverify.Activate
d = ActiveCell.Offset(i, 0) ==>抓取verify date.

複製代碼

我個人覺得最大的問題是~ 我不知道怎麼去抓去 Status 的欄位並將它設定在字串在進行比對.

If Int(DateDiff("d", A, Astart)) >= 0 Then totalnum = totalnum + 1 ==>這邊是抓 verify date 和Open date與Astart date 做比對. (Astart date 是指向到cover page 中的 Test_Start Date)
If (Int(DateDiff("d", b, Astart)) >= 0) And (b > 1000 / 1 / 1) Then closenum = closenum + 1 ==>這邊是抓取verify date 和Closed date 與Astart date 做比對

複製代碼

這兩段code 都可以抓到正確的值.
因為也以為用此方式可以抓到字串方式
我就寫成

Dim str2 As string
itlimitation.Activate
For i = 1 To (row - 1)
str2 = Worksheets("Raw_Data").Cells(i, 11).Value ==> 我以為會把string 丟入str2, 但是並沒有.
If IsEmpty(ActiveCell.Offset(i, 0)) = False Then lim = ActiveCell.Offset(i, 0)
If EndDate < lim Then EndDate = lim
Next i

複製代碼

If (Int(DateDiff("d", b, Astart)) >= 0) And (b > 1000 / 1 / 1) And (InStr(str2, "Limitation")) Then limnum = limnum + 1 ==>得到的結果always 是1

複製代碼

因此我換個寫法

If (Int(DateDiff("d", b, Astart)) >= 0) And (b > 1000 / 1 / 1) And (InStr(str2, "Limitation")>=0) Then limnum = limnum + 1 ==>得到的結果always 是總數

複製代碼

我想知道, 有甚麼方式.是可以採用i 循環將string 載入str2 後, 再丟到第二段code 做比對. 如果正確+1.

TOP