Question

现在我有了这个VBA公式来创建文件夹

    Dim R As Range
Dim RootFolder As String
RootFolder = "C:\"  '<<< CHANGE 1
For Each R In Range("A1:A100") '<<< CHANGE 2
    If Len(R.Text) > 0 Then
        On Error Resume Next
        MkDir RootFolder & "\" & R.Text
        On Error GoTo 0
    End If
Next R
End Sub

事情是，我不断改变细胞a1：a100，我非常想说好的单元格A1总是与此文件夹链接，当我重命名单元格A1时，我也希望它重命名该文件夹。

A1包含文字“Foo”

该脚本运行并创建一个名为“Foo”的文件夹

我将A1更改为“Bar”

我现在希望脚本将文件夹“Foo”重命名为“Bar”

Answer 1

创建一个全局变量来保存当前所选或活动单元格的单元格值。使用方法Worksheet_SelectionChange（ByVal Target As Range）获取当前值。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     globalVar = Target.Value
End Sub

现在使用Worksheet_Change（ByVal Target As Range）方法访问globalVar并重命名该文件夹。您需要进行检查以验证文件夹是否存在。

Private Sub Worksheet_Change(ByVal Target As Range)
    'code to rename folder
End Sub

有没有办法将文件夹名称链接到特定单元格？

1 个答案: