|
あるフォルダに数個のbookがある場合に全てのbookのSheet1のA1の
値をA1 + "B"としたいのですが、現在全てのSheetのA1が変更されてしまいます
ソースは下記の物ですが、Sheet1のみ変更は可能でしょうか?
又、変更されたのを確認するのにセル色を赤にしたいのですが・・・
Sub test()
Dim Filenm As String
Dim Target As Worksheet
Filenm = Dir(ThisWorkbook.Path & "\*.xls")
Do Until Filenm = ""
If Filenm <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & Filenm
For Each Target In ActiveWorkbook.Worksheets
With Target
If .Range("A1").Value = "" Then
.Range("A1").Value = "A"
Else
'.Range("A1").Value = .Range("A1").Value & "B"
End If
End With
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Filenm = Dir()
Loop
MsgBox "終了"
End Sub
|
|