[已解决]关于vba的一个小问题

陶远航

可以通过VBA中的Application.Selection属性来获取当前被选中的单元格或单元格区域。具体来说，可以使用以下代码来获取当前被选中的单元格的地址和值：

1. Dim selectedRange As Range
   
2. Set selectedRange = Application.Selection
   
3. 
   
4. If Not selectedRange Is Nothing Then
   
5.     MsgBox "当前选中的单元格是：" & selectedRange.Address & vbCrLf & _
   
6.            "选中单元格的值是：" & selectedRange.Value
   
7. Else
   
8.     MsgBox "当前没有选中任何单元格。"
   
9. End If
   

复制代码

在这个例子中，如果当前有单元格被选中，则selectedRange变量将被设置为选中的单元格区域，否则将显示一条消息表明当前没有选中任何单元格。然后，您可以使用selectedRange变量来访问选中单元格的地址和值。

陶远航

对不起，我最近在上学，没时间回复

如果您想获取用户通过鼠标选择的单元格范围，您可以使用 Selection 对象，它类似于 Range 对象，但不完全相同。您可以将 Selection 对象赋值给一个 Range 对象，然后像处理其他范围一样处理它。例如：

1. Dim myRange As Range
   
2. Set myRange = Selection

复制代码

如果您想获取选择范围的地址（如 "A1:B1"），您可以使用 Selection 对象的 Address 属性。例如：

1. Dim myAddress As String
   
2. myAddress = Selection.Address

复制代码

如果您想设置或获取选择范围的值，您可以使用 Selection 对象的 Value 属性。例如：

1. Selection.Value = "My Range" '设置选择范围的值为 "My Range"
   
2. Dim myValue As Variant
   
3. myValue = Selection.Value '获取选择范围的值并赋值给变量 myValue

复制代码

希望这些信息对您有帮助。