07 - VBA常用操作（01）

1. 基本操作

1.1 自动保存表格

ActiveWorkbook.Save

1.2 某个单元格的值

• 直接获取A1的值

# 1
Range("A1").Value
# 2
Sheet1.Cells(1, 1)

• 更严谨些：指定哪个工作表(SheetName)-哪个单元格(B2)

ThisWorkbook.Sheets("SheetName").Range("B2").Value

1.3 当前文件的全路径

Application.ActiveWorkbook.FullName

1.4 当前文件所在文件夹

Application.ThisWorkbook.Path

1.5 当前的Sheet页

Application.ActiveWindow.ActiveSheet.Name

2 高级操作

2.1 自动执行

• AutoOpen可作为一个Macro。使得Excel打开时，会自动执行该Marco中所写的相关命令，无需人为干预。

Sub Auto_Open()
	MsgBox ("Auto Start This Marco!")
End Sub

2.2 定时

Public TimerEnabled As Boolean
  
  Sub EnableTimer()  '定时启用
    TimerEnabled = True
    StartTimer
  End Sub
  
  Sub DisableTimer()  '定时停用
    TimerEnabled = False
  End Sub
  
  Sub StartTimer()      '注意改代码需要放在模块级
      If TimerEnabled = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "StartTimer" '每1秒钟自动运行一次
        'Application.OnTime TimeValue("12:00:00") + TimeValue(23:59:59"), "StartTimer"  '每天12点执行
        Run  '需要每秒运行的代码
      End If
  End Sub
  
  Sub Run()
  	Range("A1").Value = Range("A1").Value + 1
  End Sub

2.3 禁用VBA系统自动弹出的的窗口

将此属性设置为 False 可在宏运行时禁止显示提示和警告消息；当出现需要用户应答的消息时，Microsoft Excel 将选择默认应答。

Public Sub
	# set = False
	Application.DisplayAlerts = False
	'预执行的代码块'
	# reset
	Application.DisplayAlerts = True
End Sub