セルの変化

質問

皆様宜しくお願い致します。
セルをクリックする度に、○→×→／→空欄（セルそのまま）と変化させるような事はできるのでしょうか？
VBA？と言うエキスパートの皆さんが使う裏技があるとの事で…
ご教授頂けたら嬉しいです。宜しくお願い致します。

回答No.3

keithin

そうですか。

＞結合しある

では，
変更前：
Select Case Target

変更後：
Select Case Target.Cells(1).Value

に差し替えてください。

お礼

keithinさん毎回ありがとうございます！
本当にありがとうございます！凄いです！
クリックする度にちゃんと変わります！
実は職場の一般事務が高齢者2人なんです。
キーボード入力もままならない助教で（；^ω^）
クリックだけで○×等の入力が出来ると本当に助かります。
できるだけキーボード入力を省略した書式を作成してあげたいので本当に助かりました！
これからも宜しくお願い致します。

回答No.2

imogasi

VBAもよいが、＞VBA？と言うエキスパートの皆さんが使・・というほどの認識しかないなら、使うのは速い。
イベントという考えの理解が必要。
ーーー
そこで
エクセルには入力規則と言うのがある。
セル範囲に例えばＦ１：Ｆ４に
○
(チェック)
／
空欄
を「入れて
Ａ１：Ａ１０（入力するセル範囲）を指定し（Ａ１だけでもよいが）
データー入力規則ー（種類）リストーＦ１：Ｆ４範囲指定ーＯＫ
でやってみてどうかな。
（２００３までの場合。）
ーー
質問異はエクセルのバージョンを書くのは常識だよ。

お礼

imogasiさんありがとうございます！
入力規則ですか！？さすがエキスパート揃いで嬉しいですo(´∀｀)o
さっそく作成してみました！
リストがたくさんある時にとても便利な裏技ですね！？
エクセルのバージョンって言うのは何種類もあるんですか…
それも知りませんでした…休み明けに出勤したら調べてみます。
ありがとうございました！

回答No.1

keithin

マクロを使ってさくっと仕込みは出来ますが，エクセルではクリックじゃなくて「Ｗクリック」で行います。

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Select Case Target
　Case ""
　　Target = "○"
　Case "○"
　　Target = "×"
　Case "×"
　　Target = "／"
　Case "／"
　　Target.ClearContents
　Case Else
　　Exit Sub
　End Select
　Cancel = True
End Sub

ファイルメニューから終了してエクセルに戻る
てきとーにＷクリックしてみる。

＃○×／空白以外のセルをＷクリックしても作用しないように仕込んであります
＃ふつーセルをＷクリックするとセルの編集に入りますが，所定に変化させたセルではそうならないように仕込んであります

お礼

keithinさんいつもありがとうございます！
実は対象のセルは何個か結合しあるタイプなんです。
それが原因だと思うのですが《実行時エラー'13' 型が一致しません》
となってしまいました…(つд⊂)エーン
新規ファイルで試したところちゃんと動作しました！
スゴイですねコレ！？とても便利です！
新しいファイルを作成するときには活用させて頂きます(^O^)