Excel VBA質問箱 IV

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

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


47556 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは

これで如何でしょうか?

Sub 送信()

FileNM = "N:\test\" & Worksheets("Sheet1").Range("H1").Value & ".xls"
If Len(Dir(FileNM)) > 1 Then
  MsgBox "同じ名前があります", vbInformation
  Userform1.Show
End If
Workbooks("Book1.xls").SaveCopyAs Filename:=FileNM

End Sub

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

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

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