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 | % （百分號） |
评论