Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6489 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   お礼が遅くなってすいません。解決しました、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6489 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free