双击合并单元格，获取合并单元格的值错误，求大神帮助

明天再会

双击合并单元格，获取合并单元格的值错误
求大神帮助

wengjl

可用 选中 取值 不可以吗？

明天再会

wengjl 发表于 2024-8-5 14:20
可用 选中 取值 不可以吗？

可以双击选中  不能取值 错误

准提部林

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
     MsgBox .Item(1).Value
     Cancel = True
End With
End Sub

ykcbf1100

附件供参考。。。

ykcbf1100

工作表事件

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Not Target.MergeCells Then
   
3.         ' 如果不是合并单元格，允许双击事件继续
   
4.         Exit Sub
   
5.     End If
   
6.     MergeValue = Target.Cells(1, 1).Value
   
7.     MsgBox "合并单元格的值为: " & MergeValue
   
8. End Sub
   

复制代码

醉眼看尘世

抄一个
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
     MsgBox TARGET.cells(1,1).Value
     Cancel = True
End With
End Sub

ynzsvt

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.MergeCells Then
   
3.   Dim cellValue As String
   
4.   cellValue = Target(1).MergeArea.Cells(1, 1).Value
   
5.   MsgBox "合并单元格的值是: " & cellValue
   
6.   Cancel = True
   
7. Else
   
8.   MsgBox "这不是一个合并单元格"
   
9. End If
   
10. End Sub
    
11. 
    
12. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    
13. If Target.MergeCells Then
    
14.   Dim cellValue As String
    
15.   cellValue = Target(1).MergeArea.Cells(1, 1).Value
    
16.   MsgBox "合并单元格的值是: " & cellValue
    
17.   Cancel = True
    
18. Else
    
19.   MsgBox "这不是一个合并单元格"
    
20. End If
    
21. End Sub

复制代码