注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

凉茶

 
 
 

日志

 
 

EXCEL VBA应用  

2008-07-16 09:16:34|  分类: Excel自动化 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1、组合函数,将选定区域用","组合起来,形如:A,B,C,D,E,F

Function Zuhe(rng As Range)
For Each ce In rng
    Zuhe = Zuhe & IIf(ce = "", "", "," & ce)
Next
Zuhe = Mid(Zuhe, 2, Len(Zuhe))
End Function

 

2、重算选定区域

Sub CalculationSpecialRange()

    Dim OldCalculation As XlCalculation
    OldCalculation = Application.Calculation
    Application.Calculation = xlCalculationManual
    Selection.Calculate
    Application.Calculation = OldCalculation

End Sub

 

3、為VBA添加快捷鍵

在VBA的this workbook 中添加如下語句

Private Sub Workbook_Open()
Application.OnKey "^k", "CalculationSpecialRange"
Application.OnKey "^%a", "AF"
End Sub

代碼
BACKSPACE {BACKSPACE}{BS}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
CLEAR {CLEAR}
DELETE 或 DEL {DELETE}{DEL}
DOWN ARROW {DOWN}
END {END}
ENTER (數字小鍵盤) {ENTER}
ENTER ~ (tilde)
ESC {ESCAPE}{ESC}
HELP {HELP}
HOME {HOME}
INS {INSERT}
LEFT ARROW {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
RETURN {RETURN}
RIGHT ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
UP ARROW {UP}
F1 到 F15 {F1}{F15}

您也可指定與 SHIFT 鍵和/或 CTRL 鍵和/或 ALT 鍵的組合鍵。要指定與這些鍵的組合可使用下表提供的方法。

要組合的鍵 在鍵代碼之前新增
SHIFT + (加號)
CTRL ^ (指數)
ALT % (百分號)
後面是宏的名稱

  评论这张
 
阅读(251)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017