[[20120912142957]]　『チェックボックスを使ってチェック表を作りたい』（お茶々丸）　ページの最後に飛ぶ

『チェックボックスを使ってチェック表を作りたい』（お茶々丸）

超初心者です。

下記のような表で、工程をチェックできるよう
チェック表を作ろうと考えています。
チェックボックスを使って工程が終わったら
左クリックでﾁｪｯｸ（レ）をいれる形をイメージしてますが、

チェックボックスの作り方
ツール＞ユーザー設定＞ツールバーの中のフォームにチェックを入れてOK
ツールバーのチェックボックスをクリックして
シート上でマウスを左クリックしながら動かす
で作成する場合1コずつしか出来ませんよね。
3列以上100行以上あるのですが、これを簡単に作る方法はありますか？
コピーとかできるの？

　　A B C D
1 名前　工程1 工程2 工程3
2 パンダ　ロ済　　ロ済　　ロ済
3 うさぎ　ロ済　　ロ済　　ロ済
4 ライオンロ済　　ロ済　　ロ済
5 キリン　ロ済　　ロ済　　ロ済
　　・
　　・
　　・

チェックボックスでなくても、クリックでチェックが出来れば
いいのですが、良い方法ありましたらアドバイス願います。

Excel2003

 >3列以上100行以上あるのですが、これを簡単に作る方法はありますか？ コピーとかできるの？

 うん。普通に、たとえばB2にチェックボックスをおいて、B2を選択して右にフィルコピー
 Ｂ２：Ｄ２を選択して下にフィルコピー

 (ぶらっと)

 テキストを使用した、なんちゃってチェックボックスの例ですが、
 下記のマクロでどうでしょうか。
 ちゃんとしたチェックボックスをご希望でしたら、スルーしてください。

 シートタブの右クリックで「コードの表示」をクリック
 表示されたウィンドウに下記をコピー。
 シートの対象範囲（複数セルの選択も可）を右クリックすると、□と☑ を交互に
 表示します(最初何もない状態でクリックすると□になります)。
 (Mook)

 Const チェック範囲 = "B2:D100"

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Target, Range(チェック範囲)) Is Nothing Then Exit Sub
    For Each r In Intersect(Target, Range(チェック範囲))
        If r.Value = "□済" Then
            r.Value = ChrW(9745) & "済"
        Else
            r.Value = "□済"
        End If
    Next
    Cancel = True
 End Sub

ぶらっとさま

回答ありがとうございます。
超初心者なのですがフィルコピーがなぜか出来ません。
コピーしても空欄になってしまって、
何が悪いんでしょうか。。。

Mookさま

ありがとうございます。
マクロ貼りつけてみてやってみました
「なんちゃってチェックボックス」
すごいです！
これでじゅうぶん目的がはたせそうです。
ありがとうございました。

（お茶々丸）

解決したみたいだけど一応。

たぶんコントロールツールボックスのチェックボックスを使ってるんじゃないかな？
コントロールツールボックスツールバーの一番上に三角定規と鉛筆みたいなアイコンがあって、
それが押されてない状態（チェックボックスをクリックするとチェックできる状態）なんだと思う。

そのボタンを押してデザインモードにすれば、フィルコピーできるよ。

(1111)

 ＞コピーしても空欄になってしまって、
 に関してですが

 フォームのツールバーから作成したチェックボックスの場合
 コントロールの書式設定のプロパティで、一番下の
 「セルに合わせて移動やサイズ変更をしない(D)」
 が選ばれていないか、確認してみてください。

 これが選ばれていたら、ほかの所を選んでみてください。

 また、コピーするセル範囲の中にきちんと納まっているかも
 確認してみてください。

 (HANA)

1111さん
おっしゃるとおりでした。
デザインモードにしたらコピーできました。
ありがとうございました。

HANAさん
回答ありがとうございました。
「セルにあわせて移動やサイズ変更をしない(D)」
にはなっていなかったです。
「セルにあわせて移動はするがサイズは変更しない（Ｍ）」でした。
範囲内に納まっているように見えますがちょっと微妙かも。

みなさま
アドバイスありがとうございました。
いろいろ回答いただきまして参考になりました。
自分のやりやすい方法を選んでやってみます。
（お茶々丸）

 ＞「セルにあわせて移動はするがサイズは変更しない（Ｍ）」でした。
 これでしたら、セルのコピーと一緒にコピーされると思います。

 できなかった原因は
 ＞コントロールツールボックスのチェックボックスを使ってるんじゃないかな？ 
 だったのでしょうね。

 ご説明では
 　ツール＞ユーザー設定＞ツールバーの中のフォームにチェックを入れてOK
 となっていましたが。。。

 まぁ、これに限らず　図形やテキストボックスなど
 セルのコピーと合わせてコピーしたい場合や、したくない場合等に
 変更してみてもらえるとよいと思います。

 (HANA)

HANAさま

どうやらご指摘の通り
コントロールツールボックスのチェックボックスを使っていたみたいです。
チェックボックスのやり方をいろいろ調べていて、

＞ツール＞ユーザー設定＞ツールバーの中のフォームにチェックを入れてOK

でやっていたのが、思ったようにうまくいかず、
他をいろいろ調べているうちに上記のやり方でやってましたが、
自分で何をやってたどりついたのか混同してしまっていました。
（それをそのまま書いてしまいました）

いろいろ考えていただき、ご教授いただき、ありがとうございました。
日々勉強です。がんばります。
（お茶々丸）

コメント返信：

[ 一覧(最新更新順) ]

[[20120912142957]] 『チェックボックスを使ってチェック表を作りたい』（お茶々丸） ページの最後に飛ぶ

[[20120912142957]]　『チェックボックスを使ってチェック表を作りたい』（お茶々丸）　ページの最後に飛ぶ