[[20160808131932]] 『フォームで作成したチェックボックスが複数連動す』(名無しの事務員) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『フォームで作成したチェックボックスが複数連動するようにしたい』(名無しの事務員)

こんにちは。
VBA初心者ですが仕事に必要で、独学でVBAの勉強をしています。
パソコンに詳しい皆さまにご教授願いたいと思い今回スレを立てさせていただきました。
さて、本題に入りたいと思います。
フォームで作成をした複数のチェックボックスを連動して動かしたい
(チェックボックス15にレ点を入れたらチェックボックス5とチェックボックス6に自動的にレ点を入るようにしたい)のですが、
どうしてもうまくいきません。(様々なサイトさんを覗かせていただいてデータを入れてみたのですが上手くいかなかったです。)
ぜひ知識の豊富な皆様からのアドバイスをいただきたいです。
よろしくお願い致します。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


うまくいかないという、チェックボックス15(5、6も?)に書いたコードを見せてください。
あと、どううまくいかないのか、エラー表示された内容とか現象とかも書いてください。

チェックボックス15→チェックボックス5と6、との事ですが、チェックボックス5と6の方にもコードが書いてあって、更に他のチェックボックスを操作する、とかになっていて、循環していたりしませんかね?
(???) 2016/08/08(月) 13:38


Sub test()
If Cells(23, 17) = true Then
cells(14,17)=true
cells(23,25)=true
elseif Cells(23, 17) = False Then
cells(14,17)=false
cells(23,25)=false
End If
End Sub

というコードを入力しましたが、微動だにしません…
確認しましたが、チェックリスト5にも6にも、
何もコードを入れておらず循環している形跡もありません。
(名無しの事務員) 2016/08/08(月) 13:55


フォームで作成したチェックボックス、というので、てっきりUserForm上のCheckBoxコントロールの事かと思いましたが、貼っていただいたコードは、シートのセルを操作してますね。 ということは、フォームコントロールのチェックボックスをシートに貼った、という事でしょうか?

それならば、チェックボックスの書式設定で、「リンクするセル」には該当するセルを割り付けていますか? 空欄のままだったり、違うセルだったりすると、機能しませんよ。

更に、チェックボックスの「マクロの登録」で、ご提示のコードを割り当てていますか?
(???) 2016/08/08(月) 14:17


失礼いたしました。
フォームコントロールのチェックボックスでした。
反映することはできましたが、
TRUEやFALCEという表記が出てしまうようにになり、
該当するセルにあるチェックボックスにチェックが入りません。
これについてはどうすれば不具合が解消されますか?
無知で申し訳ありません。
(名無しの事務員) 2016/08/08(月) 14:28

TRUEやFALSEが表示されるのは、そういう使い方だから仕方ないです。それが嫌ならば、フォームコントロールのチェックボックス以外の方法になります。例えば、データの入力規則で"○"と"×"で表現すれば、対象はチェックボックスのオブジェクトではなく、単なるセルの文字列になるので、マクロが簡単になります。

とりあえず、現状のチェックボックス案で進めるとして、cells(14,17)とcells(23,25)をTrueにしようとしていますよね? ということは、チェックボックス5のリンクするセルは R14C17、6の方はR23C25 になっていないといけません。チェックボックス5をクリックすると、R14C17 はTrue/False と変化しますか?
(???) 2016/08/08(月) 14:54


そうなんですね…
教えていただいた通りにしたら変化しました。
ありがとうございます。
(名無しの事務員) 2016/08/08(月) 15:01

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.