エクセルでのVBA IFを使って記述したい

質問

エクセルで
ブック名：「魚」
シート名：「秋刀魚」「鯖」「平目」
というファイルがあります。

シート名「秋刀魚」がアクティブの時のみ
セルＡ１に「激安」と入力をしたいのですが、どのようにＶＢＡを記述すればよいのでしょうか。

私なりにインターネットで調べたのですがわかりませんでした。
丸投げのようで申し訳ありませんが、よろしくお願いいたします。

回答No.2

Trick--o-- · ベストアンサー

If構文

If 条件１ Then
　　処理１
ElseIf 条件２ Then
　　処理２
Else
　　処理X
End If

アクティブになっているシート名を取得
ActiveSheet.Name

アクティブシートのセルA1に値を入力
Range("A1").Value = 値
または
Cells(1,1).Value = 値
または
Cells(1,"A").Value = 値

シートを指定してセルA1に値を入力
WorkSheets(シート名).Range以下略
または
WorkSheets(シート名).Cells以下略

お礼

If Then Else
の記述方法、探してました。

ありがとうございました。

回答No.1

fujillin

一例です。

If ActiveSheet.Name = "秋刀魚" Then Range("A1").Value = "激安"

お礼

できました！！
１行でやってのけるとはスゴイですね（＾。＾）
ありがとうございました。