Excel 2010 VBA Programming & Computer know-how

Ｅｘｃｅｌ 2010 関係

ワンクリックで○×入力

◎ワンクリックで○印をセルB1からB5に
入力します！！

　出勤日予定日に○印を付けたりの応用
ができます。

■　［○］⇒［　］⇒［○］とクリックごとに入力データが切り替わります。
【註】ＶＢＡの記述は、標準モジュールでなく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

　　　　　　　　　　　　　　　　　　　　　　　 ↑頁トップへ

思い出のパソコン画像

パソコンに関するノウハウ備忘録

ワンクリックで○×入力

◎ワンクリックで○印をセルB1からB5に 入力します！！

◎ワンクリックで○印をセルB1からB5に
入力します！！