[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)

VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

273: デフォルトの名無しさん [sage] 2017/02/26(日) 16:00:22.84 ID:nt1S72uw >>272 Dim s As String Dim t As String With Application.FileDialog(msoFileDialogFolderPicker) 　　If .Show = False Then Exit Sub 　　t = .SelectedItems(1) & "\" End With '途中省略 s = t & .Cells(i, 2).Value & ".jpg" じゃないかな? あと 元コードもそうだけど フォルダ内に その画像ファイルが存在してなかった時の対策も必要だと思うよ 同じエラーになるぞ　それとも絶対 あるのが 確定してる? http://mevius.5ch.net/test/read.cgi/tech/1432173164/273

274: デフォルトの名無しさん [sage] 2017/02/26(日) 16:45:49.33 ID:nMuhJunv >>273 大変ありがとうございます！ ただ、貼り付ける画像は複数あり、貼り付けるたびにフォルダ選択画面が出てしまいますので、一気に貼り付けられないものでしょうか？ ファイルが存在してない時の対策は、セルの状態を色変えて罫線で斜線を挿入したいと考えてますが、まだそこまで進む前段階がクリアできないので困ってます よろしくお願いします http://mevius.5ch.net/test/read.cgi/tech/1432173164/274

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.050s