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

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

你所谓的激活是不是看此应用程序是否已经打开？如果是，用windows来判断

for i=1 to windows.count

if windows(i).name="判断的应用程序名" then

pd=1

exit for

else

pd=0

end if

if pd=1 then msgbox "已激活" else msgbox "未激活"

next

使用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

---