Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
MkDir "E:\新建文件夹\" & Target.Value
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
Shell "explorer.exe " & "E:\新建文件夹\" & Target.Text, vbNormalFocus
End If
End Sub
alt+F11打开VBE编辑器,双击左侧工程管理器里对应工作表标签,粘贴以上代码
在文件名上点击鼠标右键——超链接——现在有文件或网页,点查找范围右边的下拉剪头,找到你需要链接的文件,确定就OK了
写代码才可以实现