很久没写点东西了。想想,今天碰到了原来公司的老领导,想起了过去做的滑词分享功能,就是一堆宏。为了不忘了简单写了一个小功能。
代码如下:
'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宏加载进去。就可以使用了