合并单元格双击事件问题

yishang3

合并单元格双击事件问题.rar (10.76 KB, 下载次数: 6)

2024-7-10 12:34 上传

点击文件名下载附件

在进行单元格双击事件时，合并单元格总是报错91或1004，请老师们帮忙看一下，错在哪里，应如何修改。谢谢！代码如下：

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Dim fileName As String
   
3.     Dim mergedRange As Range
   
4. 
   
5.     If Target.MergeCells Then
   
6.       
   
7.         Set mergedRange = Target.MergeArea
   
8.    
   
9.         fileName = mergedRange.Cells(1, 1).Value
   
10.     Else
    
11.       
    
12.         fileName = Target.Value
    
13.     End If
    
14. 
    
15. 
    
16.     If fileName <> "" Then
    
17.       
    
18. MsgBox fileName
    
19.      
    
20.         Cancel = True
    
21.     End If
    
22. End Sub

复制代码

gufengaoyue

改成这样 Set mergedRange = Target(1)

gufengaoyue

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Dim fileName As String
   
3. 
   
4.     If Target.MergeCells Then
   
5.       
   
6.         fileName = Target(1).Value
   
7.     Else
   
8. 
   
9.         fileName = Target.Value
   
10.     End If
    
11. 
    
12. 
    
13.     If fileName <> "" Then
    
14.       
    
15.         MsgBox fileName
    
16.         
    
17.         Cancel = True
    
18.     End If
    
19. End Sub
    

复制代码

liuyu5863016

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Dim fileName As String
   
3.     Dim mergedRange As Range
   
4. 
   
5.     If Target.MergeCells Then
   
6.       
   
7.         Set mergedRange = Target
   
8.    
   
9.         fileName = mergedRange.Cells(1, 1).Value
   
10.     Else
    
11.       
    
12.         fileName = Target.Value
    
13.     End If
    
14. 
    
15. 
    
16.     If fileName <> "" Then
    
17.       
    
18. MsgBox fileName
    
19.      
    
20.         Cancel = True
    
21.     End If
    
22. End Sub

复制代码

Set mergedRange = Target.MergeArea。
假如合并单元格为A5:A8，因为你是使用鼠标点击，所以无论你怎么点，你都只能点到[A5]单元格，永远不会点到[A6】【A7][A8]这几个单元格，所以target已经从单个单元格（[A5]）变为了合并单元格整体（[A5:A8]）。因此，Target.MergeArea就变为了返回一个合并单元格.合并单元格的对象，它就提示对象错误。但如果从代码中直接操作单元格，如果A5:A8是合并单元格，那么[A5].MergeArea或[A6].MergeArea会返回A5:A8的合并单元格整体的对象，语句就不会报错

longwin

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim fileName As String
   
    If Target.MergeCells Then
   
        fileName = Target.Cells(1, 1).Value
        
    Else
   
        fileName = Target.Value
        
    End If
   
    If fileName <> "" Then
   
        MsgBox fileName
        
        Cancel = True
    End If
End Sub