Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40528 / 76737

←次へ　｜　前へ→


	【41307】Sheet1の特定セルの値の変更

初心者 - 06/8/4(金) 13:08 -


	引用なし

	パスワード

あるフォルダに数個の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

0 hits

▼

【41307】Sheet1の特定セルの値の変更 初心者 06/8/4(金) 13:08

≪