[[20041121181122]]　『マウスで反応する○、×、△』（MIHOY）　ページの最後に飛ぶ

『マウスで反応する○、×、△』（MIHOY）

出席簿を作りたいので、セルの右側にクリックすると○、×、△と現れるプルダウンを設置したいのですが、人がやっているのを見たことがあって挑戦してみたところどうしても自分では出来ません。もし知っている方いましたらどうか教えてください。お願いします。（MIHOY）

 したいセルを選んで、データ　入力規則の入力値をリストにして
「，」で区切って「○，×，△」で設定すれば出来るんじゃないですか？

 シートの見出しを右くりっく
コードを表示させてそこに貼り付けます。
だぶるくりっくで作成・・・
違うかな？？？
v(=∩_∩=)v
（SoulMan）
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target.Validation
    .Delete
    .Add Type:=xlValidateList, _
    Formula1:="○,×,△"
End With
End Sub

 (MIHOY)さん、質問をお借りしてすみません。
私も、同様のことが出来ないものかと悩んでおりましたのでつい・・・　。
(SoulMan)さん、すみませんが教えて下さい。
上記マクロ、ダブルクリックでドロップダウンリストが出ました。
○,×,△のいずれかを選択した場合はそれで良いのですが、
ダブルクリックしてしまった後で、何か他の文字を入れようとした時、
入力制限がかかってしまっているので、他の文字入力が出来なくなってるんですが
ダブルクリックの後でも、もし何も選択しなかった場合には他の文字が入力出来るような
マクロになれば嬉しいんですが。
勝手な事を言って申し訳ありません。
入力規制のかかってないセルをコピペすれば出来ることなんでしょうが面倒なので。
                                                       (KI)

 こうかな？
（SoulMan）
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, _
        Formula1:="○,×,△"
        .ShowError = False
    End With
End Sub

 SoulManさんありがとうございます。
そうです、その通りです。私の希望していた通りです。
大変役にたちました。またよろしくお願いしますね。
                                    (KI)

コメント返信：

[ 一覧(最新更新順) ]

[[20041121181122]] 『マウスで反応する○、×、△』（MIHOY） ページの最後に飛ぶ

[[20041121181122]]　『マウスで反応する○、×、△』（MIHOY）　ページの最後に飛ぶ