[[20040820151232]]　『チェックボックス』（T_T) 　ページの最後に飛ぶ

『チェックボックス』（T_T)

　B１にチェックボックスをいれてあります。そしてこのチェックボックスのリンク先は$C$1になっています。そしてA1に「=IF(C1,"出席","欠席")」となっています。
　B1にチェックをいれるとA1に出席となるようにしてみたのです。二列目以降もこのようにしたいのですがどのようにしたらよいのでしょうか？一列一列入力しなければならいんですかね（T_T)

 何個くらい配置するのでしょうか？

 >一列一列
 行でなく列方向ですか？

  (INA)

 一行一行です。間違えました。
100個以上です。

　（T_T)

 ファイルサイズが大きくなるし面倒なので、マクロを使っては如何でしょうか？

 Ｂ列をダブルクリックすると動作します。

 １．ALT+F11キーで、VBEを起動
 ２．プロジェクトウィンドウのSheet1 を ダブルクリック
 ３．中央の真っ白なウィンドウ（コードウィンドウ）に以下のコードをコピペ

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 2 Then Exit Sub

    Cancel = True

    If Target.Value = "ﾚ" Then
        Target.Value = ""
        Target.Offset(0, -1).Value = "欠席"
    Else
        Target.Value = "ﾚ"
        Target.Offset(0, -1).Value = "出席"
    End If

 End Sub

   (INA)

 出来ました～(^0^)
INAさんありがとうございます。

　(T_T)

 再びすみませんが、B列以外でチェックするにはどのようにしたらよいのでしょうか
？
　(T_T)

 >  If Target.Column <> 2 Then Exit Sub
 ここの 2 が B列を表してます。
 B列以外は Exit Sub でマクロ終了となっています。

 もしＣ列が良ければ 3 にして下さい。

  (INA)

　なるほど。度々ありがとうございます。

 (T_T)

 "欠席" などの表示列は、Offset(0, -1)　で指定してます。

 -1 は、チェックしたセルの左の列ということです。

  (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20040820151232]] 『チェックボックス』（T_T) ページの最後に飛ぶ

[[20040820151232]]　『チェックボックス』（T_T) 　ページの最後に飛ぶ