|
すみません、質問させてください。
複数のコントロールチェックボックスの値(on,off)を、指定したセルに表示させたいです。
この動作を複数のファイルを対象に行いたい場合、どういったマクロになるでしょうか。
Sub Macro1()
Dim ファイル名 As Variant
Dim ブック As Workbook
Dim i As Integer
ファイル名 = Application.GetOpenFilename("エクセルファイル,*.xls", MultiSelect:=True)
If VarType(ファイル名) = vbBoolean Then Exit Sub
Application.EnableEvents = False
For i = 1 To UBound(ファイル名)
Set ブック = Workbooks.Open(ファイル名(i))
With ThisWorkbook.Worksheets(1)
ActiveSheet.Shapes("Check Box 29").Select
With Selection
.Value = xlOff
.LinkedCell = "D24"
.Display3DShading = False
End With
・
・
End With
ブック.Save
ブック.Close
Next
Application.EnableEvents = True
End Sub
としたら、(当たり前ですが)すべて同じ値になってしまったので、
どうしたらonの場合はTrue、ofの場合はFalesと出来るのでしょうか?
ご教授よろしくお願いします。
|
|