ActivatelastExcelWorkbookaftermultipleruns
创始人
2024-05-20 01:35:42
0次

在多次运行后激活最后一个Excel工作簿，可以通过VBA代码实现。具体实现方法如下所示：

Sub ActivateLastWorkbook()
    Dim lastWorkbook As Workbook
    Set lastWorkbook = ThisWorkbook
    
    '找到最后一个打开的工作簿
    For Each book In Workbooks
        If book.FullName <> ThisWorkbook.FullName Then
            Set lastWorkbook = book
        End If
    Next book
    
    '激活最后一个工作簿
    lastWorkbook.Activate
End Sub

上述代码中，首先声明了一个Workbook类型的变量lastWorkbook，作为最后一个工作簿的对象。然后使用循环遍历所有打开的工作簿，找到最后一个不是当前工作簿的工作簿赋值给lastWorkbook。最后使用Activate方法激活lastWorkbook，即最后一个工作簿。

上一篇：activate和prompt区别

下一篇：activate如何在ubuntu上安装

相关内容

热门资讯

玻璃硬盘原理图 玻璃硬盘原理 玻璃硬盘，又称为磁头悬浮硬盘（Magnetic Head Flying Disk，MHFD），是一种...
闲鱼搜索规则与技巧 闲鱼最新特... 在闲鱼这个二手交易平台上，有很多用户都希望能够找到一些特殊的东西，比如一些罕见的收藏品、独特的手工艺...
家里监控最长能保存多少天的记录... 家里监控一般保存多久 随着科技的发展，家庭监控系统已经成为了许多家庭的必备设备，它不仅可以帮助我们...
华为tag有用吗 华为tag-... 华为Tag是华为手机中的一种功能，它可以帮助用户更好地管理自己的手机数据和应用，通过使用华为Tag，...
ps5手柄可用手机快充充电吗 ... PS5手柄，即PlayStation 5的DualSense手柄，是索尼公司为PlayStation...
QQ音乐提示代理模式可能无法正... QQ音乐提示代理模式可能无法正常访问，如上图所示，是怎么回事呢？ 这个可能和你的网络设置有关系，首先...
收到微信有提示音怎么去掉 微信... 微信收到信息没有提示音，可能是由多种原因导致的，以下是一些可能的原因及解决方法： 1. 手机静音或...
a100显卡对应的cuda版本 在进行GPU加速的编程中，CUDA是常用的架构和平台，其版本和显卡型号之间存在着一定的对应关系。本篇...
别人打电话听不见我说话怎么回事... 当我们在使用手机时，可能会遇到别人打电话过来听不见声音的情况，这种情况可能是由多种原因导致的，下面我...
苹果手机非通讯录电话打不进来 ... 手机电话打不进来可能有多种原因，以下是一些常见的问题及解决方法： 1. **信号问题**： ...