◎ワンクリックで○印をセル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