[[20150827102754]] 『チェックボックスにチェックを入れた時に。。。』(TOTAL) ページの最後に飛ぶ

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

 

『チェックボックスにチェックを入れた時に。。。』(TOTAL)

いつもお世話になっております。
以前にも似たような質問をさせて頂きましたが

チェックボックスにチェックを入れた時にコメントが出るようにするには
どうすればいいでしょうか?

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

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


 フォームコントロールのCheckBoxですか?
 ActiveXコントロールのCheckBoxですか?
 ユーザーフォームのCheckBoxですか?

 また、コメントとはコメントの挿入でセルに設定するコメントですか?
 はたまたMsgBoxのようなものですか? 

 >以前にも似たような質問をさせて頂きましたが 

 可能ならリンクを貼ってください。
(カリーニン) 2015/08/27(木) 10:39

[[20150818194914]] 『コメントが出るようにしたいです。』(TOTAL)
 これですよね。

 お遊びということで参加させていただきましたが、
 フォームにしろ、ActiveXコントロールにしろ、全部が全部、そんなうざい仕様だったら
 使いたくねーですよ。

 各フィールドに設定するのではなく、レコード単位でチェックすれば、一度のチェックで済みますよね?

 入力忘れ防止? 間違い防止?

 どういった観点からコメント出したいんですか?
(稲葉) 2015/08/27(木) 10:48

色々と言葉足らずですみません。
フォームコントロールのチェックボックスです。

入力忘れ防止の為です。
チェックを入れた方は指定のセルに進んでもらうようにしたいのですが。。
(TOTAL) 2015/08/27(木) 10:54


 フォームコントロールならそんなに難しくないのでは?

 リンクセルを作っておいてそこがTRUEならどこかのセルにメッセージが出るようにするとか。
 IF関数で十分対応できると思いますけど。
 ポップアップとがご希望なんでしょうか。
(コナミ) 2015/08/27(木) 11:00

ポップアップで表示できれば嬉しいです。
(TOTAL) 2015/08/27(木) 11:47

 >>入力忘れ防止の為です。 
 >>チェックを入れた方は指定のセルに進んでもらうようにしたいのですが。。

 要望している仕様は入力忘れ防止とは思えません。単に、これが入力されたよ!! と表示するだけです。
 本当に必須項目の入力忘れ防止であれば、たとえばブックが保存されようとしたときにチェックすべきです。
 肝心の項目ではないものの入力で、いかに、はではでしく(?)表現しても、何の意味もないと思います。

 また、チェックを入れれば指定セルにすすむ、これは入力支援として、グッドアイデアだと思いますが
 そのことと、チェックされたよというメッセージを出すことと、どちらが入力者にとって、効果があると思いますか?

 コードを書いたらできるということと、どういう仕様が必要かということは全然別物ですよ。

(β) 2015/08/27(木) 12:41


 チェックしたらコメントが出ても、入力忘れ防止にはならんですよね。
 なら、チェック入れたら入力してほしいセルに色が付くように、セルの書式設定でも
 されたらいかがですか?

 で入力されたら、色が元に戻るとか。

 フォームコントロールならコナミさんのやり方でものすごく簡単にできますよ。
 例で、
 B2にチェックボックス
 C2にチェックボックスのリンクセルとします。
 D2を選択して、条件付き書式>数式を指定して〜〜 条件に「=AND($C$2,$D$2="")」
 これで、チェックが入っている、且つ空白なら色が付きます。

 いかがですか?
(稲葉) 2015/08/27(木) 12:51

 βの見解としては、(β) 2015/08/27(木) 12:41 のとおりですが、それでもやりたいということであれば
 前スレに、稲葉さんのコードなり、βのコードなりがあるわけです。それを発動するタイミングがチェックボックスにチェックが入った時ということです。

 であれば、(TOTAL)さん自身が、いかようにでもコードを準備できるのではないですか?

 A1 に"ABC"と入れるコードがわからないということで Range("A1").Value = "ABC" という回答をもらった。
 ところが「要件が変わった。新たに B1 に "XYZ" と入れる必要がでた! コードを教えてほしい」
 こういっているのと、変わらないですよ。

(β) 2015/08/27(木) 12:56


 フォームコントロールのチェックボックスだとして、発動のタイミングだけ参考として。
 以下のマクロを、そのチェックボックスにマクロ登録

Sub Check()

    With ActiveSheet.Shapes(Application.Caller).DrawingObject
        If .Value = xlOn Then
            MsgBox "チェックされました" & vbLf & "このチェックボックスの左上隅は " & .TopLeftCell.Address & " 右下隅は " & .BottomRightCell.Address & " です"
            '実際には、ここで、コメント表示なり、特定セルへカーソルを飛ばすなりお好きなように
        End If
    End With
End Sub

(β) 2015/09/02(水) 17:19


コメント返信:

[ 一覧(最新更新順) ]


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