エクセル レ点の集計について

質問

ご存じの方、よろしくお願いします。

エクセルで、表を作っています（シートは50あります）フォームからレ点のボックスをつくりました。表を作り終えたあと、レ点を集計できる事を知り、今、シート1つ1つ、コントロールの書式設定→コントロール画面→リンクするセルで入力しています。とても面倒でなりません。一括してコピーする事はできないもんでしょうか？

回答No.3

Wendy02 · ベストアンサー

こんぱんは・

このようにすればよいと思います。
リンクするセルの内容は、チェックボックスの右となり３つ目[Offset(, 3)　] になります。以下は、フォームツールに限ります。

'標準モジュール

Sub SetLinkedcell()
Dim chk As Object
For Each chk In ActiveSheet.CheckBoxes
　　chk.LinkedCell = chk.TopLeftCell.Offset(, 3).Address(0, 0)
Next
End Sub

回答No.2

mitarashi

ワークシート上の、「フォームのコントロール」のチェック有無なら、下記コードで取得できると思います。（XL2007では駄目かもしれません）
Sub test()
Dim sh As Worksheet
Dim shp As Shape
For Each sh In ActiveWorkbook.Worksheets
For Each shp In sh.Shapes
If InStr(1, shp.Name, "Check") > 0 Then
Debug.Print sh.Name, shp.Name, shp.AlternativeText, sh.CheckBoxes(shp.Name).Value
End If
Next shp
Next sh
End Sub

回答No.1

xls88

その操作を「新しいマクロの記録」すれば参考になるコードが得られます。
チェックボックスをループして、リンクセルをセットすれば良いと思います。