エクセルで作成した表にクリックするとへこむボタン、又は色の変わるボタンを作成したい。
宜しくお願い致します。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

[表示]-[ツールバー]-[コントロールツールボックス]で、コントロールツールボックスを表示します。



で、コマンドボタンのアイコンをクリックした後、ワークシート上で、ドラッグ&ドロップします。

で、出てきたコマンドボタンを右クリック→プロパティでボタンの書式などを設定して、

コマンドボタンをダブルクリックすると、VBAの編集画面になるかと思いますので、ボタンを押したときの動作を記述します。

もう一度Excelの画面に戻ってから、コントロールツールボックスの「デザインモードの終了」(三角定規のアイコン)をクリックします。

以上の操作で、押したらへこむボタンの完成です。
    • good
    • 0

こんにちは。

maruru01です。
質問の文面からすると、表の各行にチェックの欄を作りたいんじゃないでしょうか?
それでしたら、No.2の方が書かれている方法で、コントロールツールボックスを表示して、その中からチェックボックスを選択します。
見た目はボタン風じゃないですが、Windowsでよく見るチェックボックスです。
的を外していたらすみません。
では。
    • good
    • 0

あまり意味のないマクロを作って、そのボタンのところで右クリック→マクロの登録。


↑こんなんじゃだめですか?
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q宜しくお願い致します。

宜しくお願い致します。
access2000におきまして
そのVBAにより イベントプロシージャーを作成するに際しまして
フォーム1のコマンドボタン1 コマンドボタン2を
連続して クリックするというコードを作りたいのですが
Do command button1 みたいな コードを探していますが
そういうものは なにに 相当しますか
いちおう
たとえばコマンドボタン1のプロパティで
イベントで イベントプロシージャーを開くときの
コードをコピペして
同様にコマンドボタン2のプロパティで
イベントで イベントプロシージャーを開くときの
コードをコピペして
両者を ひとつのコードとして
いっしょに 書いて
実行するということは 分かるし
それで できるのですが
そういうコードを 結合させる やり方ではなくて
openform フォーム1
みたいに
*** コマンドボタン1
みたいな そういう 関数は
ありますか

宜しくお願い致します。

Aベストアンサー

#1ははずしていたようです。
本題は以下でしたね。

>フォーム1のコマンドボタン1 コマンドボタン2を
>連続して クリックするというコードを作りたいのですが

プロシージャの中で

Call コマンド1_Click
Call コマンド2_Click

と、続ければいいのでは。

Q最初の1回のみにボタンクリックでマクロ実行する

Excel2007でマクロ作成中の初心者です。
1)Aブックに次のマクロを書いてます。
Sub データをクリアする()
Dim list, SheetName
Const EXCEPT_NAME = "計算 番号 明細"
For Each SheetName In ActiveWorkbook.Worksheets
If InStr(EXCEPT_NAME, SheetName.name) = 0 Then
Sheets(SheetName.name).Activate
クリア範囲
End If
Next
End Sub
--------------------------------
Sub クリア範囲()
Range("AM13:AQ13").Select
Selection.ClearContents
End Sub

2)上のマクロは、Bブック上で実行します。
Bブックのマクロ実行は、最初のボタンクリック1回のみです。
(このBブックが閉じられ保存されるまで)
なぜなら、クリアした部分に、新しいデータを入れるからです。
誤って2回目のボタンクリックでも、マクロ実行しないようにしたいです。
せっかく入力した新しいデータを消去しないためです。
このようなコマンドボタンを作るにはどうしたらよろしいでしょうか?

Excel2007でマクロ作成中の初心者です。
1)Aブックに次のマクロを書いてます。
Sub データをクリアする()
Dim list, SheetName
Const EXCEPT_NAME = "計算 番号 明細"
For Each SheetName In ActiveWorkbook.Worksheets
If InStr(EXCEPT_NAME, SheetName.name) = 0 Then
Sheets(SheetName.name).Activate
クリア範囲
End If
Next
End Sub
--------------------------------
Sub クリア範囲()
Range("AM13:AQ13").Select
Selection.ClearContents
End Sub

2)上のマクロは、Bブック上で実行し...続きを読む

Aベストアンサー

>足したところ、なぜかその部分が黄色くなり、
>「変数が定義されていません」というコンパイルエラーが発生します。
あ、もしかして、ボタンがActiveXコントロールになってないのでは?
http://www.officelabo.net/excel/list2.html

なお、前の回答にある、「ボタンの名前」はこのリンクの2番目の画像に出ているプロパティボックスの一番上の枠内の太字で書かれた文字です。

Qボタンクリック時にデータベースを呼び出す

ボタンクリック時にデータベースを呼び出すことはできるでしょうか。

ボタンの処理は、

<SCRIPT language='VBScript'>
<!--
 ボタンの処理
'-->
</SCRIPT>

の中でできますが、データベースの処理は、

<%
 データベースの処理
%>

の中でしかできません。何か、方法はないでしょうか。
失礼いたします。

Aベストアンサー

ajaxっぽいことが必要でしょうね。
あ、でも
1.各クライアントの環境が設定できる。
 (MDACなどの設定が可能)
2.ファイアーウォールなどでDBアクセスがブロックされない

のであれば、クラサバと同様の方法でアクセスはできるはずです。多分。

クライアント側のVBScriptでDBにアクセスしたいのであれば、
そのクライアント自体がDBに接続できる環境じゃないといけないわけです。

Qクリックされたボタン名を、設問順にメモ帳に保存したい

初心者です。

Visual Basicを使って、
設問とそれに対する答えのボタン3つ を提示して、あてはまると思うボタン1つをクリックしてもらう
→次の「設問+ボタン3つ」がまた提示される……続く
というプログラムを作ろうとしてます。

それで質問なのですが、
設問番号・クリックされたボタン名
をメモ帳に残していくには、どのように書けばいいのでしょうか?
考えてみたんですが、PutかWriteかPrintを使うのかな…というところまで考えて、まったくわからなくなってしまいました。

どなたかご教授お願いいたします。

Aベストアンサー

質問はテキストファイル操作の基本ですが、、

基本過ぎて、私も構文を今でも覚えておりません。
が!
いつもVB6では、検索するキーワードは
・FreeFile
・For Input
・For Append
です。

http://okwave.jp/kotaeru.php3?q=1334017

VB初心者であれば、あなたが疑問に感じる部分は、過去にも題材としてあがっている率が多いはずです。
過去の質問履歴を参照しましょう。
調べ方のコツさえ覚えなければ、いつまでも初心者です。
脱初心者宣言をできるだけ早めるようにがんばってください。

Qテキストボックスに書いた複数行のテキストデ-タをコマンドボタンクリック

テキストボックスに作成したデ-タをコピ-ボタンでコピ-して、OutlookExpress
などのメ-ラ-に貼り付けるようなコ-ドを書いていますが、コピ-が上手くいかない
ことが多いので、下のような方法に変えようと思います。

 (1)テキストデ-タを作成(記入)する

 (2)コマンドボタンをクリックする

 (3)自動でメモ帳が起動する

 (4)メモ帳の内容に先ほどのテキストデ-タが貼り付く
    (テキストボックスの内容をメモ帳で開く)

このようにする方法はあるのでしょうか?
shellでメモ帳を開くというのは分かるのですが、対象のファイルを
どのように指定すれば良いのかが分かりません。

よろしくお願いいたします!!!

Aベストアンサー

こんにちは。maruru01です。
違う方法を。

いったん一時ファイルとして保存し、Shellでメモ帳で呼び出します。

memoPath = (メモ帳の起動ファイルのフルパス)
FilePath = (一時ファイルのフルパス)
fileNum = FreeFile
Open FilePath For Output As #fileNum
  Print #fileNum, Text1.Text
Close #fileNum

Shell memoPath & " " & FilePath

では。


このカテゴリの人気Q&Aランキング

おすすめ情報