- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-10-30
|
6#
發表於 2021-10-7 11:35
| 只看該作者
回復 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
(13.79 KB)
|
