Excel VBA質問箱 IV

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

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


6487 / 13644 ツリー ←次へ | 前へ→

【44934】シートに配置したコマンドボタンについて VBA新米 06/12/7(木) 10:46 質問[未読]
【44935】Re:シートに配置したコマンドボタンについて Statis 06/12/7(木) 11:42 回答[未読]
【44936】Re:シートに配置したコマンドボタンについて awu 06/12/7(木) 12:13 回答[未読]
【44960】ありがとうございました VBA新米 06/12/8(金) 12:35 お礼[未読]

【44934】シートに配置したコマンドボタンについて
質問  VBA新米  - 06/12/7(木) 10:46 -

引用なし
パスワード
     はじめまして、VBA初心者です。
  標準モジュールにコードを記述しました。
  これをシートに配置したテキストボックスに入力して
  シートに配置したコマンドボタンをクリックすれば
  イベントがはじまるようにしたいのですが、うまく
  いきません。


   標準モジュール記述
   Dim Msg As Long

   If TextBox1.Text="A" Then ここでエラーになります。
   オブジェクトが必要ですとでます。
   どうしたらいいか教えてください。
   丸投げな質問でもうしわけありませんが、よろしくおねがいします。


   

【44935】Re:シートに配置したコマンドボタンにつ...
回答  Statis  - 06/12/7(木) 11:42 -

引用なし
パスワード
   ▼VBA新米 さん:
こんにちは
>  はじめまして、VBA初心者です。
>  標準モジュールにコードを記述しました。
>  これをシートに配置したテキストボックスに入力して
>  シートに配置したコマンドボタンをクリックすれば
>  イベントがはじまるようにしたいのですが、うまく
>  いきません。

>   標準モジュール記述
>   Dim Msg As Long
>
>   If TextBox1.Text="A" Then ここでエラーになります。
>   オブジェクトが必要ですとでます。
>   どうしたらいいか教えてください。
>   丸投げな質問でもうしわけありませんが、よろしくおねがいします。
>

標準モジュールの場合はマクロボタンで(フォーム)の登録になります。

コマンドボタンでしたら該当のシートモジュールに
ボタンのイベントが有りますのでそこに記載して下さい。
(デザインモードでボタンをダブルクリックすると出てきます)
例:Private Sub CommandButton1_Click()イベント

【44936】Re:シートに配置したコマンドボタンにつ...
回答  awu  - 06/12/7(木) 12:13 -

引用なし
パスワード
   ▼VBA新米 さん:
>   If TextBox1.Text="A" Then ここでエラーになります。
>   オブジェクトが必要ですとでます。

これでどうですか。

If ActiveSheet.TextBox1.Text = "A" Then

【44960】ありがとうございました
お礼  VBA新米  - 06/12/8(金) 12:35 -

引用なし
パスワード
   お礼が遅くなってすいません。解決しました、ありがとうございました。

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