| |
はじめまして、
「ひろのり」と申します。
初めてこのコミュニティーに参加させて頂きます。
なにぶん初心者なもので、最初は質問ばかり（しかも初歩的な）する側で、皆様のお役にはなかなか立てず申し訳ございませんが、どうぞ宜しく御願いたします。
ＩＦ以下の条件がＴｒｕｅだった場合に、セル（あ）の値をセル（い）へコピーし、また同時に、セル（う）の値をセル（え）にコピーするようにしたいと考えています。
その場合、わたしが書きますと下記のように、ifから始まるまったく同じようなコマンドを書いてしまいます。（動作的には問題なくうごきました）
ただ、IFから『True Then』までは全く同じ文章なので、２回かくことなく、すっきりさせる表記をご教示頂ければと思います。
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
どうぞ、よろしくお願いいたします。
|
|
ひろのり
- 09/10/21(水) 2:39 -
