Excel2010を使用しています。
チェックボックスというのでしょうか?□に✔を入れるものです。 
これを作成するのはどうしたらよいのでしょうか?

よろしくお願い致します。

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

A 回答 (1件)

エクセル2007なので相違していたら読み飛ばし下さい。


(1)Officeボタン→Excelのオプション→基本設定の開発タブをリボンに表示するを選択
(2)開発タブ→コントロール欄の挿入→フォームコントロールのチェックボックスをクリック→表示シート上でクリック
    • good
    • 0
この回答へのお礼

ありがとうございました。
なんとかできました!!

でもチェックボックスは以外と使いづらい。
とくに□の大きさが調整できない、コピーしてから
大量に一気に貼りつけがでできない、など
使いづらいので諦めました。

お礼日時:2011/04/11 21:19

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

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

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

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

QVC++ MFCチェックボックスの色の変更について

チェックボックスに付くテキストの色や背景の色を変える事は調べていく中で可能だということが
分かったのですが、
チェックやチェックの四角形内部の色を変える事は可能でしょうか?

Aベストアンサー

CButtonの派生クラスをつくり、CButton::DrawItemをオーバーライドしてオーナー描画すれば可能かと思います。

QExcel チェックボックスのコピー、チェックをONにすると対象セルの文字の色が変わる方法

下記の様にチェックボックス1をONにするとチェックのみ、チェックボックス2をONにすると対象セル(3つのセルAAAA、BBBB、CCCC)の文字の色が変わる様にしたいのですが、どうするのが早く、多く複製出来る方法はありませんか?
個々にチェックボックスを作成して、条件付書式などで作成は可能ですが、下記の様(DDDD、EEEE、FFFF・・・・)に複数作りたいので条件付書式では大変なので何か方法はありませんか。
VBAで作ると楽にいけると思うのですが知識不足で・・・。
ご教授願います。宜しくお願いします。

AAAA   
BBBB  1□  2□
CCCC

DDDD
EEEE  1□  2□
FFFF


・    1□  2□


・    1□  2□

Aベストアンサー

「マクロの記録」すれば基本になるコードが得られます。

サンプルマクロを書いてみました。
フォームのチェックボックスをB2とC2に作成
C2のチェックボックスに「testcolor」マクロを「マクロの登録」

≪チェックボックス作成マクロ≫
Sub test1()
With Range("B2")
ActiveSheet.CheckBoxes.Add .Left, .Top, .Width, .Height
End With
With Range("C2")
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).OnAction = "test2"
End With
End Sub

≪文字色変更マクロ≫
Sub test2()
Dim cb As Object
Dim rng As Range
Dim rwNo As Long

Set cb = ActiveSheet.Shapes(Application.Caller)
With cb
rwNo = .TopLeftCell.row
Set rng = Range(Cells(rwNo - 1, 1), Cells(rwNo + 1, 1))
If .DrawingObject.Value = 1 Then
rng.Font.colorIndex = 3
Else
rng.Font.colorIndex = 5
End If
End With
End Sub

C2のチェックボックスをクリックすると
A1:A3の文字データの色が変更されます。
これでよければ、For~Next文で、セルを変更指定すれば良いと思います。

「マクロの記録」すれば基本になるコードが得られます。

サンプルマクロを書いてみました。
フォームのチェックボックスをB2とC2に作成
C2のチェックボックスに「testcolor」マクロを「マクロの登録」

≪チェックボックス作成マクロ≫
Sub test1()
With Range("B2")
ActiveSheet.CheckBoxes.Add .Left, .Top, .Width, .Height
End With
With Range("C2")
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).OnAction = "test2"
End With
End Sub

≪文字...続きを読む

Qエクセル チェックボックスの初期値を条件により変更したい。

エクセル チェックボックスの初期値を条件により変更したい。

表題の質問をさせていただきます。

チェックボックスを20個あらかじめ配した以下のような表があります。

A列:社員ID (随時入力)
B列:社員名 (VLOOKUPで表示)
C列:チェックボックスを配置
D列:チェックボックスのリンクするセルに設定

チェックボックスの初期値は空欄(FALSE)にしています。

社員IDを入力した時に、連動してチェックボックスの値を「TRUE」にしてチェックを入れたいのです。
現在は社員ID入力後にチェックボックスをクリックしています。

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

Aベストアンサー

フォームコントロールのチェックボックスですか?

>社員IDを入力した時に、連動してチェックボックスの値を「TRUE」にしてチェックを入れたいのです。
チェックボックスを使う意味が無くなるように思いますがどうでしょうか。

回答としては、A列セルをリンクするセルに設定してはいけないでしょうか。

Qエクセル2010でチェックボックスを使う方法

新しいパソコンを入れたとき、何も考えず、新しいほうが良かろうとオフィス2010を入れました(インストール版)。

ところがこれが非常に使いづらい。機能は確かに強化されたと思うのですが、コマンドの分類や表示が今までで使っていた2003と大幅に変わっているので、直感的に使えない。

マイクロソフトもその認識があるのか、インタラクティブ エクセルメニュー・・・ なるものがついているが、やはりわかりにくい(案内が途中までしかないものがある)。

「慣れる」しかない、という声が聞こえそうなのですが、その「慣れる」以前に、操作方法に行き着かないものが結構あります。

今回は「チェックボックス」の作り方がわかりません。
2003ではとても簡単だったので、同様に2010でもツールバーに「チェックボックス」と「チェックボックス」を表示させてみたのですが、チェックボックスの作成はできても、そのコントロール設定がうまくいかない。

ご面倒をおかけしますが、2010におけるチェックボックスのコントロール設定方法をお教え願います。

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

もう50歳も後半なので、新しいものの吸収に時間がかかり、いらいらして、業務効率向上どころか業務停滞で困っています。

新しいパソコンを入れたとき、何も考えず、新しいほうが良かろうとオフィス2010を入れました(インストール版)。

ところがこれが非常に使いづらい。機能は確かに強化されたと思うのですが、コマンドの分類や表示が今までで使っていた2003と大幅に変わっているので、直感的に使えない。

マイクロソフトもその認識があるのか、インタラクティブ エクセルメニュー・・・ なるものがついているが、やはりわかりにくい(案内が途中までしかないものがある)。

「慣れる」しかない、という声が聞こえそうなの...続きを読む

Aベストアンサー

anga18131さん
こんにちは。
私も50代後半になりますが、EXCEL2003が慣れてしまいEXCEL2007,2010のリボンはなじめないですね。

ご質問の件ですが、フォームのチェックボックスとして回答させていただきます。
1.開発のリボンを表示させる
 ・リボンの「ファイル」をクリックする
 ・「オプション」をクリックする
 ・「リボンのユーザ設定」を選択し、右側にある「メインタブ」の【開発】をチェックする
 ・【OK】ボタンを押す
2.シートにチェックボックスを挿入する
 ・リボンの「開発」を選択する
 ・「挿入」コマンドをクリックし、フォームコントロールの「チェックボックス」をクリックする
 ・シート上にドラッグ&ドロップしコントロールを貼る
3.チェックボックスの設定
 ・貼り付けたチェックボックスを右クリックし、表示したメニューから「コントロールの書式設定」
  をクリックする
 ・色々設定してください。

 以下、2.~3.を繰り返す。

EXCEL2010が使いずらいのでホームページを今年に作成しました。
ちょっとは役に立つかと思いますので参考にしてください。
※EXCEL2003とEXCEL2010のコマンド比較もあります。
http://excel2010.life.coocan.jp/

anga18131さん
こんにちは。
私も50代後半になりますが、EXCEL2003が慣れてしまいEXCEL2007,2010のリボンはなじめないですね。

ご質問の件ですが、フォームのチェックボックスとして回答させていただきます。
1.開発のリボンを表示させる
 ・リボンの「ファイル」をクリックする
 ・「オプション」をクリックする
 ・「リボンのユーザ設定」を選択し、右側にある「メインタブ」の【開発】をチェックする
 ・【OK】ボタンを押す
2.シートにチェックボックスを挿入する
 ・リボンの「開発」を選択する
 ...続きを読む

Qエクセル 複数のチェックボックスをリンクさせる

こんにちは、エクセル2010を使っています。

チェックボックスについて、解らない事が出てきましたので、教えて頂けませんでしょうか。

book1とbook2にチェックボックスがあります。

本来利用するのは、Book1のチェックボックスなのですが、Book2に作ったチェックボックスにチェックを入れると、Book1のチェックボックスにもチェックが入るようにしたいのです。

詳しい方、教えて頂けませんでしょうか。

よろしくお願い致します。

Aベストアンサー

以下のような手順で、2つのチェックボックスのリンクするセルを同一のセルにします。

ご使用のチェックボックスがフォームのチェックボックスなら、Book1のチェックボックスをで右クリックして「コントロールの書式設定」で「リンクするセル」を指定します。
Book2のチェックボックスで右クリックしてチェックボックスを選択し、数式バーに「=」と入力し、Book1のリンクするセルを選択します(これで「=[Book1]Sheet3!$A$3」のような他ブックを参照する数式になります)。

QExcelでチェックボックスを使った列のコピー方法

案件進捗表を作成しています。
進捗に応じて右へ右へとチェックボックスにチェックを入れていく形にしていて、
チェックボックスのとなりのセルに真偽の値を入れるように反映させています。
案件が増えるごとに、1,2,3行と・・とデータを増やしていきたいのですが、
1行目に作成した形式を下にコピーするとチェックボックスが全データ同じ動きをしてしまいます。
となりのセルに「TRUE」などを返すように反映させているチェックボックスはコピーできませんか?
教えてください。よろしくお願いします。

Aベストアンサー

エクセルでは、「フォーム」のチェックボックスと「ActiveXコントロール(コントロールツールボックス)」のチェックボックスの、2種類のチェックボックスが利用できます。
ご相談ではいったいどっちを使って作成したのか、しっかり情報提供してください。

#余談ですがご利用のエクセルのバージョンについても、必ず明記する事を憶えて下さい。


ただまぁ、どちらを使っても「下にコピーしただけで隣に結果が返る」ようにする方法は、残念ですがありません。



というワケで出来る方法:
1.今まで作成したチェックボックスはすべて消去する
2.「フォーム」のチェックボックスをシートに配置する
  その際、必ず「セルの中に納まる」ようにセルの大きさも含めて調整する
3.コントロールの書式設定は「設定しない」でおく
4.右クリックして「マクロの登録」を開始する
5.新規作成を選択、現れた画面で

Sub チェック1_Click()
with activesheet.shapes(application.caller).topleftcell.offset(0, 1)
.value = not .value
end with
End Sub

のように記入作成する

6.ファイルメニューから終了してエクセルに戻る
7.マクロを登録したチェックボックス「が載っているセル」をコピーし、必要なセルに貼り付ける
8.チェックを入れたり外すと、右隣のセルに-1と0が交互に現れる



#おまけ
-1と0のセルにセルの書式設定の表示形式のユーザー定義で
0;"TRUE";"FALSE"
と設定しておくと、TRUEとFALSEの表示になります。「見た目」が重要な時は適宜利用してください。

エクセルでは、「フォーム」のチェックボックスと「ActiveXコントロール(コントロールツールボックス)」のチェックボックスの、2種類のチェックボックスが利用できます。
ご相談ではいったいどっちを使って作成したのか、しっかり情報提供してください。

#余談ですがご利用のエクセルのバージョンについても、必ず明記する事を憶えて下さい。


ただまぁ、どちらを使っても「下にコピーしただけで隣に結果が返る」ようにする方法は、残念ですがありません。



というワケで出来る方法:
1.今まで作成した...続きを読む

Qエクセルのチェックボックスについて教えて下さい

「OK」と言うチェックボックスを「10」作成します。

すべてOKの場合、OKを10回クリックしてOKの欄を
埋めるのではなく、どこか一つのチェックボックスをクリック
すると全てのチェックボックスにレ点が挿入できるようにしたい
です。

チェックボックスを作成するまでは出来ます。
解決方法を教えて下さい。

Aベストアンサー

10個のうちのどれかで、全てを・・・というのは、皆さんが指摘されて
いるように、矛盾しており、個別指定もできません。
そこで、11個目のチェックボックスで、全選択・全解除をするのサンプルを紹介します。
1)1~10のチェックボックスのリンク先セルをB1~10に設定しておきます。
2)11個目のチェックボックスのリンク先セルをC1に設定します。
3)11個目のチェックボックスを選択し、右クリックし、「マクロの登録」
「新規作成」を選択します。
4)以下のマクロを Sub チェックxx_Click()の次の行に追加します。

Range("B1").Value = Range("C1").Value
Range("B2").Value = Range("C1").Value
Range("B3").Value = Range("C1").Value
Range("B4").Value = Range("C1").Value
Range("B5").Value = Range("C1").Value
Range("B6").Value = Range("C1").Value
Range("B7").Value = Range("C1").Value
Range("B8").Value = Range("C1").Value
Range("B9").Value = Range("C1").Value
Range("B10").Value = Range("C1").Value

10個のうちのどれかで、全てを・・・というのは、皆さんが指摘されて
いるように、矛盾しており、個別指定もできません。
そこで、11個目のチェックボックスで、全選択・全解除をするのサンプルを紹介します。
1)1~10のチェックボックスのリンク先セルをB1~10に設定しておきます。
2)11個目のチェックボックスのリンク先セルをC1に設定します。
3)11個目のチェックボックスを選択し、右クリックし、「マクロの登録」
「新規作成」を選択します。
4)以下のマクロを Sub チェックxx_Clic...続きを読む

Q至急お願いします!Excel2007で、チェックボックスを複数選択して

至急お願いします!Excel2007で、チェックボックスを複数選択して削除するする方法が分かりません!!

ドラッグをしてチェックボックスを複数選択したいのですが、【オブジェクトの選択】では選択できません。F5のジャンプを使って、オブジェクトを選択をしてみたのですが、図形も挿入されているのでそちらを選択してしまいます。

詳しくないので、初心者にも分かる説明をお願いします。

Aベストアンサー

回答1,2です。
一括選択は残念ながらできませんね。
一括して選択し削除できる方法はマクロを使うことになるでしょう。

Q2つ以上のチェックボックスを連動させるには?

Eecelで、同一シートに複数のチェックボックスがあるとき、ある特定のチェックボックスにチェックを入れると、他の特定のチェックボックスに自動的にチェックが入るようにするには、どうすればいいのでしょうか?

Aベストアンサー

チェックボックスは「フォーム」のチェックボックスを使用されていますか?
その場合、リンクするセルを指定できるはずです。
ここでVBAを使って
仮に1A1にあるのチェックボックスにチェックを入れた時、
B1、C1のチェックボックスにチェックを入れたいとします。
Sub test()
If Cells(1, 1) = true Then
cells(1,2)=true
cells(1,3)=true
elseif Cells(1, 1) = False Then
cells(1,2)=false
cells(1,3)=false
End if

これをA1のチェックボックスの「マクロを登録」のところで指定して下さい。

これで連動すると思いますが。

QExcel 2010 で勤務割表を作成しています。

月間の勤務割表を作成しています。
3列3行を一枡として一人・一日の枡とし、勤務の割り振り状態を表示するものです。
列に日付、行を個人名(max16名)としますから、3列3行の枡が496個となります。
各枡とも1列目の1行目に勤務種別コード(1~5)を記述し、このコードNoにより4種の図形を貼付けています。
1つ1つの枡(496個)に以下のコードを書き実行しています。膨大な行数を要します。
使用するパソコンにおいては実行速度がかなりかかります。
これをもっと単純化する手法についてご教示いただければ幸いです。

Sub Macro1()
Select Case Range("I6").Value '1人目-1日
Case 1:
ActiveSheet.Shapes("四角形1").Select
Selection.Copy
Range("J7").Select
ActiveSheet.Paste
Case 2:
ActiveSheet.Shapes("四角形2").Select
Selection.Copy
Range("I7").Select
ActiveSheet.Paste
Case 3:
ActiveSheet.Shapes("四角形3").Select
Selection.Copy
Range("J7").Select
ActiveSheet.Paste
Case 4:
ActiveSheet.Shapes("直線1").Select
Selection.Copy
Range("I6").Select
ActiveSheet.Paste
Case 9:
ActiveSheet.Shapes("四角形3").Select
Selection.Copy
Range("J7").Select
ActiveSheet.Paste
End Select
 '|
  '| <同じことを一つ一つの枡ごとに繰り返し記述しています。>
  '|
Select Case Range("CU51").Value '16人目-31日
Case 1:
ActiveSheet.Shapes("四角形1").Select
Selection.Copy
Range("CV52").Select
ActiveSheet.Paste
Case 2:
ActiveSheet.Shapes("四角形2").Select
Selection.Copy
Range("CU52").Select
ActiveSheet.Paste
Case 3:
ActiveSheet.Shapes("四角形3").Select
Selection.Copy
Range("CV52").Select
ActiveSheet.Paste
Case 4:
ActiveSheet.Shapes("直線1").Select
Selection.Copy
Range("CU51").Select
ActiveSheet.Paste
Case 9:
ActiveSheet.Shapes("四角形3").Select
Selection.Copy
Range("CV52").Select
ActiveSheet.Paste
End Select

End Sub

月間の勤務割表を作成しています。
3列3行を一枡として一人・一日の枡とし、勤務の割り振り状態を表示するものです。
列に日付、行を個人名(max16名)としますから、3列3行の枡が496個となります。
各枡とも1列目の1行目に勤務種別コード(1~5)を記述し、このコードNoにより4種の図形を貼付けています。
1つ1つの枡(496個)に以下のコードを書き実行しています。膨大な行数を要します。
使用するパソコンにおいては実行速度がかなりかかります。
これをもっと単純化する手法についてご教示いただければ幸...続きを読む

Aベストアンサー

For文を使えばコードを短くすることはできますが、図形を496個貼付けているかぎり実行時間は変わりません。
なんのために図形を貼付けているのか分かりませんが、実行時間を短くしたかったら別の方法を考える必要があります。


とりあえず、コードを短くする方法だけ。

Sub Macro1()
For i = 6 To 51 Step 3
For j = 9 To 99 Step 3
Select Case Cells(i, j).Value 'i人目-j日
Case 1:
ShapeCopy "四角形1", i + 1, j + 1
Case 2:
ShapeCopy "四角形2", i + 1, j
Case 3:
ShapeCopy "四角形3", i + 1, j + 1
Case 4:
ShapeCopy "直線1", i, j
Case 9:
ShapeCopy "四角形3", i + 1, j + 1
End Select
Next
Next
End Sub

Sub ShapeCopy(Zukei As String, i As Integer, j As Integer)
ActiveSheet.Shapes(Zukei).Select
Selection.Copy
Cells(i, j).Select
ActiveSheet.Paste
End Sub

For文を使えばコードを短くすることはできますが、図形を496個貼付けているかぎり実行時間は変わりません。
なんのために図形を貼付けているのか分かりませんが、実行時間を短くしたかったら別の方法を考える必要があります。


とりあえず、コードを短くする方法だけ。

Sub Macro1()
For i = 6 To 51 Step 3
For j = 9 To 99 Step 3
Select Case Cells(i, j).Value 'i人目-j日
Case 1:
ShapeCopy "四角形1", i + 1, j + 1
Case 2:
ShapeCopy "四角形2", i + 1, j
Case 3:
ShapeCopy "四角形3", i + 1, j + 1
Ca...続きを読む


人気Q&Aランキング

おすすめ情報