ワンクリックで○入力

  ◎ワンクリックで○印をセルB1からB5に入力します!!
  出勤日予定日に○印を付けたりの応用ができます。


  ■ [○]⇒[ ]⇒[○]とクリックごとに入力データが切り替わります。

  【註】VBAの記述は、標準モジュールでなくSheetをダブルクリックしてWorksheet⇒SelectionChangeに記述します。
  ★ここから⇒Sample[clickcell.zip]ファイルのダウンロードができます。
  (コードのコピー&ペーストもできます!)

備忘録サイトの画面
<Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  <If Target.Count <> 1 Then Exit Sub
  <If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub
  <If Target = "" Then
    <Target = "○"
    <Cells(ActiveCell.Row, 3).Select     '入力後はC列を選択
  <ElseIf Target = "○" Then
    <Target = "×"
    <Cells(ActiveCell.Row, 3).Select
  <ElseIf Target.Value = "×" Then
    <Target.Value = ""
    <Cells(ActiveCell.Row, 3).Select
  <End If
<End Sub

  ■ [○]⇒[×]⇒[ ]⇒[○]とクリックごとに入力データが切り替わります。

備忘録サイトの画面


↑頁トップへ