Excel（エクセル）活用コミュのたくさんのチェックボックスに連動するセルを簡単に設定したい

win XPの　エクセル2003です

フォームのチェックボックスで、

チェックボックスを選択した状態で、数式バーに「=A1」って打ち込むと
チェックが入ってるときはA1に「TURE」。
入ってないときは「FALSE」ってなりますよね。

縦に60行くらいある表の、すべての行にチェックボックスを置いて、
そのオンオフを元にその行の任意のセルに
(例えばA列にあるチェックボックスならA1に)
「TURE」もしくは「FALSE」を表示できるように設定したいのですが、

フィルコピーでだだだーってやることはできないでしょうか?
試しに「=INDIRECT("A"&ROW())としてみましたがダメでした。

よろしくお願いします。

コメント(5)

最初
全て
最新の40件

[1] mixiユーザー 04月20日 00:06

事故解決

http://www.excel.studio-kazu.jp/kw/20080821125615.html

地道に手作業でやります。60個だし・・・

[3] mixiユーザー 04月20日 00:16

うーん。

オートフィルのみでフォームのチェックボックスの参照先を変えるのは無理っぽいので
チェックボックスを配置したあとに以下のマクロを実行してみるとかはどうでしょう。

Sub チェックボックスのリンク先を変更するサンプルマクロ()
　　Dim shapeBuf As Shape
　　
　　For Each shapeBuf In ActiveSheet.Shapes
　　　　With shapeBuf
　　　　　　If .FormControlType = xlCheckBox Then
　　　　　　　　.ControlFormat.LinkedCell = .TopLeftCell.Address
　　　　　　End If
　　　　End With
　　Next
End Sub

[4] mixiユーザー 04月20日 00:22

ニアミスでしたね。
手動で頑張るよりマクロの方が楽ですよ。

リンク先のマクロは
Private Sub リンク設定()
Dim Dobj As Shape
For Each Dobj In ActiveSheet.Shapes
If Dobj.FormControlType = xlCheckBox Then
i = i + 1
ActiveSheet.Shapes(Dobj.Name).OLEFormat.Object.LinkedCell = "=A" & i
End If
Next
End Sub
となっているようですね。
一見、けっこう似ているようですが動作はけっこう違ってきますね。

私が書いたマクロはチェックボックス直下のセル(左上基点)に関連付け。
リンク先のは作成された順にチェックボックスをA1・A2・A3の順で関連付けるようです。

かずにさんの要望には私が書いた方のマクロが合ってると思いますのでよかったら試してみてください。

ご参考までに。

[5] mixiユーザー 04月20日 00:49

よっちゃん様　ありがとうございます!
私もそんなふうにマクロ組めるようになりたいです。
また質問すると思うのでよろしくお願いします。

ログインすると、みんなのコメントがもっと見れるよ