|
はじめまして、
「ひろのり」と申します。
初めてこのコミュニティーに参加させて頂きます。
なにぶん初心者なもので、最初は質問ばかり(しかも初歩的な)する側で、皆様のお役にはなかなか立てず申し訳ございませんが、どうぞ宜しく御願いたします。
IF以下の条件がTrueだった場合に、セル(あ)の値をセル(い)へコピーし、また同時に、セル(う)の値をセル(え)にコピーするようにしたいと考えています。
その場合、わたしが書きますと下記のように、ifから始まるまったく同じようなコマンドを書いてしまいます。(動作的には問題なくうごきました)
ただ、IFから『True Then』までは全く同じ文章なので、2回かくことなく、すっきりさせる表記をご教示頂ければと思います。
Range("B4").Select
If ActiveCell.Value = True Then Worksheets("sheet2").Range("B3").Value = ActiveCell.Range("C4").Value
If ActiveCell.Value = True Then Worksheets("sheet2").Range("D6").Value = ActiveCell.Range("E4").Value
ActiveCell.Offset(1).Select
End sub
どうぞ、よろしくお願いいたします。
|
|