Excel VBA(1) Application Object

2019-06-23 18:49:37 阅读：313 来源： 互联网

标签：VBA End Sub Object rng Application InputBox False

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

Worksheet Functions

Caller

转载于:https://www.cnblogs.com/kongs/archive/2012/01/17/2323597.html

标签：VBA,End,Sub,Object,rng,Application,InputBox,False
来源： https://blog.csdn.net/weixin_33692284/article/details/93395014

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9