[[20061007225308]]　『クリックするだけで○[マル]・文字を出す方法』（ひでぼん）　ページの最後に飛ぶ

『クリックするだけで○[マル]・文字を出す方法』（ひでぼん）

セルをクリック（Ｗクリックでもよい）するだけで、○を自動的に入力する（出す）方

法（自動的にあらかじめ入力した文字等を出す）は、ありませんか？

あれば是非教えて下さい。

今、ドロップダウンを使って入力した文字等を出していますが、もっと簡単に入力でき

れば便利だと思っています。宜しくお願いします。

 シングルクリックで ○がはいったら、普通の操作ができませんよ。

 ダブルクリックで ○ を入力、もう一度ダブルクリックで そのセルを消すVBAです。

 シートのタブを右クリック、「コードの表示」をクリック
 次のコードをコピー・貼り付けをします。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Value <> "" Then
        Target.Value = ""
    Else
        Target.Value = "○"
    End If
 End Sub

ありがとうございます。是非やってみます！

出来ました！ありがとうございます。

それと、ダブルクリックで○を出したくないセルを選ぶ場合はどうしたら宜しいでしょうか？

 こんな感じではいかがでしょう？
　
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:D5")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
                .Value = "○"
            Case "○"
                .Value = ""
        End Select
    End With
End Sub
　
 （キリキ）(〃⌒o⌒)b

キリキさん

このコードを入れたら　○　が出ません。○を出す、セルの指定はどのようにしたら
宜しいですか？教えて下さい。

（ひでぼん）

 「ダブルクリックで○を出したくないセル」は
 ひでぼんさん以外の人が見ても分かりますか？
 (法則のようなものはありますか？）

 キリキさんのコードは
 >Range("A1:D5")
 A1:D5の範囲内のみダブルクリックで○が出せるはずです。
 それも出ませんかね？

 (HANA)

 衝突～☆
　
 HANAさん、いつもありがとうねｂ
　
 以下衝突前文書
 あらっ
 ごめんなさい＾＾；
　
 >If Intersect(Target, Range("A1:D5")) Is Nothing Then Exit Sub
                             ~~~~~~~
 この部分が、範囲になります。
 好きな範囲を入れてみてください。
 その範囲内のみで「○」が出ます。
　
 （キリキ）(〃⌒o⌒)b

 To キリキさん 
 いえいえ。マクロさっぱりなので、投稿前の文章には
 『ですよね。＞キリキさん』が入っていたくらいです。
 (でも、首は突っ込みたい性分で・・・・)
 なるべくおかしな事を書かないように気を付けますので、よろしくお願いします。

 (HANA)

なるほど！でました！ありがとうございます。非常に勉強になります。

（ひでぼん）

再度質問なのですが、今 A10:D28　にて○を入力出来る様にしていますが、

追加で、　Q10:W27 と入力する為のコードを教えて下さい。

宜しくお願いします。

 横レスすみません。
 ↓のように指定します。

 If Intersect(Target, Range("A10:D28,Q10:W27")) Is Nothing Then Exit Sub
 (MARBIN)

ありがとうございます！入力する事が出来ました！
（ひでぼん）

 MARBINさん、フォロー有り難うございました＾＾
　
 （キリキ）（〃⌒o⌒)b

再度、質問なのですが、Ｗクリックだけで、あらかじめ決めたセルの中に数値を出す事は出来ますか？

A1～Ａ10までは5を、Ａ11～12までは3、Ａ13～20までは4を出す事は可能でしょうか・・・？宜しくお願い致します。　（ひでぼん）

 こんな塩梅でどうでっか？
 　　　　　（弥太郎）
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 1 Or Target.Row > 20 Then Exit Sub
    Cancel = True
    With Target
        Select Case .Row
            Case Is < 11
                .Value = 5
            Case Is < 13
                .Value = 3
            Case Else
                .Value = 4
        End Select
    End With
 End Sub

再度質問なのですが、
Ｋ11を　　　10
Ｋ12～14を　5
Ｋ15を　　　3
Ｋ16を　　　2
Ｋ17を　　　5
Ｋ18を　　　2
Ｋ19を　　　5
Ｋ20を　　　3
Ｋ21を　　　2
Ｋ22～24を　3
Ｋ25を　　　2
Ｋ26を　　　3
Ｋ27～30を　2
Ｋ31～32を　5
Ｋ33～34を　2
Ｋ35を　　　3
Ｋ36～38を　2
Ｋ39～40を　3
Ｋ41を　　　2

という風にそれぞれＷクリックで数値を出したいのですが、上記のどこを変えれば出来るか教えて下さい。何度もすみません。

（ひでぼん）

 それはあんさんがこれを元手に額に汗して考える番ですワ。（笑
 わたしゃあんさんのマクロ請負業者やおまへんねんで、えぇ。
 一般的に例示したデータをテーマにマクロを組んでさしあげると実はこうこうでちゅう
 事が多すぎると思いますわなぁ。
 時間と熱意があれば考えてもよろしいけど、今はその熱意が全くありまへん・・・。
 ごめんなはれや。
          （弥太郎）

 横から失礼します。

 回答者のレスに対する礼もなく次の質問を出されると
 そりゃ熱意もなくなります。

 ここのようなQ&Aサイトは善意で成り立っています。
 利用できるだけ利用してやる、とういうような態度
 でしたら回答は付かなくなります。
 (MARBIN)

本当に大変申し訳ありませんでした。私も頑張って勉強致します。

今後は気をつけてコメントをさせていただきます。

（ひでぼん）

質問者ではありませんが、横から拝借していただきました。いや～ぁ　すばらし～い！　長い間の悩みが、また一ツ解決しました。　ありがとうございました。今後も横から拝借しますのでお願いします。
現役６１歳です。

コメント返信：

[ 一覧(最新更新順) ]

[[20061007225308]] 『クリックするだけで○[マル]・文字を出す方法』（ひでぼん） ページの最後に飛ぶ

[[20061007225308]]　『クリックするだけで○[マル]・文字を出す方法』（ひでぼん）　ページの最後に飛ぶ