Excel VBA質問箱 IV

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

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


47559 / 76732 ←次へ | 前へ→

【34126】ユーザーフォーム入力後の値を認証できない
質問  りょう  - 06/1/27(金) 8:41 -

引用なし
パスワード
   こんにちは。お世話になっております。。
同じファイル名があるとMsgを出してからフォームでRange("H1")を修正させ再度検索後にセーブをさせたいのですが、フォームで変更した値を認証してくれなくてずっとMsgがで続けます。ループではなくIf文でもやってみたんですが、だめみたいで(>_<)どこが違うのか教えてください。よろしくお願いします。


Sub 送信()
FileNM = "N:\test\" & Worksheets("Sheet1").Range("H1").Value & ".xls"
  Do While Dir(FileNM) <> ""
    MsgBox "同じ名前があります", vbInformation
    Userform1.Show
  Loop
    Workbooks("Book1.xls").SaveCopyAs Filename:=FileNM
End sub  

’ユーザーフォーム
Private Sub OKボタン3_Click()

  Worksheets("Sheet1").Activate
  
  If Me.TextBox1.Value = "" Then
     MsgBox "発行No.が空白です"
     Exit Sub
  Else
     Worksheets("Sheet1").Range("H1").Value = Me.TextBox1.Text
      With Range("H1").Font
        .Size = 14
        .Bold = True
      End With
  End If
  Unload Me
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 お礼

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