excel宏

很久没写点东西了。想想，今天碰到了原来公司的老领导，想起了过去做的滑词分享功能，就是一堆宏。为了不忘了简单写了一个小功能。

 

代码如下：

'author: yangzc

'设置excel所有sheet到第一个单元格
Sub ToFirstCell()
    Dim i As Integer
    '遍历所有sheets
    For i = 1 To Sheets.Count
        Dim sheet As Worksheet
        Set sheet = Sheets(i)
        sheet.Activate
        Range("A1").Select
        
    Next
    '跳转到第一个sheet,并定位到第一个单元格
    If Sheets.Count > 0 Then
        Sheets(1).Activate
        Range("A1").Select
    End If
    
End Sub

 

 

昨天就想记录一下宏的部署方式。今天终于实验成功了。

 

首先保存该excel文件为“加载宏”,xlam格式。然后Excel选项-加载项把这个excel宏加载进去。就可以使用了