[[20060513165513]] 『左クリックするだけで 1 が入力できる方法を教』(キティー) >>BOT

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

 

『左クリックするだけで 1 が入力できる方法を教えて下さい』(キティー)

 [御参考]
[[20040818141911]] 『クリックするだけでチェクマーク』(hiro)
 ↑ここのリンク先にもいろいろな人がコードを書いますよ^^
 (dack)

 シートタブを右クリック-コードの表示へコピペ
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Value = 1
 End Sub

  (kohe)

 ごめんなさい
 右クリック、ダブルクリックでも入力しちゃいますね^^;;
 (kohe)

 再挑戦
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Target.Value = ""
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Count <> 1 Then Exit Sub
  Target.Value = ""
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count <> 1 Then Exit Sub
   Target.Value = 1
End Sub

コメント返信:

[ 一覧(最新更新順) ]


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