1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Declare Function 蘅荫酸圉GetTickCount Lib "kernel32媪青怍牙" () As Long '电脑使用时间的声明Sub auto_open()'添加第一个菜单按钮 With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True) .Caption="显示磁盘空间(&Space)" .OnAction="显示磁盘卷标及空间" .Style=msoButtonIconAndCaption .FaceId=1185 End With'添加第二个菜单按钮 With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True) .Caption="电脑使用时间(&Times)" .OnAction="电脑使用时间" .Style=msoButtonIconAndCaption .FaceId=487 End With'添加第三个菜单按钮 With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True) .Caption="查电脑IP(&IP)" .OnAction="查电脑IP" .Style=msoButtonIconAndCaption .FaceId=481 End WithEnd SubSub auto_close()Application.CommandBars(1).ResetEnd SubSub电脑使用时间()MsgBox "您的电脑已使用:" & Chr(10) & Round(GetTickCount / 1000 / 60, 0) &"分钟", vbOKOnly+64, "请注意休息"End SubSub显示磁盘卷标及空间()On Error Resume Next Dim磁盘, 磁盘与卷标As String, 卷标 Set卷标=CreateObject("Scripting.FileSystemObject").Drives For Each磁盘In卷标 Set fs=CreateObject("Scripting.FileSystemObject") Set drive=fs.GetDrive(fs.GetDriveName(磁盘 & ":")) MsgBox "磁盘" & UCase(磁盘) & Chr(10) & "卷标名：" & drive.VolumeName & Chr(10) _ & "剩余空间：" & FormatNumber(drive.FreeSpace / 1024 / 1024, 0) & "MB", 64, "磁盘空间" NextEnd SubSub查电脑IP() Dim OpSysSet, OpSys Set OpSysSet=GetObject _ ("winmgmts:{impersonationLevel=impersonate}//" & ComputerName). _ ExecQuery("SELECT index, IPAddress FROM Win32_NetworkAdapterConfiguration") For Each OpSys In OpSysSet If TypeName(OpSys.IPAddress) <> "Null" Then For Each IP In OpSys.IPAddress MsgBox IP, 64, "IP地址" Next End If NextEnd Sub
5、用快捷键F5运行程序，或者重启工作簿，【加载项】功能区出现三个菜单按钮，如图
