[已解决]谢谢mxg825老师。如何双击单元格打开指定路径

lhj323323

老师：
在上传的附件中有详细的说明，请看看，谢谢了。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-13 23:50

工作表事件 没有双击事件,双击是修改事件,但必须是退出单元格时 才发生! 不符你要求!
下面的代用是写单击 选取单元格事件

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Column <> 2 Then Exit Sub
   
4.     If Len(Target) = 0 Then Exit Sub
   
5.     Dim myPath$
   
6.     myPath = Left(Target, Len(Target) - Len(Target.Offset(, -1)) - 1)
   
7.     If MsgBox(myPath, 4 + 32, "确定要打开下面的文件夹吗?") = vbNo Then Exit Sub
   
8.     Shell "explorer.exe " & myPath, vbNormalFocus
   
9. End Sub

复制代码

跳转到最佳答案楼层

lcp92095

学习学习  看看怎么样

OPQ

给你一个打开代码！
文件夹名自己试着截取一下

1. Shell "explorer.exe " & "C:\WINDOWS\System32", vbNormalFocus

复制代码

lhj323323

回复 OPQ 的帖子

怎么截取呀？
C:\Program Files\Kingsoft\KSafe\KSafeSvc.exe
用什么语句截取成
C:\Program Files\Kingsoft\KSafe

lhj323323

回复 lhj323323 的帖子

向朋友们求助

mxg825

工作表事件 没有双击事件,双击是修改事件,但必须是退出单元格时 才发生! 不符你要求!
下面的代用是写单击 选取单元格事件

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Column <> 2 Then Exit Sub
   
4.     If Len(Target) = 0 Then Exit Sub
   
5.     Dim myPath$
   
6.     myPath = Left(Target, Len(Target) - Len(Target.Offset(, -1)) - 1)
   
7.     If MsgBox(myPath, 4 + 32, "确定要打开下面的文件夹吗?") = vbNo Then Exit Sub
   
8.     Shell "explorer.exe " & myPath, vbNormalFocus
   
9. End Sub

复制代码

excel010

mxg825 发表于 2011-10-13 23:50
工作表事件 没有双击事件,双击是修改事件,但必须是退出单元格时 才发生! 不符你要求!
下面的代用是写单击  ...

老师能抽空帮帮我吗？等着救命啊！

两组数据进行对比将相差的数据列出来
http://www.excelpx.com/thread-217563-1-1.html