![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
Excelのマクロについて教えてください。
下記のマクロは先日教えて頂いたマクロです。
このマクロを利用して下記のように変更出来る方法を教えてください。
セル「F3」に
「旭川市・釧路市・江別市・札幌市・室蘭市・小樽市・帯広市・苫小牧市
函館市・北見市」以外の表示があった場合は、
コピー元のファイル「■北海道北海道_20230731更新」が作業フォルダ内にコピー出来る方法を教えてください。
例えば、F3に「北広島市」と表示されると
フォルダ内に「■北海道_20230731更新_Copy.pdf」がコピー出来る方法を教えてください。
現状のマクロ
Sub 条例()
On Error Resume Next
If Sheets("受付").Range("F3").Value <> "" Then
Const copy_path As String = "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】\"
Dim strSource As String
strSource = Dir(copy_path & "■" & Sheets("受付").Range("F3").Value & "*.pdf")
FileCopy copy_path & strSource, _
ThisWorkbook.Path & "\" & Mid(strSource, 1, InStrRev(strSource, ".") - 1) & "_Copy.pdf"
End If
End Sub
以上となります。よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
Sub 条例()
On Error Resume Next
Dim targetCities As Variant
Dim city As String
Dim isExcluded As Boolean
Dim copyFilePath As String
Dim destinationFilePath As String
' 特定の都市名リスト
targetCities = Array("旭川市", "釧路市", "江別市", "札幌市", "室蘭市", "小樽市", "帯広市", "苫小牧市", "函館市", "北見市")
' セル F3 の都市名を取得
city = Sheets("受付").Range("F3").Value
' 都市名がリストに含まれているかどうかをチェック
isExcluded = False
For Each c In targetCities
If city = c Then
isExcluded = True
Exit For
End If
Next c
' リストに含まれていない場合
If Not isExcluded Then
' コピー元のファイルパス
copyFilePath = ThisWorkbook.Path & "\■北海道_20230731更新.pdf"
' コピー先のファイルパス
destinationFilePath = ThisWorkbook.Path & "\■北海道_20230731更新_Copy.pdf"
' ファイルをコピー
FileCopy copyFilePath, destinationFilePath
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/28 13:38
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 5 2024/05/29 16:59
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) Excelのマクロについて教えてください。 下記のマクロを実行すると 別ブックに指定セル値をコピーで 1 2024/04/05 21:25
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/03/28 12:00
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
エクセルVBAについて
Visual Basic(VBA)
-
エクセルVBA
Visual Basic(VBA)
-
-
4
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
5
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
6
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
7
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
-
8
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
9
VBA listBoxから
Visual Basic(VBA)
-
10
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
11
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
12
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
13
VBA 複数のエクセルから一つのエクセルに貼り付ける
Visual Basic(VBA)
-
14
エクセルについて
Visual Basic(VBA)
-
15
エクセルVBAについて
Visual Basic(VBA)
-
16
VBA一覧取得 再投稿
Visual Basic(VBA)
-
17
vba アクティブシートの名前変更について教えてください
Visual Basic(VBA)
-
18
vba 削除
Visual Basic(VBA)
-
19
VBA指定行削除
Visual Basic(VBA)
-
20
Excelのマクロについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
エクセルで複数のコメントのサ...
-
frxファイルの役目
-
Vba初心者です。下記のコード助...
-
エクセルのハイパーリンクがコ...
-
バッチファイル 別ファイルにリ...
-
パワポでスライドをコピーでき...
-
bat 同名ファイルコピー時にリ...
-
[エクセル]コピーするとオブジ...
-
開いている別のファイルにExcel...
-
バッチファイル XCOPYで上書き...
-
VBSでExcelシートのコピー
-
Excel VBAで値コピーが使用でき...
-
コマンドプロンプトで、指定し...
-
vbsでExcelのシートをコピーす...
-
FSO.CopyFileでのエラー無視方法
-
xcopyでのバッチコピー方法でコ...
-
VBSで作成したフォルダにファイ...
-
vbsでファイルやフォルダのコピ...
-
エクセル2010、図が大きすぎま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
バッチファイル XCOPYで上書き...
-
frxファイルの役目
-
エクセルVBAで開いているファイ...
-
エクセルのハイパーリンクがコ...
-
[エクセル]コピーするとオブジ...
-
バッチファイル 別ファイルにリ...
-
Vba初心者です。下記のコード助...
-
ファイルサーバ上のファイルが...
-
Gitについて質問。 クローンし...
-
エクセル2010、図が大きすぎま...
-
バッチファイルのコピーで
-
現在のブックを閉じないで、マ...
-
エクセルのマクロについて教え...
-
vbsでExcelのシートをコピーす...
-
同じファイル名 上書きしないフ...
-
アクセス クエリを別のファイ...
-
マインクラフトPCをプレイしよ...
-
xcopyでのバッチコピー方法でコ...
-
開いている別のファイルにExcel...
おすすめ情報
回答ありがとうございます。
私の説明が悪くて申し訳ありません。コピー元のフォルダは
「 "\\nas-sp01\share\確認部\■共通\審査の注意点\条例・細則【確認申請添付】\"」になります
よろしくお願いいたします。