主要是管理项目,假定我现在有个excel表,指定的文件夹是F:/项目,当我拿到一个项目时,然后在表格A1输入项目编号“12345”,B1输入客户名“某家公司”,C1输入项目内容“做什么”,当我输入之后,我希望excel去检查F:/项目文件夹中有没有一个叫“某家公司-做什么-12345”的文件夹,如果有,就使表格A1格子超链接到“某家公司-做什么-12345”,如果没有,就创建并超链接。
注意当我接到下一个项目时,会接下去在A2,B2,C2输入相关内容,也要自动检查和创建,不能每次输入信息后都要写一次代码,这时间都够我自己去检查了。要是有其它软件可以实现这功能,直接推荐软件也行
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 3 Then
On Error Resume Next
MkDir "f:\项目\" & Range("a1") & "-" & Range("b1") & "-" & Range("c1")
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="F:\项目\" & Range("a1") & "-" & Range("b1") & "-" & Range("c1")
End If
End Sub
按alt +f11,打开你需要填管理项目的表(在窗口左侧),把代码复制进去就OK了,工作簿需要启用宏追问
If Target.Row = 1 And Target.Column = 3 Then
On Error Resume Next
MkDir "f:\项目\" & Range("a1") & "-" & Range("b1") & "-" & Range("c1")
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="F:\项目\" & Range("a1") & "-" & Range("b1") & "-" & Range("c1")
End If
End Sub
按alt +f11,打开你需要填管理项目的表(在窗口左侧),把代码复制进去就OK了,工作簿需要启用宏追问
非常感谢。第一行是可以了。但是我接下来第二行(A2,B2,C2),第三行...之类的不行啊。我希望写完之后,可以每一行都可以
温馨提示:答案为网友推荐,仅供参考