怎样在VBA中实现在单元格输完值就激活某个程序

我拿2003来说吧，你早迹喊右击单元格后有个“超链接”选项，选了后会d出一个对话框。对话框的左陆野边有4个项，第一个是链接到其他Excel表的，第二个是链接到正在用的表的任何工作州哗薄的单元格。你试下看，很简单的

Sub test()

 陆神   AppActivate "Microsoft Word"

 段悉腔   SendKeys "% X"

End Sub

用SendKeys最大握衫化就可以了，效果等于Alt--空格--X键

使用API函数激活后，再获取对象。

声族陪枯明（放在模块的声明中）：

Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

在函数里调用，如：

ShowWindow FindWindow(vbNullString, "乱派无线宽带兆洞"),5

---