EXCEL_光标&&百分比

bash 复制代码
Public Sub InitCells()
    
    Dim iSheet As Long
    
    For iSheet = Sheets.Count To 1 Step -1
    
        Sheets(iSheet).Activate
        ActiveWindow.Zoom = 85
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
        Sheets(iSheet).Range("A1").Activate
    
    Next iSheet

End Sub

对日项目中的文档满天飞,有一个批处理工具还是很有必要的

步骤如下:

1:点击查看代码

2:粘贴进去点击保存(弹框不用管)

3:按alt+f8 然后选中再执行。

注:以上的操作,请新建一个空的excel作为工具比较好。不要再客户的文档中添加宏代码。

使用的时候就打开他放在一边就好了。

相关推荐
njsgcs2 小时前
excel-mcp-server 安装
excel·mcp
未来之窗软件服务14 小时前
万象EXCEL开发(九)excel 高级混合查询 ——东方仙盟金丹期
大数据·excel·仙盟创梦ide·东方仙盟·万象excel
深耕AI应用16 小时前
元表纪基于一个Excel表实现一键发货、打印面单
excel·表格一键发货·自动打印运单·自动打印面单·自动发货
专注VB编程开发20年16 小时前
EXCEL VBA-从X行复制数据插入到Y_Z行
excel·复制数据·vba·插入数据·函数优化
小Tomkk19 小时前
一个学校随机点名系统(代excel 自定义导入名字,+随机点名)
excel
未来之窗软件服务1 天前
万象EXCEL开发(十二)excel 结构化查询 ——东方仙盟金丹期
excel·仙盟创梦ide·东方仙盟·万象excel
专注VB编程开发20年3 天前
VB6.0找不到该引用word,excel“Microsoft Excel 16.0 Object Library”解决方法
word·excel·vba·vsto
林月明4 天前
【VBA】点击按钮,实现将Excel表A数据按格式填入表B
excel·vba
Bella_chene5 天前
Excel转PDF不分页
pdf·excel
goto_w5 天前
前端实现复杂的Excel导出
前端·excel