1

現在、フォルダーを作成するためのこの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」に変更する必要があります

4

1 に答える 1

4

現在選択されているセルまたはアクティブなセルのセル値を保持するグローバル変数を作成します。メソッド 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
于 2013-06-25T17:03:58.483 に答える