【マクロ】ファイル名の一括変更。条件を満たさなかったら、マクロを終了するコードについて

【やりたい事】
エクセルのシートに、複数の変更前のファイル名と変更後のファイル名があり
実行すると、変更後のファイル名に変更します。２個あれば⇒２個のファイル名を一括変更

ファイルの名前は、例えばA4セルにあるファイル名をD4セルの名前へ変えます
任意のファイル名をB4とC4にハンド入力。D4セルのファイル名を作成します

そこで、条件として、コードに、以下の２つの条件をいれたいです
⇒やり方ご存じのかた、ヒント等、教えて下さい。宜しくお願いします

●B4からB13セルに同じファイル名があったら⇒メッセージ「重複してます」⇒マクロを終了
⇒１つのフォルダにて、同じファイルは作れない為

●A4からA13セルにあるファイル名のファイルがフォルダになかったら⇒メッセージ「ファイルがありません」⇒マクロを終了
⇒変更前の実際にあるファイルのファイル名ととエクセルシート上の変更前のファイル名（A4からA13）が違うという意味です

ファイル保管場所：　C:\Users\2020\OneDrive\マクロ\名前変更フォルダ\ファイル名変更ファイル保管



【コード】
Sub ファイル名変更()
'フォルダパスを宣言
Dim path As String
Dim j As Integer

'A2セルの文字をパスに設定
path = Cells(2, 1) & "\"
j = 1

'B4セルからファイル名を更新
Do Until Cells(j + 3, 1) = ""
'A列のファイル名をB列のファイル名に更新
Name path & Cells(j + 3, 1) As path & Cells(j + 3, 4)
j = j + 1
Loop
End Sub

【参考。ファイル名を取得するコード】
以下、実施後、上のコードで名前を変更します

Sub ファイル名取得()
'フォルダパスを宣言
Dim path As String
'ファイル名を宣言
Dim fileName As String
Dim i As Integer

'A2セルの文字をパスに設定
path = Cells(2, 1) & "\"
'フォルダ内のファイル名を全て取得
fileName = Dir(path, vbNormal)
i = 1

'A4セルからファイル名を表示
Do Until fileName = ""
Cells(i + 3, 1) = fileName
i = i + 1
'次のファイル名を設定
fileName = Dir()
Loop

End Sub

No.2 ベストアンサー 回答者： fujillin 回答日時： 2024/09/01 17:54

No1です。

以下は、ごくプリミティブな重複チェックの例です。
ご参考までに。
（No1の1）に当たる方法です）

＞B4からB13セルに同じファイル名があったら
とのことなので、B4:B13の範囲を対象にしてあります。

Sub Check1()
For i = 4 To 12
　For j = i + 1 To 13
　　If Cells(i, 2).Value = Cells(j, 2).Value Then
　　　MsgBox "同じ値があります"
　　　Exit Sub
　　End If
　Next j
Next i
MsgBox "同じ値はありません"
End Sub

※ 範囲内に空白セルが2つ以上あると、それも重複と見做します。
　空白セルは対象外にしたい場合は、条件判断の際に空白セルを除く
　ようにすればよいでしょう。

この回答へのお礼

ご指導、ありがとうございます
大変、助かります
参考にさせて頂きまして、現在、マクロ作成中です

お礼日時：2024/09/13 07:52

No.1 回答者： fujillin 回答日時： 2024/09/01 12:58

こんにちは

＞やり方ご存じのかた、ヒント等、教えて下さい
やり方は知りませんけれど、とりあえず思いつく方法を・・

＞B4からB13セルに同じファイル名があったら
1）各セルについて同じものがセル範囲に存在するかをループして
　調べれば良いでしょう
　シート関数の COUNTIF(セル範囲, 調べる値) でも調べられます。

2）シートの「重複を削除」を利用して、前後で数が変われば重複があると判断できます。

3）シートを利用して、エクセルに計算してもらう方法でも良ければ
　　=SUMPRODUCT(COUNTIF(B4:B13,B4:B13))=10
　のような関数をどこかのあきセルに設定する方法でも可能です。
（セル範囲に空白セルがあると10にはなりませんので注意が必要）
　空白セルが含まれている可能性がある場合は、
　　=SUMPRODUCT(COUNTIF(B4:B13,B4:B13))=COUNTA(B4:B13)
　とすれば、判定可能です。
（VBAで、WorkSheet.Function等を利用して計算しても可能です）


＞A4からA13セルにあるファイル名のファイルがフォルダになかったら
DIR()関数でファイルの存在を調べることが可能ですので、各ファイル名を
順に調べれば可能でしょう。
https://learn.microsoft.com/ja-jp/office/vba/lan …
ファイルが存在しない場合には、空白文字列（＝””)が返されます。