excel里创建一个按键，想把两个VBA功能模块合并，点击按键能两个模块运行完。怎么合并以下程序？

在第一个程序后面call第二个程序名称，就可以一起运行了。

计算机excel应用快捷键：

Ctrl+S 保存

Ctrl+W 关闭程序

Ctrl+N 新建

Ctrl+O 打开

Ctrl+Z 撤销

Ctrl+F 查找

Ctrl+P 打印文档

Ctrl+X 剪切

Ctrl+C 复制

Ctrl+V 粘贴

Ctrl+A全选

Ctrl+B 粗体

Ctrl+I 斜体

Ctrl+U 下划线

Ctrl+Shift输入法切换

Ctrl+ 空格 中英文切换

Ctrl+Home 光标快速移到文件头

Ctrl+End 光标快速移到文件尾

Ctrl+Esc 显示开始菜单

Ctrl+Shift+<快速缩小文字

Ctrl+Shift+>快速放大文字

Ctrl+F5 在IE中强行刷新

Ctrl+拖动文件 复制文件

Ctrl+Backspace 启动\关闭输入法

Ctrl+Alt+A 截屏(QQ的截屏）

shift + Alt + Print Screen(选中要截屏的地方，然后按这三个键，然后打开图画或者word，粘贴即可)

拖动文件时按住Ctrl+Shift 创建快捷方式

Ctrl+Tab+shift在打开的应用程序中以反方向切换

扩展资料：

快捷键的有效范围不一定相同，比如：系统级快捷键可以全局响应，不论当前焦点在哪里、运行什么程序，按下时都能起作用；而应用程序级热键只能在当前活动的程序中起作用，当应用程序热键的定义程序不活动或在后台运行时，热键就无效了；控件级的热键则仅在当前控件中起作用。

有专门用于设置热键的工具软件，此类工具需要在后台一直运行，否则通过这各种程序定义的快捷键会失效。通过修改键盘按键映射的软件则不属于此类。

通常Windows平台下应用程序级的快捷键有几个是通用的，如Ctrl+Z常用于撤销 *** 作。这种快捷键在菜单项的右侧或是控件的提示框中往往会注明。

用一个VBA就可以实现的。 使用方法： 1、新建一个工作薄，将其命名为你合并后的名字。 2、打开此工作保 3、在其下任一个工作表标签上点击右键，选择“查看代码”。 4、在打开的VBA编辑窗口中粘贴以下代码： Sub 工作薄间工作表合并() Dim FileOpen

你在I列输入任意数据或双击，直接把3段代码改成双击事件,，如下

Private

Sub

Worksheet_BeforeDoubleClick(ByVal

Target

As

Range,

Cancel

As

Boolean)

Dim

R&

If

Target.Row

>

1

And

Target.Column

=

9

Then

'9表示在第9列也就是I列任意输入数据

R

=

Target.Row

Cells(R,

8)

=

Cells(R,

7)

'Cells(R,

8)

表示H列

同样cells（R,7）表示G列

End

If

End

Sub

----------------------------------------------

或者直接把第3段放入第2段，如下

Private

Sub

Worksheet_Change(ByVal

Target

As

Range)

Dim

R&

If

Target.Row

>

1

And

Target.Column

=

9

Then

'9表示在第9列也就是I列任意输入数据

R

=

Target.Row

Cells(R,

8)

=

Cells(R,

7)

'Cells(R,

8)

表示H列

同样cells（R,7）表示G列

End

If

If

Target.Row

=

1

Or

Target.Cells.Count

>

1

Then

Exit

Sub

Application.EnableEvents

=

False

Select

Case

Target.Column

Case

Is

=

11,

13,

15,

17,

19,

21,

23,

25

If

Target.Value

>

0

Then

With

Target.Offset(0,

1)

.Value

=

Now

.NumberFormatLocal

=

"yyyy-m-d

h:mm@"

End

With

End

If

End

Select

Application.EnableEvents

=

True

End

Sub

---