返回列表 上一主題 發帖

[發問] 統計項含有文字

[發問] 統計項含有文字

統計項含有文字.rar (3.05 KB)
想將B6:AE6的答案顯示出"補貨中";如同B8:AE8一樣。
請問:B6的Excel 2003公式要如何修改?
謝謝各位 !

回復 1# johnny1680

請問空白 等 0 嗎?

TOP

回復 2# samwang
空白就是空白,不顯示0。
謝謝!

TOP

回復 1# johnny1680

只要列1、2的資料新增/變更,列11、12品項/數量監控就會即時更新,請測試看看,謝謝

統計項含有文字_1007.zip (18 KB)

TOP

回復 4# samwang
我無權下載檔案。
謝謝!

TOP

回復 5# johnny1680

一般模組:
Sub 更新()
Dim Arr, xD, a, a2, n%
Arr = Range([b2], Cells(1, Columns.Count).End(1))
For j = 1 To UBound(Arr, 2)
    If Arr(2, j) = "" Then Arr(2, j) = "資料無"
Next
For j = 1 To UBound(Arr, 2)
    For j2 = j + 1 To UBound(Arr, 2)
        If Arr(2, j) > Arr(2, j2) Then
            n = n + 1: a = Arr(1, j): a2 = Arr(2, j)
            Arr(1, j) = Arr(1, j2): Arr(1, j2) = a
            Arr(2, j) = Arr(2, j2): Arr(2, j2) = a2
        End If
    Next
Next
Range([b12], Cells(11, Columns.Count).End(1)).ClearContents
Range("b11").Resize(2, UBound(Arr, 2)) = Arr
End Sub

工作表1
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Row = 1 Or .Row = 2 Then Call 更新
End With
End Sub
1.PNG

TOP

回復 6# samwang
不會程式。
但還是謝謝您^^

能指導公式嗎?
謝謝!

TOP

本帖最後由 hcm19522 於 2021-10-7 14:48 編輯

B5 右拉 下拉 {=IFERROR(INDEX(1:1,RIGHT(SMALL(IF($B$2:$AE$2<>"",IF($B$2:$AE$2="補貨中",99,$B$2:$AE$2)/1%+COLUMN($B:$AE)),COLUMN(A1)),2)),"")

https://blog.xuite.net/hcm19522/twblog/590063989
隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

回復 8# hcm19522
格式不對
IFERROR公式我不會改^^"

TOP

本帖最後由 johnny1680 於 2021-10-7 17:50 編輯

B6
=IF(ISERROR(SMALL(IF($B2:$AE2>0,$B2:$AE2),COLUMN(A1))),"",IF(ISERROR(SMALL(IF($B2:$AE2="",$B2:$AE2),COLUMN(A1))),"補貨中",SMALL(IF($B2:$AE2>0,$B2:$AE2),COLUMN(A1))))
只能顯示4個數字   1,2,3,5  和  4個"補貨中"

請問 : B6的公式要如何修正?
才顯示出正確答案(如B8:AE8)。
謝謝 !

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題