エクセルでクリックひとつでチェックをいれたいのですが

チェックマークをマウスクリックでいれたいのですがどうすればいいのでしょうか
別に○とかでもいいのですが
いちいち変換していれるがめんどうなもので・・・

例
月　火　水　木
○　　　○
　　○

No.5 ベストアンサー 回答者： at121 回答日時： 2005/04/10 09:31

#3 補足分

「月で試して・・Like "[４月・・３月]" Then Exit Sub

の　Like　の　[　]　の使い方が難しいようです。
この行は　選択セルの列の○入力をするか見出しに応じて動的に判定するだけなので
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "*月" Then Exit Sub
　　　列の見出しが　X月、XX月、でなければ中止（注意：ほかの列の見出しにXXXXX月があると誤動作・・）
でも
列が固定なら
If Target.Column>5 or 12< Target.Column Then Exit Sub
でもよいでしょう。

この回答へのお礼

ありがとうございました。VBA言語素人なもので、
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "*月" Then Exit Sub
のやり方でします。助かりました。

お礼日時：2005/04/12 13:41

No.6 回答者： sakusaku_panda 回答日時： 2005/04/11 21:43

#4の補足です。

セル連動のTRUE、FALSEを数えるには
COUNTIF関数を使います。

=COUNTIF(選択範囲,TRUE)みたいな感じで選択範囲内のTRUE（チェックした数）の合計を得ることができます。
TRUEの変わりにFALSEにすればチェックしていない数です。

この回答へのお礼

有難うございました。関数はほとんどSumとIfしか使わないもので、色々あるみたいですね

お礼日時：2005/04/12 13:22

No.4 回答者： sakusaku_panda 回答日時： 2005/04/05 22:33

すこし別のアプローチで。

。。
まとめて○を入力したいのであれば、入力予定のセルをctrlキーを押しながら選択してから「○」を入力してctrlキーを押しながらEnterキーを押すとまとめて入力されます。
参考URL：http://www.microsoft.com/japan/users/tips/Excel/ …

あと、仕掛けをつくるのが面倒ですが、Excelのフォーム（VBA用ではない方）に、チェックボックスというそのものズバリなオブジェクトがありますのでコレだったらマウスでチェックつけられます。（セル連動で集計も可能！）

覚えておくと、いつか役に立つかも。。。

この回答への補足

フォームのチェック使ってみました。
セル連動ということで少し使いづらいですが。
　こちらの方法でチェックマーク付けたところのみ、集計結果をだせればいいのですが、例えば関数は何を使えばよろしいでしょうか。セル連動にしますとTRUEもしくはFALSEとなってしまう為COUNTA関数は使えませんよね。お願いします。

補足日時：2005/04/06 22:24

No.3 回答者： at121 回答日時： 2005/04/05 15:22

マクロ　動作

曜日の見出しの行（　例では　2行目）が
日月火水木金土　の列のセルを選択すると　○⇔""空白　反転


ツール　マクロ　VBエディタ
　（表示＞プロジェクトエクスプローラ）　
　入力する　Worksheetの　モジュール表示にして

↓貼り付け↓
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
見出しの行 = 2 '曜日の見出しの行
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "[日月火水木金土]" Then Exit Sub
If Target.Row <= 見出しの行 Then Exit Sub

Application.EnableEvents = False
For Each セル In Target
If Trim(セル.Value) = "" Then
セル.Value = "○"
Else
セル.Value = ""
End If
Next
Cells(2, Target.Column).Select
Application.EnableEvents = True

End Sub

この回答への補足

今、月で試しているのですが
If Not Trim(Cells(見出しの行, Target.Column).Value) Like "[４月５月６月７月８月９月１０月１１月１２月１月２月３月]" Then Exit Sub
でやるとうまくいきません。[]の中を4567891011121123とすれば10と11と12のところがうまく認識してくれません。教授願えませんでしょうか。

補足日時：2005/04/05 18:41

この回答へのお礼

返答有難うございます。
マクロは使ったことなかったのですが、試してみた所このやり方は凄く便利ですね。
覚えておきます。有難うございました。

お礼日時：2005/04/05 18:22

No.2 回答者： noname#176215 回答日時： 2005/04/05 14:29

変換するのが面倒なら 入力するセルの表示形式を

[=1]"○";;;

としておけば「1」と入れた時に「○」が表示されるよう
になります。集計も取りやすいので 便利だと思いますよ。

この回答への補足

返答有難うございます。
[=1]"○";;;をセルに入力するのでしょうか？
試したところうまくいきません・

補足日時：2005/04/05 18:12

No.1 回答者： tokochan22 回答日時： 2005/04/05 14:09

「○」で、コピー＆貼り付け　ではダメなのでしょうか？

すばやくコピー＆貼り付けをするには、

コピー 「Ctrl+C」
貼り付け「Ctrl+V」

を活用します。

この回答へのお礼

返答有難うございます。
一般的なやりかたですね。
このやり方を使っているのですがどうも・・

お礼日時：2005/04/05 18:11