gpt4 book ai didi

vba - 自动打开一个excel文件到所有工作表中的单元格A1(使用VBA)

转载 作者:行者123 更新时间:2023-12-04 21:53:41 25 4
gpt4 key购买 nike

我正在尝试编写 VBA 代码,以便每当我在 excel 中打开任何文件时,它都会自动转到所有工作表中的单元格 A1(无论上次保存时选择了哪些单元格)。我在网上找到了一些建议将以下代码放入我的个人 .xlsb 项目中的内容:

Sub kTest()

Dim i As Long, s() As String, a As String, n As Long

With ActiveWorkbook
For i = 1 To .Worksheets.Count
a = a & .Worksheets(i).Name
n = n + 1
ReDim Preserve s(1 To n)
s(n) = .Worksheets(i).Name
If Len(a) > 224 Then
.Worksheets(s).Select
.Worksheets(s(1)).Activate
[a1].Select
n = 0: a = "": Erase s
End If
Next
If Len(a) Then
.Worksheets(s).Select
.Worksheets(s(1)).Activate
[a1].Select
End If
Application.Goto .Worksheets(1).Range("a1")
End With

End Sub

但是当我打开文件时没有任何 react 。请帮忙!

最佳答案

您不能在每张纸上都转到单元格 A1。但是,如果您想转到单张纸的单元格 A1,您可以执行以下操作。

使用以下代码创建类 ExcelEvents

Option Explicit

Private WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
App.Goto Wb.Worksheets(1).Range("A1")
End Sub

Private Sub Class_Initialize()
Set App = Application
End Sub

并在 ThisWorkbook 添加
Option Explicit

Private xlApp As ExcelEvents

Private Sub Workbook_Open()
Set xlApp = New ExcelEvents
End Sub

保存工作簿,重新打开它,workbook_open 事件中的代码将运行,这意味着一旦您打开另一个工作簿,代码将转到工作表 1 的单元格 A1

编辑 如果您真的要在每张纸上选择 A1,您可以按如下方式更改代码
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Dim sh As Worksheet
App.ScreenUpdating = False
For Each sh In Wb.Worksheets
sh.Select
sh.Range("A1").Select
Next
App.Goto Wb.Worksheets(1).Range("A1")
App.ScreenUpdating = True
End Sub

关于vba - 自动打开一个excel文件到所有工作表中的单元格A1(使用VBA),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49072210/

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