[[20060513165513]]　『左クリックするだけで　１　が入力できる方法を教』（ｷﾃｨｰ）　ページの最後に飛ぶ

『左クリックするだけで　１　が入力できる方法を教えて下さい』（ｷﾃｨｰ）

 [御参考]
[[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

コメント返信：

[ 一覧(最新更新順) ]

[[20060513165513]] 『左クリックするだけで １ が入力できる方法を教』（ｷﾃｨｰ） ページの最後に飛ぶ

[[20060513165513]]　『左クリックするだけで　１　が入力できる方法を教』（ｷﾃｨｰ）　ページの最後に飛ぶ