Excel VBA实现用户选择列作为参照点的代码问题求助

修复后完整代码 #

Dim UserInput1 As Range ' 交易列标识变量
Dim Transaction_Column As Range ' 交易列变量
Dim PositiveSum As Double ' 示例变量：存储交易列正值求和结果

' 临时开启错误捕获处理用户取消输入的场景
On Error Resume Next
Set UserInput1 = Application.InputBox _
        (prompt:="选择交易金额所在的整列", Type:=8)
On Error GoTo 0 ' 恢复默认错误捕获，避免后续运行问题被隐藏

' 处理用户点击取消的场景
If UserInput1 Is Nothing Then
    Exit Sub
End If

' 校验1：仅允许选择1列
If UserInput1.Columns.Count <> 1 Then
    MsgBox "请仅选择1列"
    Exit Sub
End If

' 校验2：强制必须选择完整列
If UserInput1.Address <> UserInput1.EntireColumn.Address Then
    MsgBox "请点击列标选中完整的一列，不要只选中部分单元格"
    Exit Sub
End If

' 将选中的整列赋值给变量，后续可以直接用该变量操作对应列
Set Transaction_Column = UserInput1.EntireColumn

' ----------------------
' 示例：实现交易列所有正值求和
' ----------------------
PositiveSum = WorksheetFunction.SumIf(Transaction_Column, ">0", Transaction_Column)
MsgBox "交易列所有正值求和结果为：" & PositiveSum

' 其他常用引用方式示例：
' 1. 引用该列第2行的单元格：Transaction_Column.Cells(2, 1)
' 2. 仅遍历该列有数据的单元格，避免遍历整列空行卡顿：
' Dim cell As Range
' For Each cell In Intersect(Transaction_Column, Transaction_Column.Parent.UsedRange)
'     ' 在这里写每个单元格的处理逻辑
' Next cell

问题修复说明 #

• 针对无法强制用户选择整列的问题：新增选中区域和对应整列的地址对比校验，只有用户点击列标选中完整列才会通过校验，选中单个单元格、部分区域都会触发提示。同时补充了用户点击取消输入框的异常处理，避免代码报错。
• 针对选中列后无法引用特定单元格的问题：将选中的整列赋值给Transaction_Column变量后，有多种灵活引用方式：
  • 直接调用工作表函数对整列做批量计算，比如示例中的SumIf求正值和
  • 用Transaction_Column.Cells(行号, 1)直接引用该列指定行的单元格
  • 配合UsedRange取交集，可仅遍历该列有数据的区域，提升运行效率

内容的提问来源于stack exchange，提问作者Newbie