- ベストアンサー
コントロールツールのことで
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
(1)コピー法 1+1+2+4+8+16=32で5回コピー する。Shiftキーを押しながらクリックして 選択(複数選択の方法として他に良い方法があった ような気がするが) (2)セルのイベントを使う方法(VBA) コマンドボタンを貼りつけなくても、ワークシートの SelectionChangeイベントなどを使えば 同じ効果になるのでは。 本日の他の質問への回答例。Cells(r, c) = Dateのところを、やりたい処理のコードで置きかえれば良い。 C列をクリックすると、本日日付けをセットする。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 Then ' MsgBox Target.Address ' If Target.Address = "$C$4" Then r = Target.Row c = Target.Column Cells(r, c) = Date End If End Sub (3)VBA Sub test01() ActiveSheet.OLEObjects.Delete ' Exit Sub For i = 1 To 10 l = Cells(i, 1).Left t = Cells(i, 1).Top h = Cells(i, 1).Height w = Cells(i, 1).Width ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=l + 5, Top:=t + 1, Width:=w - 2, Height _ :=h - 2).Select Next i End Sub 削除だけするなら、上記の' Exit Subの’を無くしてください。(非コメント行化) 但し上記コードでは、貼りつけたコントロール類全部が消えます(他のテキストボックスなどがあればそちらも)が。 上記は10個の例にしてあります。またサイズもセルの 大きさより少し小さくする細工をしています。 l、t、w、hより数を引いたり足したりしているのが それです。セル高を不揃いにすると、ボタンも大小になります。いやならhを固定値にすれば良いです。
関連するQ&A
- コントロールツールボックス
コントロールツールボックスをWordで使用可能にし、コマンドボタンを挿入したいのですが、挿入時にボタンをクリックすると、自動的に文書上にボタンができてしまいます。また、コードを入れて、動かそうと思ってクリックすると、動作せず、コードの中身、モジュールが表示されるだけです。どこを直せば良いのでしょうか(Excelでの「ツール」→「ユーザー設定」でコマンドタブから「フォーム」を選んだ時にできるようなボタンはWordにはないのでしょうか)?
- ベストアンサー
- オフィス系ソフト
- フォームとコントロールツールボックスの違い
コマンドボタンでVBAのプログラムを実行させたいんですがフォームとコントロールツールボックスにあるコマンドボタンの違いがよくわかりません???? どうやって使い分ければいいんでしょーか???
- ベストアンサー
- オフィス系ソフト
- ワードの「コントロールツールボックス」とは、どんな作業をするところ?
ワードのツールメニューのなかに、「標準」や「書式設定」などと並んで、「コントロールツールボックス」というのがありますが、これはどんな作業をするところですか? いろんなコマンドボタンがあって、おもしろそうですが・・・
- ベストアンサー
- オフィス系ソフト
- エクセル コントロールツールボックスが使えない
エクセル2007を使っています。 VBAで書いたコマンドをシートに貼り付けたボタンで実行させたいのですがVBのツールバーを開くと「コントロールボックス」の部分がグレーアウトしていて使えません。 有効にする方法をご存知の方教えてください。
- 締切済み
- その他([技術者向] コンピューター)
- エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタン
エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタンについて教えてください。 実はこれまでフォームしか使ったことがないのですが、フォームのボタンですと、下記のように一つのプロシージャを多数のボタンから呼び出し、呼び出したボタンにより異なった指示が出来ます。 Sub test() x = Application.Caller Select Case x Case "ボタン 1" MsgBox 1 Case "ボタン 2" MsgBox 2 Case "ボタン 3" MsgBox 3 Case "ボタン 4" MsgBox 4 End Select End Sub コントロールツールボックスは Private Sub CommandButton1_Click() MsgBox 1 End Sub Private Sub CommandButton2_Click() MsgBox 2 End Sub のようにコマンドボタンごとにひとつずつ書くしかないのでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルのコントロールツールについて
エクセルで作成したラジオボタンおよびチェックボックスについて質問なのですが、私がいただいたファイルの「ラジオボタン」には右クリックして「コントロールの書式設定」を見ると「コントロール」というものが選択できて「リンクするセル」等を選択できるウィンドウがあります。しかし普通に自分のから同じようにエクセルを開いてボタンを作成して「コントロールの書式設定」を見ると「Web」までのウィンドウしかでてきません。この「コントロ-ル」のウィンドウはどの様にして表示させるものなのでしょうか?<EXCEL2000>
- ベストアンサー
- オフィス系ソフト
- コントロールツールボックスを表示させた状態でセルの選択位置をマウスで移動させたい。
MS-Excel2000のマクロにおいて、 UserForm1.Showでコントロールツールボックスを表示させた状態で セルの選択位置をマウスで移動させたいと思っておりますが、 コントロールツールボックスがあるとセルを選択位置移動ができません。 (もちろん、コントロールツールボックスを消せば セルの選択位置移動はできます。) どのような指示にすればできますでしょうか? よろしくご教授願います。 やりたい事は、 はんこ(スタンプ)みたいにコントロールツールボックスの コマンドボタンを押したら文字がアクティブセルに表示するようにしたい。 ただし、コントロールツールボックスを表示したままで アクティブセルはマウスで任意の位置を選択できるようにする。 ってことです。
- ベストアンサー
- オフィス系ソフト
- コントロールツールボックスの式?
コントロールツールボックスの式? いつもお世話になります。 エクセルで、ツールバーの中に「コントロールボックス」があるじゃないですか、今までは普通にオブジェクトの挿入ができたのですが、なにやらいろんなとこを触っていたら、 オブジェクトと一緒に=EMBED("Forms.CommandButton.1","")こんな式が関数式のところに表示されるようになり、マクロの登録ができなくなりました。数式を削除すればまたマクロの登録はできたのですが、少し使い勝手が悪く、何とか解除したいのですが、どこを設定しなおしたら良いのか解りません。 技術的な質問でなく、基本的なことですみません。。。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでコマンドボタンを選択したい。
すいません。私はエクセルのVBAが初心者なのですが、例えば、sheet1にコントロールツールのコマンドボタン1があるとして、いまセルA1が選択されている状態の時、キーボードの"Enter"を押すと、通常はセルA2が選択されるところを、コマンドボタン1を選択するようにしたいのですが、なにかいい方法はありませんか?よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。