Excel VBA質問箱 IV

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

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


47552 / 76732 ←次へ | 前へ→

【34133】Re:ユーザーフォーム入力後の値を認証できない
回答  Blue  - 06/1/27(金) 9:46 -

引用なし
パスワード
   ▼りょう さん:
>早速の返答ありがとうございます。
>フォームでRange("H1")の値を変更しているので、値は変わってると思っていたのですが、それでは変わったことにならないのですか?
>
私の言いたいことは、Do〜Loop文で FileNM を更新していない ので
Dir関数の結果はずっと同じになるということですよ。

Sub 送信()
FileNM = "N:\test\" & Worksheets("Sheet1").Range("H1").Value & ".xls"
  Do While Dir(FileNM) <> ""
    MsgBox "同じ名前があります", vbInformation
    Userform1.Show
' ここで更新しなければダメ!
FileNM = "N:\test\" & Worksheets("Sheet1").Range("H1").Value & ".xls"
  Loop
    Workbooks("Book1.xls").SaveCopyAs Filename:=FileNM
End sub  

0 hits

【34126】ユーザーフォーム入力後の値を認証できない りょう 06/1/27(金) 8:41 質問
【34127】Re:ユーザーフォーム入力後の値を認証でき... Blue 06/1/27(金) 9:01 回答
【34128】Re:ユーザーフォーム入力後の値を認証でき... りょう 06/1/27(金) 9:10 質問
【34130】Re:ユーザーフォーム入力後の値を認証でき... inoue 06/1/27(金) 9:27 発言
【34133】Re:ユーザーフォーム入力後の値を認証でき... Blue 06/1/27(金) 9:46 回答
【34129】Re:ユーザーフォーム入力後の値を認証でき... Statis 06/1/27(金) 9:19 回答
【34131】Re:ユーザーフォーム入力後の値を認証でき... りょう 06/1/27(金) 9:30 質問
【34135】Re:ユーザーフォーム入力後の値を認証でき... Statis 06/1/27(金) 10:16 回答
【34169】Re:ユーザーフォーム入力後の値を認証でき... りょう 06/1/27(金) 16:24 お礼

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