查看完整版本: 12/07 -- Excel 儲存格項目統計問題

論壇 › Visual Basic 語言 › 12/07 -- Excel 儲存格項目統計問題

凝結集團 發表於 2015-12-7 02:49 PM

12/07 -- Excel 儲存格項目統計問題

各位版友午安～

1. 請益如下問題,請各路高手幫忙解惑,感激不盡了 {:18:}

2. 如下右方的表格,「產品」與「尺寸」欄位為每日手動輸入

3. 請問有哪些函數或是寫巨集,可以轉換成左邊的統計表格 ?
    ( 希望巨集能夠寫在紅色的箭頭內 )


<div></div>

rr09192084 發表於 2015-12-7 07:58 PM

=COUNTIFS($B$5:$B$14,$E6,$C$5:$C$14,F$4)在B6輸入這個公式，向右與向下複製試試看吧

凝結集團 發表於 2015-12-8 01:12 AM

感謝大大 !! 我已經試過一次了,可以得到我想要的結果,非常感謝你 !
感恩感恩 !!  {:40:}{:40:}{:40:}{:40:}{:40:}

jasonlin7 發表於 2015-12-13 02:52 AM

本帖最後由 jasonlin7 於 2015-12-14 10:00 PM 編輯

Sub Main()
    Dim myX As String
    Dim myY As Long
    Dim myRng As Range
   
    For Each myRng In
        myRng = ""
    Next
   
    For Each myRng In
        If myRng.Offset(, 1) = "A" Then
            myY = 6
        ElseIf myRng.Offset(, 1) = "B" Then
            myY = 7
        ElseIf myRng.Offset(, 1) = "C" Then
            myY = 8
        Else
            GoTo ErrHandl
        End If
        
        If myRng.Offset(, 2) = "B" Then
            myX = "F"
        ElseIf myRng.Offset(, 2) = "S" Then
            myX = "G"
        ElseIf myRng.Offset(, 2) = "R" Then
            myX = "H"
        ElseIf myRng.Offset(, 2) = "G" Then
            myX = "I"
        ElseIf myRng.Offset(, 2) = "T" Then
            myX = "J"
        Else
            GoTo ErrHandl
        End If
        
        Range(myX & myY) = Range(myX & myY) + 1
    Next
   
ErrHandl:
    End
End Sub...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

jasonlin7 發表於 2015-12-13 11:34 PM

搜尋的範圍是從第5行到第100行，
詳見程式碼中，
實際情況還是要自己訂喔~<br><br><br><br><br><div></div>