Question

打开时，在“激活”命令下将客户的个人数据放入每月工作表中。已经使用了无数年，没有任何问题...但是，最近，他们发生了一个有趣的转折，有些文件仍然可以正常使用，而无法按预期工作，其他文件在尝试更改后仍保留了旧数据。我尝试复制工作代码并替换了，但是问题仍然存在示例代码

Private Sub worksheet_activate()
Dim filename As String
Dim Row As Variant
Dim Column As Variant

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Me.ScrollArea = "A16:y56"
      
'description
    Worksheets("april").Range("c4").Select
    ActiveCell.Value = ThisWorkbook.Sheets("prsnldet").Range("g28")
 'title
    Worksheets("april").Range("g5").Select
    ActiveCell.Value = ThisWorkbook.Sheets("prsnldet").Range("g26")
'other titles as per client detail

已阅读有关“激活/选择”意见的几篇文章任何建议都将受到欢迎

Answer 1

除非您有其他事件处理程序将EnableEvents关闭然后再不重置，否则请不清楚问题出在哪里。

Private Sub worksheet_activate()

    Dim filename As String
    Dim Row As Variant
    Dim Column As Variant
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Me.ScrollArea = "A16:y56"
          
    With ThisWorkbook.Sheets("prsnldet")
        Me.Range("c4").Value = .Range("g28").Value 'description
        Me.Range("g5").Value = .Range("g26").Value 'title
        'other titles as per client detail
    End With

'worksheet.activate'似乎已经停止工作

1 个答案: