[[20210322112312]]　『チェックボックスのコピー』（エクセル初心者）　ページの最後に飛ぶ

『チェックボックスのコピー』（エクセル初心者）

A列に日付
B列に商品名
C列に数量
D列に納品確認用チェックボックスを作り、チェックが入るとセルの色を変えたいです。

これを300くらい作りたいのですが、オートフィルをすると全部連動してしまい困っています。

良い方法を教えてください。

すみませんがエクセル初心者ですので詳しく教えていただけると助かります。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 何を期待しているのか解りませんが、
 結局その手の物は、いちいち参照先を手作業で変えるしかないのでは。
（あ保坂） 2021/03/22(月) 12:23

チェックボックスにはフォームコントロールとActiveXコントロールの2種類ありますが、フォームコントロールの方ですよね。（オートフィールで増やせるので）

Application.Calle でクリックしたコントロール名を取得できますのでそれを利用すればいいでしょう。
（hatena） 2021/03/22(月) 12:33

 >Application.Calle

 Application.Caller
（通りすがり） 2021/03/22(月) 12:35

あっ、間違えてた(;^_^A
ご指摘ありがとうございます。

具体的に何をしているのかわからないですが、例えば、チェックボックスのある右隣のセルの背景色を変えたいのなら、

 Sub Macro1()
   With ActiveSheet.CheckBoxes(Application.Caller)
      If .Value = xlOn Then
          .TopLeftCell.Offset(, 1).Interior.Color = vbRed
      Else
          .TopLeftCell.Offset(, 1).Interior.ColorIndex = xlNone
      End If
   End With
 End Sub

（hatena） 2021/03/22(月) 12:47

 個人的には、チェックボックスにこだわらず、
 特定の列に、何か入力があれば（つまり、<>""）色がつくような
 条件付き書式を作ったほうが、簡便だとは思います。

 ミスリードする懸念がありますが、マクロを使う例を上げてみます。
 フォームコントロールのチェックボックスの前提で、5個だけ作成する場合です。
 OKであれば、5を300にしてください。
 チェックボックス等を置く場所もA列の決め打ちです。

 Sub test()
     Dim chk As CheckBox
     Dim r As Range
     Dim k As Long
     For k = 1 To 5
         Set r = Cells(k, 1)
         Set chk = ActiveSheet.CheckBoxes.Add(r.Left, r.Top, 60, 15)
         With chk
             .Caption = "check" & Format(k, "000") '
             .Value = xlOff
             .LinkedCell = r.Offset(, 2).Address
         End With
     Next
 End Sub

 どこのセルの色か不明ですが、その部分については、
 「リンクするセル」を設定して、それがTrueかFalseに応じて色を付ける
 「条件付き書式」を設定するとよいと思います。

 # ぼやぼやしてたら、事態は進行していました。
（γ） 2021/03/22(月) 12:56

https://www.google.com/amp/s/office-hack.com/excel/checkbox-copy/amp/
やりたいことはこんなことですか？
あとは連動させたセルを条件にして条件つき書式でも
（めざめるパワー） 2021/03/22(月) 12:59

ありがとうございました。
（エクセル初心者） 2021/03/24(水) 10:17

結局どのようにされたのか書いてもらうと、
閲覧している人の参考になると思いますよ。
（γ） 2021/03/24(水) 10:46

https://www.google.com/amp/s/office-hack.com/excel/checkbox-copy/amp/

こちらで解決しました。
（エクセル初心者） 2021/03/25(木) 10:13

コメント返信：

[ 一覧(最新更新順) ]

[[20210322112312]] 『チェックボックスのコピー』（エクセル初心者） ページの最後に飛ぶ

[[20210322112312]]　『チェックボックスのコピー』（エクセル初心者）　ページの最後に飛ぶ