ボタンクリックで見た目を改善したい
- Access2000のデータベースの見た目を改善したいのですが、自作のボタンをクリックしたときに、見た目上へこませたいのです。VBAを追加する方法を教えてください。
- ボタンウィザードで作成すると背景の色が変えられないため、自作のボタンを使用しています。もし見た目をへこますことが難しい場合は、クリックしたときに背景色が変わるような設定を教えてください。
- 抽出ボタンのVBAコードを汎用的に作成し、どのボタンでも追加できるようにしたいのです。データベースはAccess2000、OSはWindows98SEです。
- ベストアンサー
ボタンをクリックしたときへこませたい
Access2000のデータベースの見た目を改善したいのですが、自作のボタンを(自分でラベルを作り「クリック時のイベントプロージャ」で実行させる)クリックしたときに、見た目上へこませたいのですが、(ボタンウィザードで作られるような、クリックするとへこんで、離すとVBAが実行される)どのようなVBAを追加したらよいでしょうか? ボタンウィザードで作ると背景の色が変えられないので、上記のようにしています。もしへこますのが難しいようなら、クリックしたときに背景色が変わるような設定でも良いかと思っていますが如何なものでしょうか。 ちなみに自作の抽出ボタンの一例です。 *抽出した結果を印刷するボタン[cmb抽出データを 毛筆書体で横書印刷プレビュー] ~~~~~~~~~~~~~~~~~~~~~~~~~~ Private Sub cmb抽出データを毛筆書体で横書印刷プレビュー_Click() If Me.FilterOn = True Then DoCmd.OpenReport "R葉書HGP祥南行書体横書",_ acViewPreview, , Me.Filter End If End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~~ 汎用性があり、どのボタンにも追加できるようなVBAコードがあればればよいのですが...よろしくお願い致します。 データベースはAccess2000、OSはWindows98SEです。
- his1
- お礼率68% (91/132)
- その他(データベース)
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
ラベルの立体表示プロパティの値を操作すればよいのではないかと思います。 Private Sub ラベル1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.ラベル1.SpecialEffect = 2 End Sub Private Sub ラベル1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.ラベル1.SpecialEffect = 1 End Sub
関連するQ&A
- 住所があっても印刷除外したい
コンバンハ。MS-Access2000・Windows98SEです。 レコードの抽出をして、その中で[顧客マスタT]テーブルの [宛名印刷除外]フィールド(Yes/No型)にチェックが入った顧客はプレビューしない方法を探しています。 ちなみに抽出レコードのみをプレビューするVBAは ~~~~~~~~~~~~~~~~~~~~~~~ Private Sub cmb抽出データを横書印刷プレビュー_Click() If Me.FilterOn = True Then DoCmd.OpenReport "R葉書宛名横書印刷",_ acViewPreview, , Me.Filter End If End Sub ~~~~~~~~~~~~~~~~~~~~~~~ としています。 何かよい方法はあるのでしょうか?よろしくお願い致します。
- ベストアンサー
- その他(データベース)
- vbaでボタンをクリックして上書き保存したい
vba初心者です。 エクセルにボタンを作成して、クリックすると保存したいのですが、 ボタンを作成して、マクロの登録を開き Sub 保存() ActiveWorkbook.Save End Sub と作成したのですが実行できません。 どうしたらいいのでしょうか? よろしくお願いします。
- 締切済み
- オフィス系ソフト
- コマンドボタンの表示が
エクセルでコマンドボタンにより印刷プレビューを表示して,閉じるを クリック後,他のコマンドボタンの表示がおかしくなります。 (コマンドボタンが拡大しています) 原因と解決方法を教えてくださると嬉しいです。 Private Sub CommandButton2_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA 印刷プレビューダイアログのボタン操作を判定したい
EXCEL VBAでシートの印刷アプリを作っています。 印刷前にプレビューを見せたいので印刷プレビューダイアログを呼び出していますが、 印刷プレビュー後、実際に印刷に移る前に、ユーザ向けメッセージを出したいのです。 印刷プレビュー画面には「印刷」と「閉じる」ボタンがありますが 「印刷ボタン」を押した場合はVBA側でこう処理、 「閉じるボタン」を押した場合はこう処理 とVBA側で判定することは可能でしょうか。 ご指導お願いします。 参照用コード(思った通りに動作していませんが・・・・) Private Sub Print_Sheet() Dim i As Integer Dim st As Worksheet Set st = Worksheets("印刷シート") i = MsgBox("印刷前にプレビューを表示しますか?", vbYesNo, "シート印刷") If i = 6 Then st.PrintPreview End If i = MsgBox("印刷を開始しますか?" & vbCr & vbLf & "印刷する場合は、プリンターの確認をしてください", _ vbYesNo, "シート印刷") If i <> 6 Then Exit Sub Else st.PrintOut End If Set st = Nothing End Sub 上記のコードだと、印刷プレビューダイアログにおいて、 「閉じる」ボタンを押した場合はそのまま再度MsgBoxで印刷するか否かを聞きに行くので良いのですが 「印刷」ボタンを押した場合は印刷プレビューダイアログから印刷ダイアログが呼ばれそのまま印刷ができてしまいます。 (で、下のフローに流れてPrintOutメソッドで再度印刷してしまう)
- 締切済み
- Visual Basic
- コマンドボタンをクリックしたら、「試験まであと●日
とある試験のサイトを作っています。 試験日が9/9なのですが、 コマンドボタンをクリックしたら、「試験まであと●日です」と表示させたいのですが どうすればいいのでしょうか? VBAはわかるのですが、VBAで例えるのなら Sub test() Dim TestDay As Date TestDay = #9/9/2012# MsgBox "試験まであと" & TestDay - Date & "日です" End Sub をHTMLでやりたいです。ご教授よろしくお願いします。
- ベストアンサー
- HTML
- ボタンのクリックでマクロの変数を設定するには
エクセルのマクロで自分だけの特殊印刷と、そのプレビューを画面上のボタンで選択して実行したいのですが、どうすればよいでしょうか? ボタンはEXCELのオートシェイプを利用し、「印刷」と「プレビュー」のテキストを入れて作成済みです。また、特殊印刷と、プレビューのマクロそのものは出来て正常動作しています。問題は、その中の変数 printmode を「印刷」ボタンのクリックで 1 に設定し、「プレビュー」ボタンのクリックで 0 に設定して、その後選択した結果により記入したマクロを実行したのです。(case 文でprintmode の変数により分岐できるように既になっていますので、ボトンでprintmodeの値を設定すればよい) ボタンにそれぞれどんな処理を行えばprintmodeの値を設定でき、その後マクロへ自動的に行けるのでしょうか?ボタンの処理や、マクロに追加する記述を教えてください。よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセルVBA フォームへ動的に貼り付けたボタンのクリックイベントを検知する方法を教えてください
(1)excel97にのVBAでフォームを作成します。 デフォルトの場合はUserForm1という名前がつきます。 (2)標準モジュールとして下記のコードを作成します。 Sub ボタンを付けて表示() Dim btn As Control With UserForm1 ’ボタンを"button"という名前で作成します Set btn = .Controls.Add("Forms.CommandButton.1", "button") ’ボタンの設定をします With btn .Top = 5 .Left = 5 .Height = 20 .Width = 200 .Caption = "push me!" End With ’フォームの設定をし、表示します .Height = 60 .Width = 220 .Show End With End Sub (3)マクロを実行するとフォームが表示されます。 そこでこのボタン("push me!"と表示されています)をクリックします。 このクリックを検知してマクロを動かしたいのですが可能でしょうか? なおUserForm1に下記のコードを付けてみたのですがクリックは検知できませんでした。 Private Sub button_Click() MsgBox "You click the button." End Sub
- ベストアンサー
- オフィス系ソフト
- キャンセルボタンをクリックしたかどうかを取得したい
InputBoxでもしキャンセルボタンが押されたら・・・ってどうやればいいですか? Sub あああ() Dim a As String a = InputBox("文字を入れてください。") MsgBox a End Sub をした時に、キャンセルボタンをクリックしたかどうかを取得したいのですが、どうすればいいんですか? a = InputBox("文字を入れてください。") の次に Cancel = True をいれても vbCancel = True をいれてもエラーになります。 Sub あああ() Dim a As String a = InputBox("文字を入れてください。") If a = "" Then MsgBox "キャンセルが押されました" End If End Sub これだとOKでもキャンセルでもメッセージが表示されます。
- ベストアンサー
- オフィス系ソフト
- 複数のボタンを同一の動作にするために、まとめて書くには?
22歳男性です。VBAについて質問があります。 エクセルシート上に複数のボタンを配置しました。ボタンは複数あるのですが全て同一の動作にすることは可能なのでしょうか? 今は以下のように全てに書いています。 sub ボタン1_Click() msgbox "こんばんは" End Sub Sub ボタン2_Click() msgbox "こんばんは" End Sub ・・・・・ でも、これだと全てのボタンに書かなくてはならないので、手間がかかりまくります。 なんとかまとめて書くことはできないでしょうか?
- 締切済み
- その他(プログラミング・開発)
- エクセル・マクロボタンの表示を変更したい
初歩的質問ですみません。 Excel2000で、VBAの修正を頼まれています。 シート上に印刷用ボタンが2個、既に作られているので、その表示タイトルを (例えば、「4月分印刷→5月分印刷」のように)変更したいのです。 しかし、 右クリックしてもタイトルにカーソルが点滅しませんし、マクロ名などの表示も出てきません。 ユーザーフォームもありませんでした。 コードは(標準モジュールではなく)Sheetに以下のように記述されています。 Private Sub Printout_Click() ActiveSheet.PageSetup.PrintArea ="$A$2:$G$20" End Sub Private Sub Printout2_Click() ActiveSheet.PageSetup.PrintArea ="$F$2:$L$20" End Sub どこにも、ボタンのタイトル表示が見つからないので、変更できず困っています。 (非表示のSheetなどもありません) どなたか、ご存知の方がいらしゃったら、教えて下さい。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
tomo-yukiさん返事が遅くなりすみません。 回答ありがとうございます。 試してみたらうまくいきました。助かりました。 ありがとうございました。またの質問の時には よろしくお願い致します。