返回列表 上一主題 發帖

[發問] 統計項含有文字

回復 1# johnny1680

請問空白 等 0 嗎?

TOP

回復 1# johnny1680

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

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

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

        靜思自在 : 天上最美是星星,人生最美是溫情。
返回列表 上一主題