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

wp231957

在不使用  Private Sub Worksheet_SelectionChange(ByVal Target As Range)  的前提下

如果获取当前sheet中  是否有单元格被选中  或者是哪个单元格被选中  被选中的单元格的值是多少

最佳答案

月排行榜 / 总排行榜

陶远航

2023-4-29 11:25:40

可以通过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变量来访问选中单元格的地址和值。

跳转到最佳答案楼层

isdkz

在VBA中，即使不使用`Private Sub Worksheet_SelectionChange(ByVal Target As Range)`事件，你仍然可以获取当前工作表中选中的单元格以及其值。你可以通过`ActiveSheet`和`Selection`对象来实现这一点。

以下是一个简单的例子，显示如何获取当前工作表中选中单元格的地址和值：

1. Sub GetSelectedCell()
   
2. 
   
3.     Dim ws As Worksheet
   
4.     Dim selectedRange As Range
   
5.     Dim selectedCell As Range
   
6.     Dim cellAddress As String
   
7.     Dim cellValue As Variant
   
8. 
   
9.     ' 获取当前活动工作表
   
10.     Set ws = ActiveSheet
    
11.    
    
12.     ' 获取选中的区域
    
13.     Set selectedRange = ws.Selection
    
14. 
    
15.     ' 遍历选中的单元格
    
16.     For Each selectedCell In selectedRange.Cells
    
17.         cellAddress = selectedCell.Address
    
18.         cellValue = selectedCell.Value
    
19. 
    
20.         ' 输出单元格地址和值
    
21.         MsgBox "选中的单元格地址: " & cellAddress & vbNewLine & "单元格的值: " & cellValue
    
22.     Next selectedCell
    
23. 
    
24. End Sub
    

复制代码

这个示例中的代码将遍历活动工作表中所有选中的单元格，并弹出一个消息框显示每个单元格的地址和值。你可以根据需要自定义这个过程，例如将选中单元格的信息存储在变量中以便稍后使用。

wp231957

isdkz 发表于 2023-4-28 14:03
在VBA中，即使不使用`Private Sub Worksheet_SelectionChange(ByVal Target As Range)`事件，你仍然可以获 ...

难道我的不是excel

isdkz

wp231957 发表于 2023-4-28 14:18
难道我的不是excel

额，不清楚，我的电脑上没有 excel 试不了，wps 上使用 vba 要开通企业权益才行，我等会儿下载个 office 看看

陶远航

可以通过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变量来访问选中单元格的地址和值。

wp231957

陶远航 发表于 2023-4-29 11:25
可以通过VBA中的Application.Selection属性来获取当前被选中的单元格或单元格区域。具体来说，可以使用以下 ...

再追问一下：
selectedRange.Value   这个只适合选中的是一个单元格   如果是一些单元格  该怎么写

陶远航

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

如果您想获取用户通过鼠标选择的单元格范围，您可以使用 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

复制代码

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