Excel VBA質問箱 IV

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

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


40522 / 76732 ←次へ | 前へ→

【41308】Re:Sheet1の特定セルの値の変更
回答  Blue  - 06/8/4(金) 13:14 -

引用なし
パスワード
   >      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
ここでBook中のすべてのシートをループして、A1を変更するような処理になっています。

名前がSheet1であるならば、

>      For Each Target In ActiveWorkbook.Worksheets
>      Next
を消して

Set Target = ActiveWorkbook.Worksheets("Sheet1")

にする。


一番左のシートならば、

>      For Each Target In ActiveWorkbook.Worksheets
>      Next
を消して

Set Target = ActiveWorkbook.Worksheets(1)

にするか、

>      Next
の上の行に、

Exit For

とでも付け足して記述しておけばよさそう。

1 hits

【41307】Sheet1の特定セルの値の変更 初心者 06/8/4(金) 13:08 質問
【41308】Re:Sheet1の特定セルの値の変更 Blue 06/8/4(金) 13:14 回答
【41309】Re:Sheet1の特定セルの値の変更 初心者 06/8/4(金) 13:20 お礼

40522 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free