テキストボックスに再度値を格納して実行するには？ (ID:109150)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MsgBox "品目コードのテキストボックスに正しい品目コードを入力 してください。" のところで、メッセージボックスじゃなく InputBoxを使ってみてはどうですか？ Dim strUserMsg as string strUserMsg = InputBox("品目コードのテキストボックスに正しい品目コードを入力してください。") strUserMsgに文字が入っていれば、TxtHinmokuCode.Textにセットしてから CmdSansho_Click をコールする。