首頁猿問最好能用VBA代碼在一個單元格內(nèi)顯...

最好能用VBA代碼在一個單元格內(nèi)顯示OK數(shù)另一個單元格顯示NG數(shù)據(jù)，用函數(shù)解決也可以。

數(shù)據(jù)庫

白衣染霜花 2023-04-22 18:14:22

有20個產(chǎn)品每個產(chǎn)品測有4個數(shù)據(jù)，管控范圍是0-0.05，其中每個產(chǎn)品有些有一個不良或多個不良數(shù)據(jù)，最好能用VBA代碼在一個單元格內(nèi)顯示OK數(shù)另一個單元格顯示NG數(shù)據(jù)，用函數(shù)解決也可以。

查看完整描述

2 回答

慕運維8079593

TA貢獻1876條經(jīng)驗獲得超5個贊

樓主如果只要獲得每一列符合條件的OK數(shù)和NG數(shù)，其實函數(shù)公式就夠了，效率也很高。

示例1：在顯示OK的單元格里輸入 =COUNTIFS(B2:B21,">0",B2:B21,"<0.05")；

示例2：在顯示NG的單元格里輸入 = 20 - OK的個數(shù)，即可。

如果想實現(xiàn)截圖所示的效果：即用顏色區(qū)分開OK和NG屬性的單元格，同時計算個數(shù)，則可以用VBA代碼來實現(xiàn)。

Sub 計數(shù)并用顏色標(biāo)記()Dim rng As Range, c As Range, i%, ok%, ng%Dim startRow&, endRow&startRow = 2: endRow = 21 '在此處定義數(shù)據(jù)區(qū)域的開始行和結(jié)束行，根據(jù)樓主截圖，設(shè)定為2和21i = 1With Sheet1 Do i = i + 1 Set rng = .Range(.Cells(startRow, i), .Cells(endRow, i)) ok = 0: ng = 0 For Each c In rng If c.Value > 0 And c.Value < 0.05 Then c.Interior.Color = RGB(255, 0, 0) '紅色 ok = ok + 1 Else c.Interior.Color = RGB(0, 0, 255) '藍色 ng = ng + 1 End If Next .Cells(endRow + 1, i).Value = ok '在數(shù)據(jù)檢索區(qū)域的下一行寫入ok的個數(shù) .Cells(endRow + 2, i).Value = ng '在數(shù)據(jù)檢索區(qū)域的下兩行寫入ng的個數(shù) Loop Until i = 5 'i = 5意味著數(shù)據(jù)判斷要執(zhí)行完第E列再結(jié)束End WithEnd Sub

反對回復(fù) 2023-04-25

元芳怎么了

TA貢獻1798條經(jīng)驗獲得超7個贊

Sub Macro1() Dim Rng As Range, Rng1 As Range Set Rng = Range("a1:d20") For Each Rng1 In Rng If Rng1.Value > 0.05 Or Rng1.Value < 0 Then Rng1.Interior.Color = vbRed Else Rng1.Interior.Color = vbBlue End If Next Rng1 End Sub