Excel VBA(1) Application Object

最新推荐文章于 2024-06-27 15:30:11 发布

weixin_33692284

最新推荐文章于 2024-06-27 15:30:11 发布

阅读量571

点赞数

原文链接：http://www.cnblogs.com/kongs/archive/2012/01/17/2323597.html

版权

The Active Properties

ActiveCell
ActiveChart
ActivePrinter
ActiveSheet
ActiveWindow
ActiveWorkbook
Selection

Display Alerts

Application.DisplayAlerts = False
’operations...
Application.DisplayAlerts = True

Screen Updating

Application.ScreenUpdating = False

Evaluate

Evaluate("Expression")
'or
[Expression]

InputBox

vAnswer = Application.InputBox(Prompt:="Enter range", Type:=8)

Value of Type	Meaning
0	A formula
1	A number
2	Text(a string)
4	A logical value(True or False)
8	A cell reference, as a Range object
16	An error value, such as #N/A
64	An array of values

eg. Get a range:

Sub GetRange()
	Dim rng As Range

	On Error Resume Next
	Set rng = Application.InputBox(Prompt:="Enter range", Type:=8)
	If rng Is Nothing Then
		MsgBox "Operation Cancelled"
	Else
		rng.Select
	End If
End Sub

StatusBar

Application.StatusBar = "Message"
'code operations....
'Hide message:
Application.StatusBar = False

SendKeys

Application.SendKeys "keysss..."
'~: Enter, %:Alter, ^:Control

OnTime

Application.OnTime Date + TimeSerial(15, 0, 0), "SubName"
Application.OnTime Now+ TimeSerial(0, 1, 0), "SubName"

OnKey

Sub AssignDown()
	Application.OnKey "{Down}", "DownTen"
End Sub

Sub DownTen()
	ActiveCell.Offset(10, 0).Select
End Sub

Sub ClearDown()
	Application.OnKey "{Down}"
End Sub