Excel VBA質問箱 IV

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

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


18913 / 76738 ←次へ | 前へ→

【63263】IF Then構文において、条件満たした場合に2つの同じようなことを実行させる表記法
質問  ひろのり  - 09/10/21(水) 2:39 -

引用なし
パスワード
   はじめまして、
「ひろのり」と申します。

初めてこのコミュニティーに参加させて頂きます。
なにぶん初心者なもので、最初は質問ばかり(しかも初歩的な)する側で、皆様のお役にはなかなか立てず申し訳ございませんが、どうぞ宜しく御願いたします。

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

どうぞ、よろしくお願いいたします。

0 hits

【63263】IF Then構文において、条件満たした場合に2つの同じようなことを実行させ... ひろのり 09/10/21(水) 2:39 質問
【63264】Re:IF Then構文において、条件満たした場合... かみちゃん 09/10/21(水) 5:17 発言
【63266】Re:IF Then構文において、条件満たした場合... Abebobo 09/10/21(水) 10:08 発言
【63275】Re:IF Then構文において、条件満たした場合... ひろのり 09/10/22(木) 2:35 質問
【63274】Re:IF Then構文において、条件満たした場合... ひろのり 09/10/22(木) 2:31 お礼

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