gpt4 book ai didi

excel - 在多个工作表上添加注释 vba Excel

转载 作者:行者123 更新时间:2023-12-03 00:43:40 25 4
gpt4 key购买 nike

AddComment 语法适用于工作簿中第一个选定的工作表,但对于下一个工作表,出现此错误:错误 1004“应用程序定义或对象定义的错误”。我不知道为什么如果选择了多张纸并且仅适用于第一个选定的纸,则会崩溃。有人有什么想法吗?

 If selectedSheet.Cells(7, columnIndex).value <> 100 Then
selectedSheet.Cells(7, columnIndex).Interior.ColorIndex = 3

If standardReportFilePath <> "" Then 'not using the Standard Report Evalution algorithm
If VerifyStandardReportFile(selectedSheet.Name, selectedSheet.Cells(1, columnIndex).value, wbk, amplitude, missingCrashes) = True Then
selectedSheet.Cells(1, columnIndex).Interior.ColorIndex = 36 ' color the crash cell with yellow
Set rng = selectedSheet.Cells(1, columnIndex)
If rng.Comment Is Nothing Then
**rng.AddComment "In Standard Report this crash starts to deploy from " & CStr(amplitude) & " amplitude"**
Else
rng.Comment.Text "In Standard Report this crash starts to deploy from " & CStr(amplitude) & " amplitude"
End If
End If
End If
End If
End If

显示问题的一组备用代​​码。 (在新工作簿中使用三个空白工作表运行此操作。):

Sub test()
Dim ws As Worksheet
Dim Rng As Range

'Running code with a single sheet selected
Worksheets("Sheet1").Select

'Code that shows issue - this will work
Set ws = Worksheets("Sheet2")
Set Rng = ws.Cells(1, 1)
If Rng.Comment Is Nothing Then
Rng.AddComment "xxx"
End If

'Get rid of comment again
Rng.Comment.Delete

'Running code with multiple sheets selected
Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

'Code that shows issue - will crash on the "AddComment"
Set ws = Worksheets("Sheet2")
Set Rng = ws.Cells(1, 1)
If Rng.Comment Is Nothing Then
Rng.AddComment "xxx"
End If

End Sub

最佳答案

我找到了解决方法,但仍然不知道为什么会出现这个问题。由于某种原因,当您选择了多个工作表时,会发生错误。解决方案是...在使用 someSheet.Select 添加注释之前选择一张工作表。在宏结束时,如果需要,您可以尝试再次选择所有先前选择的工作表。

关于excel - 在多个工作表上添加注释 vba Excel,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45058850/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com