• ベストアンサー
  • 困ってます

初歩的な質問

  • 質問No.4251900
  • 閲覧数11
  • ありがとう数3
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 59% (191/323)

お世話になります。
ユーザーフォームで下記の様にテキストボックスに
品番を入力し、A2セルにその値を表示させていますが、

その後、ユーザーフォームはCloseさせ、
通常の標準モジュールでのVBAの記述に、繋げたい
のですが、どういう様な記述をしたら1回のマクロ実行
で済むのでしょうか?
途切れ途切れでうまく行きませんでした。
ご教示下さいます様、宜しくお願い致します。
 
         記

Private Sub CommandButton1_Click()
Sheets("結果").Range("a2") = TextBox1.Value
End Sub

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 79% (496/625)

単純に考えると
Private Sub CommandButton1_Click()
  Sheets("結果").Range("a2") = TextBox1.Value
  Unload Me
  Call Macro1 'Macro1 は標準モジュールに書いたマクロ名
End Sub
...な感じですが
>途切れ途切れでうまく行きませんでした。
これがちょっと気になりますね。
上記でうまくいかない場合は、実際に試したコードを掲載したほうが良いでしょう。
お礼コメント
miruchoko

お礼率 59% (191/323)

うまくいきました。
ありがとうございました。
投稿日時:2008/08/15 22:03
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A

ピックアップ

ページ先頭へ