- ベストアンサー
Excel VBA --- コマンドボタンが表示上で消える ---
tossy005の回答
- tossy005
- ベストアンサー率38% (7/18)
お役に立てずに申し訳ありません。 原因ははっきりと分かりませんが、入れてみたというコードに疑問があったので返信させて頂きます。 Application.ScreenUpdating = False というのは画面の更新を止めるという処理になりますので、 そのあとの ActiveWindow.ScrollRow = 100 ActiveWindow.ScrollRow = 1 のあと Application.ScreenUpdating = True という処理を入れるべきではないでしょうか。
関連するQ&A
- コマンドボタンの表示が
エクセルでコマンドボタンにより印刷プレビューを表示して，閉じるを クリック後，他のコマンドボタンの表示がおかしくなります。 （コマンドボタンが拡大しています） 原因と解決方法を教えてくださると嬉しいです。 Private Sub CommandButton2_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
- ベストアンサー
- オフィス系ソフト
- コマンドボタンの自動作成
こんにちは。 Excel2000で作業をしています。 Excel VBA を用いて、コマンドボタンを作成しようとしているのですが、うまくいきません。 試しにマクロを記録させてみたところ、 ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, left:=252, top:=292.5, width:=72, height:=24) _ .Select というコードになったのですが、これを実行させてみたところ、ボタンのようなものは表示されるのですが、このボタンを右クリックしても、「プロパティ」「コードの表示」メニューが表示されず、コマンドの実行ができません。 Clickイベントを発生させて、コマンドの実行ができるコマンドボタンをＶＢＡ等で作成するためには、どのようにすればよいのでしょうか。
- ベストアンサー
- オフィス系ソフト
- EXCEL コマンドボタン
説明が解りにくかったらごめんなさい。 Excelでよくコマンドボタンを作成してマクロを割り当てて使っていました。そのときはカーソルが指マークになって、右クリックするとメニューの中に「マクロの登録」があったのですが、突然、特別なことをした覚えはないのですが、右クリックしたメニューの中から「マクロの登録」は消え、ダブルクリックをするとvisual Basic editorのデザインが現れます。フォームのコマンドボタンから作っているのですが、オブジェクトがちょっと以前と変わってきているような感じです。 基本的には一緒なのですが、以前の方が使いやすく、戻したいのですがどのようにしたらよいでしょうか？
- ベストアンサー
- オフィス系ソフト
- マクロ コマンドボタンを押すともう一つコマンドボタン
マクロ初心者です。宜しくお願いします。 コマンドボタンをクリックしたら、指定して開いたファイル上にもうひとつコマンドボタンを追加で表示させることは可能でしょうか？ ＜詳細＞ ・コマンドボタンを押す ・エクセルのファイルを指定して開く ・指定して開いたファイルの「Sheet1のA1」に新たにコマンドボタンを出現させる。 ・「Sheet1のA1」に現れたコマンドボタンを押すとそのファイルを印刷する。 みたいな事をしたいのですが、可能でしょうか？？ 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- コマンドボタンにマクロを登録させる方法
エクセルでマクロを作成しました。マクロを実行させる為に「コントロールツールボックス」にある「コマンドボタン」で作ったボタンに登録をしたいのですがうまくいきません。 以前はコマンドボタンを作ったら、自動的に「マクロの登録」ダイアログボックスが出てきたのですが、何故か出なくなってしまいました。オートシェイプで作成したボタンなら、右クリックすると「マクロの登録」があるのですが、コマンドボタンを右クリックしても「マクロの登録」がありません。以前のように、自動的に「マクロの登録」ダイアログボックスを表示させる方法があったら教えてください。 また、ボタンをダブルクリックするとVBAが開いて以下のようなコードの記載がありますが、ここにコードを記載すればボタンをクリックしたときにマクロが実行されるのでしょうか？VBAはまったく解りませんので、どのように記載したらいいのかわかりません。実際に記入して教えてください。お願いします。マクロ名は、日本語で「結果一覧」としました。（「Private Sub CommandButton1_Click()」と「End Sub」の間に、マクロの記述部分をコピーして、貼り付けたら、ボタンをクリックしたときにマクロは実行できたのですが、もっと簡単にマクロ名を記述したら実行できるような気がするのですが、簡単に記述して実行できる方法があったら教えてください。） ＯＳはＷｉｎｄｏｗｓ ＭＥ、Ｅｘｃｅｌは２００２ です。よろしくお願いします。 コマンドボタンをダブルクリックしたときのコードです。 Private Sub CommandButton1_Click() End Sub
- ベストアンサー
- オフィス系ソフト
- ＶＢＡ コマンドボタンを押して非表示にしたい
パワポ2003です。 スライドにオートシェイブで四角形を挿入し、コマンドボタンを設置しました。 そのコマンドボタンを押すと、四角形を非表示にしたいのですが、 デザインビューの状態で、 Private Sub CommandButton1_Click() ActiveWindow.Selection.SlideRange.Shapes("Rectangle 4").Visible = vbFalse End Sub を実行すると、該当の四角形が消えるのですが Ｆ５でスライドを実行中に、コマンドボタンを押すと ----------------------------------------------------- 実行時エラー '-2147188160 (80048240)': Application (不明なメンバー): 無効な要求です。アクティブなドキュメント ウィンドウがありません。 ----------------------------------------------------- というエラーになってしまいます。 どうしたら、スライドを実行中にコマンドボタンを押して、 テキストボックスを非表示に出来るのでしょうか？ 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- コマンドボタンからSubをCallできない
コマンドボタンのコードにcall マクロA と書いたのですが機能しません。 「開発⇒マクロ」でマクロを実行出来ないように(コマンドボタンのクリックまたはVBEのみからしか動かせないように)、マクロAはModule1にPrivate Subで書いてあります。 コマンドボタンからPrivate Subは呼び出せないのでしょうか？ もしくは、マクロのリスト一覧に載せない方法、 または、コマンドボタンのクリックのみからしかマクロを起動できないようにする方法はないのでしょうか？ よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- Excel VBA ボタンを非アクティブにするには
Excel VBAにおいて、sheet上に製作したコマンドボタンを表示したり、非表示にしたりするコードはわかるのですが。ツールバーに作成したボタンを表示したり、非表示にしたりするコードがわかりません。ご存知でしたら御教授下さい。よろしくお願いします
- ベストアンサー
- その他（プログラミング・開発）
- excel97のVBAについて
始めまして、ＭＶ3307と申します。 さて下記内容を、VBAでコードを書くつもりですが、マクロ初心者で記載 方法が分からないので是非ご教授お願いいたします。 記 (1)EXCELの"Sheet1"の数式バーに式が表示してあります。 (2)VBAの"コマンドボタン"をクリックして、数式バーの式をTexBoxに取得する。 以上です、宜しくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- excel vba ジャンプ
excel2003のUserFormにてtextbox作成しました。 textbox1にページを入力すると指定のページにジャンプする コードを作成したのですが、動作的には目的とする事ができました。 ただ、初心者レベルで作成したので、コード記述が長く、 ページが増えるたびにコードを追記していかなければなりません。 下記に作成したコードを記述します。 もっと簡単に記述する方法はありますか？ ---------------------------------------------------------- Private Sub TextBox1_Change() If TextBox1.Value = 1 Then ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1 Range("$A$15").Select End If If TextBox1.Value = 2 Then ActiveWindow.ScrollRow = 38 ActiveWindow.ScrollColumn = 1 Range("$A$38").Select End If If TextBox1.Value = 3 Then ActiveWindow.ScrollRow = 69 ActiveWindow.ScrollColumn = 1 Range("$A$69").Select End If If TextBox1.Value = 4 Then ActiveWindow.ScrollRow = 100 ActiveWindow.ScrollColumn = 1 Range("$A$100").Select End If If TextBox1.Value = 5 Then ActiveWindow.ScrollRow = 131 ActiveWindow.ScrollColumn = 1 Range("$A$131").Select End If End Sub ---------------------------------------------------------- 上記記述で行っていることは、 textbox1に 1 と入力すると1ページ目が表示 キーボードでctrl+Homeの操作をした状態でカーソルがA15選択 textbox1に 2 と入力すると2ページ目が表示 表示の先頭が38行目、カーソルがA38選択 ページの行数が1ページ目だけ37行 2ページ目以降が31行ごとです。 実際は、200ページ以上あるのでなんとかしたいのですが・・・・
- ベストアンサー
- オフィス系ソフト
お礼
冒頭のコード Application.ScreenUpdating = Falseを Application.ScreenUpdating = Trueに直したら コマンドボタンもきちんと表示されるようになりました。 ありがとうございました。