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

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 更改为“栏”

我现在想要脚本将文件夹“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