VBA中Application.OnKey问题

VBA中的range问题~

有几个地方不足，改正如下；
Sub rng()Dim rng As RangeDim i%i = 1For Each rng In Worksheets("sheet1").Range("A1", Cells(Rows.Count, 1).End(xlUp))Worksheets("sheet2").Range("A" & CStr(i)) = rngi = i + 1Next rngEnd Sub

是不是代码没加到open 模块中

要执行完比的按键代码后才响应按键事件，你的CLICK事件应该这样写：

Private Sub CommandButton1_Click()
Application.OnKey "{UP}", "OnKey_Up"
Application.OnKey "{DOWN}", "OnKey_Down"
End Sub

VBA为了防止事件代码重入。

要执行完比的按键代码后才响应按键事件，你的CLICK事件应该这样写：

1
2
3
4

Private Sub CommandButton1_Click()
Application.OnKey "{UP}", "OnKey_Up"
Application.OnKey "{DOWN}", "OnKey_Down"
End Sub

VBA为了防止事件代码重入。

要执行完比的按键代码后才响应按键事件，你的CLICK事件应该这样写：

1 Private Sub CommandButton1_Click()
2 Application.OnKey "{UP}", "OnKey_Up"
3 Application.OnKey "{DOWN}", "OnKey_Down"
4 End Sub

VBA为了防止事件代码重入。

晓不得 实在是不晓得

---

沿滩区15772199483： Excel VBA中APPLICATION是什么意思 - ？
标先瑞安： Application对象是Excel对象模型中最高层级的对象,代表Excel应用程序自身,也包含组成工作簿的许多部分,包括工作簿、工作表、单元格集合以及它们包含的数据.Application对象包含:应用程序设置和选项,许多选项与“选项”对话框中的选项相同.返回顶级对象的方法,例如ActiveCell、ActiveSheet,等等.参考资料:http://wenku.baidu.com/link?url=T-4M_0jfWSwH1AFNd0sWtLgY1uXmFCRPO8lalwS8MZy-O4RrJe_VDExiUvNAJcbpO_nUq4rEuB4woPRh6U1fS_BfxQtVtbMEaEPxEbKpLh_

沿滩区15772199483： VBA中application对象的主要作用 - ？
标先瑞安： 用户可以使用Application 对象的属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观或者调整Word 对象模型的其他方面.可以使用Application属性来返回Word Application 对象.以下的示例从视图状态切换到打印预览状态. Application. PrintPreview = True

沿滩区15772199483： excel vba 中的Application具有什么作用? - ？
标先瑞安： “excel高级培训讲师朱仕平” 的回答 言简意赅!就是第2条,虽然说的不错,但是有一些意犹未尽.基本函数嵌套使用 既麻烦又易出错,有些循环、判断又无法使用,用vba则既轻松又容易检查、修改,功能还十分强大.不知是否说到位了.

沿滩区15772199483： 一直不太明白: vba中函数前到底是加 application 还是application.workfunction, 到底有什么讲究? - ？
标先瑞安： WorksheetFunction是对Application里面部分工作表函数的再封装,本质仍然是一个函数,但是调用的方式有不同之处. 推荐用application.sum而不使用application.workfunction.sum. 终究来说,多一个封装,那么运行所耗的时间也要长一些.

沿滩区15772199483： Vba中用application.username来获取用户名,为什么我的电脑可以实现,但是别人电 - ？
标先瑞安： 你是下面这样写的吗,我下面这个在我用过的电脑上都是可以的.然后用macro1来返回就可以. Public Declare Function GetComputerName Lib ＂kernel32＂ Alias ＂GetComputerNameA＂ (ByVal lpBuffer As String, nSize As Long) As Long...

沿滩区15772199483： VBA Application.Dialogs.Show 怎么用 - ？
标先瑞安： Application.Dialogs属性返回内置对话框对象集合,代表全部对话框,所以不能直接用show方法来显示,要显示某个对话框,必要使用指定的识别符或序号.例如要显示打开文件对话框,可用下面语句:Application.Dialogs(xlDialogOpen).Show 或者 Application.Dialogs(1).Show

沿滩区15772199483： Excel 关于对象中的VBA和application的区别 - ？
标先瑞安： Application 对象 代表整个 Microsoft Excel 应用程序.说明 Application 对象包括:应用程序范围的设置和选项.返回顶级对象的方法,如 ActiveCell 和 ActiveSheet 等.示例 使用 Application 属性可返回 Application 对象.下例对 Application 对象...

沿滩区15772199483： 怎样在VBA指令中调用Excel函数 - ？
标先瑞安： 1在用函数时候加上application.或worksheetfunction. 2,例如vlookup(),写为application.vlookup()即可

沿滩区15772199483： 请教一个关于excel中vba函数使用的问题 - ？
标先瑞安： 1、在excel中的vba里使用内置vba函数的使用方法:调用Application对象的WorksheetFunction属性.示例: 本示例对单元格区域 A1:A10 使用 Min 工作表函数,并显示结果. Set myRange = Worksheets(＂Sheet1＂).Range(＂A1:C10＂) ...

沿滩区15772199483： 在vba中什么时候用Application.worksheetfunction - ？
标先瑞安： application.worksheetfunction 是在调用工作表函数(就是那些能在单元格中输入并执行的函数,如:=len(a1))时时使用的 application.worksheetfunction.len([a1]) 可以简化写作:application.len([a1]) 或worksheetfunction.len([a1])