请大佬进来帮忙看下代码是不是哪里变化了

mkm-_7605

空格里一回车 就提示这个错误，咋回事，以前还不是这样的
代码哪里自动动了吗？

boy8199

没发现错误

mkm-_7605

c列一回车都会出现

mkm-_7605

boy8199 发表于 2024-11-6 15:08
没发现错误

c列空白格一回车，就出现了

沈默00

WPS试了，没问题
怎么这么多的单元格代码

mkm-_7605

沈默00 发表于 2024-11-6 15:32
WPS试了，没问题
怎么这么多的单元格代码

不是点  点着没事，是回车

usedrange

修改了一下，看看行不行

1. Dim oDpd As Object
   
2. Dim sFml1 As String
   
3. Dim prvTarget As Range
   
4. 
   
5. 
   
6. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
7. Const dFixedPos As Double = 0.8
   
8. Const dFixWidth As Double = 10     'Change here to change Width of the DropDown
   
9. Const ValidWidth = 2       '宽度倍数
   
10. Dim vld As Validation
    
11. Dim lDpdLine As Long
    
12. Dim str As String
    
13. 
    
14. On Error GoTo 0
    
15. 
    
16. Set vld = Target.Validation
    
17. On Error GoTo Terminate
    
18. sFml1 = "vld.Formula1"  '这里随便加入一个字符串
    
19. On Error GoTo 0
    
20. 
    
21. Set prvTarget = Target
    
22. 
    
23. 'lDpdLine = Range(Mid(sFml1, 2)).Item(oDpd.Value)
    
24. lDpdLine = Cells(Rows.Count, 1).End(xlUp).Row
    
25. With Target
    
26.         Set oDpd = ActiveSheet.DropDowns.Add( _
    
27.                                      .Left - dFixedPos, _
    
28.                                      .Top - dFixedPos, _
    
29.                                      .Width + dFixWidth + dFixedPos * 2, _
    
30.                                      .Height + dFixedPos * 2)
    
31.         
    
32. End With
    
33. If Target.Count > 1 Then
    
34.         Set oDpd = Nothing
    
35.         Exit Sub
    
36. End If
    
37. With oDpd
    
38.         .ListFillRange = sFml1
    
39.         .DropDownLines = lDpdLine
    
40.         .Display3DShading = True
    
41.         .Text = Target.Value
    
42. End With
    
43. 
    
44. If Not prvTarget Is Nothing Then
    
45.         If Not oDpd Is Nothing Then
    
46.                 If oDpd.Value = 0 Then
    
47.                         prvTarget.Value = prvTarget.Value
    
48. '                        prvTarget.Value = vbNullString
    
49.                 Else
    
50.                         prvTarget.Value = Range(Mid(sFml1, 2)).Item(oDpd.Value)
    
51.                 End If
    
52.                 Set prvTarget = Nothing
    
53.         End If
    
54. Else
    
55.         
    
56. End If
    
57. 
    
58. On Error Resume Next
    
59. oDpd.Delete
    
60. sFml1 = vbNullString
    
61. Set oDpd = Nothing
    
62. Terminate:
    
63. 
    
64. 'Cells.FormatConditions.Delete '行列十字交叉高亮显示
    
65. '  With Target.EntireColumn '行列十字交叉高亮显示
    
66. ' .FormatConditions.Add xlExpression, , "=true"  '行列十字交叉高亮显示
    
67. ' .FormatConditions(1).Interior.ColorIndex = 36 '行列十字交叉高亮显示
    
68. ' End With '行列十字交叉高亮显示
    
69. ' With Target.EntireRow '行列十字交叉高亮显示
    
70. ' .FormatConditions.Add xlExpression, , "=true" '行列十字交叉高亮显示
    
71. '.FormatConditions(2).Interior.ColorIndex = 36  '行列十字交叉高亮显示
    
72. ' End With '行列十字交叉高亮显示
    
73.    
    
74. End Sub

复制代码

沈默00

mkm-_7605 发表于 2024-11-6 15:43
不是点  点着没事，是回车

不是双击，，就是按回车的呀，，

mkm-_7605

usedrange 发表于 2024-11-6 15:51
修改了一下，看看行不行

还是会出现这个错误提示提示的是这句话ActiveCell.Resize(1, 1).Borders.LineStyle = xlNone

mkm-_7605

我把提示错误那句也贴出来了