エクセルVBA チェックボックスで；；

下記のような表を作っているんです・・・


　　　　A　　　B　　　C　　　 D　　　

１　　日付　 名前 　評価　　
２　　1日　　　あ　　　A　　　□
３　　2日　　　い　　　B　　　□
４　　2日　　　う　　　A　　　□
５　　4日　　　え　　　D　　　□

というような感じです（まだ右と下は項目いっぱいあります）

Dのセルにチェックボックスをつけてチェックが入った物のみを別なシートにコピーしてそのページを印刷させ印刷し終わったら印刷した行の色を変えたいのです。

色々試してみたのですが、チェックボックスのON　OFF判断もままならない状況でした；；

どなたか宜しくお願いいたします。

No.1 回答者： aa109 回答日時： 2004/08/16 11:50

ワタシだったら

下記のようにします
SelectionChangeイベントを利用して
Activecells.value=”v”
で選択セルにチェック、
印刷する時には
オートフィルターでチェックがある行を抽出し
色をつけます
そして印刷・・

No.2 回答者： papayuka 回答日時： 2004/08/16 11:51

コントロールツールボックスのCheckBoxだと、簡単なのはプロパティのLinkedCellを「D1」のようにセルアドレスで指定してそれを見るって感じでしょうか。

No.3 回答者： web2525 回答日時： 2004/08/16 11:51

VBAでの処理ではなくマクロで同じ動作を行う方法を記録して、マクロの中身研究されては？

取りあえずチェックボックスとリンクするセルの指定はされていますか？
リンクされたセルにはチェックを入れると[TRUE]が入りますので（チェックない場合は[FALSE]です）フィルターオプションでチェックされた行のみ抽出しコピペ&印刷&行の色変更、その後〔全て表示〕で希望の処理が終了するはずです。

マクロでの記録ではなくどうしてもVBAで一から組みたいと仰るのなら、そのマクロの内容を参考になされて自分なりに組み替えられては？

No.4 ベストアンサー 回答者： imogasi 回答日時： 2004/08/16 13:44

間違っているかも知れませんが、このチェックボックスを

各行に関連付ける方法は、難しい面を抱えていると思います。
（１）チェックボックス集団をどれでもチェックすると反応してくれるイベントがない。
かつその集合の中でどれかを知らせてくれないといけない
がそれもない。
（２）ＶＢＡではコントロール配列が使えない。
２０行あるとして、チェックボックスの数だけイベントのコードを書けば出来るのでしょうが、やりたくない。
（３）コントロールのグループ化も出来るが使えなさそう。
（４）＃２でも出ている、ＬｉｎｋｅｄＣｅｌｌを各チェックボックスに設定してみたが、シートのＣｈａｎｇｅイベントやＳｅｌｅｃｔｉｏｎＣｈａｎｇｅイベントに反応
しなかった。
（例データ）
（２）の解決はあきらめて、泥臭くやって見ました。
チェックボックス４つの例です。
Sheet3のＡ１：Ｃ５に
日付　名前　評価　　
2004/8/1山本Ａ
2004/8/2木村Ｂ
2004/8/2吉井Ｂ
2004/8/3近藤Ｃ
Ｄ列のＤ２、Ｄ３、Ｄ４、Ｄ５にＣｈｅｃｋＢｏｘ１、２、３、４をそれぞれ貼りつけ。
Ｅ２はワークセルで使う。
（コード）
Private Sub CheckBox1_Click()
Cells(2, 5) = 1
End Sub
Private Sub CheckBox2_Click()
Cells(2, 5) = 2
End Sub
Private Sub CheckBox3_Click()
Cells(2, 5) = 3
End Sub
Private Sub CheckBox4_Click()
Cells(2, 5) = 4
End Sub
--------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then
i = Worksheets("sheet3").Cells(2, 5)
' MsgBox i
Worksheets("sheet2").Cells(10, "A") = Worksheets("sheet3").Cells(i + 1, "A")
Worksheets("sheet2").Cells(10, "B") = Worksheets("sheet3").Cells(i + 1, "B")
Worksheets("sheet2").Cells(10, "C") = Worksheets("sheet3").Cells(i + 1, "c")
Worksheets("sheet3").Range(Cells(i + 1, "A"), Cells(i + 1, "C")).Interior.ColorIndex = 6
End If
End Sub
Ｓｈｅｅｔ３でＣｈｅｃｋＢｏｘ１をクリックすると
Ｓｈｅｅｔ２のＡ１０が
2004/8/3近藤Ｃ
となり、Ｓｈｅｅｔ３のＡ２：Ｃ２が黄色になる。
Cells(i + 1, "C")).Interior.ColorIndex = 6
の下に
Worksheets("sheet3").Range(Cells(i + 1, "A"), Cells(i + 1, "C")).Interior.ColorIndex = 6
の下に
Worksheets("sheet2").Range(Cells(10, "A"), Cells(10, "C")).PrintOut
をいれると、この行を印刷します。
後は推測で、手直ししてください。

この回答へのお礼

そうですか・・・　なかなか厳しい感じですね・・・；；

上記を参考にさせていただき、もうちょっとがんばってみます。
泥臭くやるのは、得意なので^^
というか泥臭くしか作れないので^^がんばってみます
ありがとうございました

お礼日時：2004/08/16 13:55