Excel工作表单元格单击选中事件，VBA动态数值排序

标签：Dim VBA Target 单击 单元格 Excel Integer

Excel工作表单元格单击选中事件，VBA动态数值排序（WX公众号：Excel潘谆白说VBA)

文章目录

• 前言
• 一、运行效果
• 二、代码

---

前言

面对每月的消费账单，面对月底待还的信用卡或花呗，面对不足三位数的余额，你是否怀疑过账单自己的消费。你是否因此开始记账，每个月记流水,想知道当月中消费金额哪项最多，哪项最少;
你是一名会计，只想用粗略的查看某个月、某个科目下或某个客户经济往来的的变化趋势;
你是一名行政人员，想了解一下每个月某个员工迟到、旷工、加班情况，或当月所有员工迟到、旷工、加班排序;
你是仓库保管人员，想查看某种类的货物当年进、出量排序……
不需要筛选、汇总、计算，只要点击所查单元格，VBA快速帮你排列顺序。

---

一、运行效果

<iframe allowfullscreen="true" data-mediaembed="csdn" frameborder="0" id="0wTIgVyA-1716465973598" src="https://live.csdn.net/v/embed/391807"></iframe>

Excel工作表单元格单击选中事件，VBA动态数值排序

二、代码

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Dim str As String
  Dim targetUsedRow As Integer
  Dim targetUsedCol As Integer
  Dim sumTarget As String
  Dim sumAll As Integer
  Dim arrA() As Integer
  Dim tmp1 As Integer
  Dim tmp2 As String
  On Error Resume Next
  ActiveSheet.Range("A1:IV65536").Interior.ColorIndex = xlNone
  str = ActiveSheet.Cells(Target.Row, Target.Column).Value
  For i = 1 To 65536         '计算行数
    If ActiveSheet.Cells(i, Target.Column)

标签：Dim,VBA,Target,单击,单元格,Excel,Integer
From： https://blog.csdn.net/BeijixingVBA/article/details/139156404