Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22911 / 76732 ←次へ | 前へ→

【59193】Re:私の質問の仕方が悪かったようですので改めて質問させて下さい。
発言  かみちゃん E-MAIL  - 08/12/1(月) 23:43 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>「行」が100までありまして、また、途中に「空欄」が幾つもありますので、
>>「3行目以下のB列に空白があれば、そこで、マクロは停止」してしまうと、
>>理想の処理にはならないのです。
>
>であれば、以下のコードはおかしいです。
>Do Until Cells(行, 2).Value = ""
>これは、B列の変数「行」のセルが空白になるまでなので、途中に空白があれば
>そこでDo 〜 Loopの繰り返し処理は終了します。

今スレッドを読み返して、気づきましたが、トトさんが

>  If 変換前 <> フォルダ And 変換後 <> フォルダ Then '★
>   Name 変換前 As 変換後
>  End If '★

と、私が提示したコードと似たコードをすでに提示されていましたね。
私のコードも、
  If (変換前 <> フォルダ) And (変換後 <> フォルダ) Then '★
のほうがいいかもしれませんが、

大変失礼しました。

それでも
> 相変わらず「同名ファイルがあります」と表示されます。
ということであれば、
Jakaさんがおっしゃっていますが、
> 本当に同名になるファイル名などがあるから
という可能性と、

>>「行」が100までありまして、また、途中に「空欄」が幾つもありますので、
>>「3行目以下のB列に空白があれば、そこで、マクロは停止」してしまうと、
>>理想の処理にはならないのです。
>
>であれば、以下のコードはおかしいです。
>Do Until Cells(行, 2).Value = ""
>これは、B列の変数「行」のセルが空白になるまでなので、途中に空白があれば
>そこでDo 〜 Loopの繰り返し処理は終了します。

の可能性が高いということになります。
それでもエラーが出るようであれば、
  If (変換前 <> フォルダ) And (変換後 <> フォルダ) Then '★
の条件に一致しているということになりますので、
B列とD列の値に、空白ではなく、半角スペースが入っているなど、確認する必要が
あると思います。
1 hits

【59174】空欄の時もリネームする方法 ArtBox 08/12/1(月) 12:29 質問
【59178】Re:空欄の時もリネームする方法 トト 08/12/1(月) 13:59 発言
【59179】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 14:23 質問
【59183】Re:空欄の時もリネームする方法 トト 08/12/1(月) 15:34 発言
【59188】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 22:44 発言
【59180】Re:空欄の時もリネームする方法 Jaka 08/12/1(月) 14:49 発言
【59182】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 15:26 質問
【59184】Re:空欄の時もリネームする方法 Jaka 08/12/1(月) 15:51 発言
【59189】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 22:45 発言
【59187】私の質問の仕方が悪かったようですので改め... ArtBox 08/12/1(月) 21:11 質問
【59190】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/1(月) 22:53 発言
【59191】Re:私の質問の仕方が悪かったようですので... ArtBox 08/12/1(月) 23:11 質問
【59192】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/1(月) 23:31 発言
【59193】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/1(月) 23:43 発言
【59194】Re:私の質問の仕方が悪かったようですので... ArtBox 08/12/1(月) 23:56 お礼
【59234】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/2(火) 21:49 発言
【59235】Re:私の質問の仕方が悪かったようですので... PN 08/12/2(火) 21:53 発言
【59236】Re:空欄の時もリネームする方法 PN 08/12/2(火) 23:41 質問
【59237】Re:空欄の時もリネームする方法 かみちゃん 08/12/3(水) 0:45 発言
【59246】回答は結構です。 ArtBox 08/12/3(水) 16:17 発言
【59256】Re:回答は結構です。 かみちゃん 08/12/3(水) 20:46 発言

22911 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free