Excel VBA質問箱 IV

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

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


55079 / 76732 ←次へ | 前へ→

【26433】Re:If関数で
回答  小僧  - 05/7/5(火) 14:40 -

引用なし
パスワード
   ▼ちい さん、Jaka さん:
こんにちは。

>    If Cells(13, 2).Value = "3" Then
>      ElseIf Cells(6, 5).Value = "1" Then
>      Sheets("C").Select
>      Range("C3:C4").Select
>      Selection.Interior.ColorIndex = 4
>      ElseIf Cells(7, 5).Value = "2" Then
>      Sheets("C").Select
>      Range("D3:D4").Select
>      Selection.Interior.ColorIndex = 4
>      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
>    End If         

    If Cells(13, 2).Value = 3 And Cells(6, 5).Value = 1 Then
      Worksheets("C").Range("C3:C4").Interior.ColorIndex = 4
    End If
    
    If Cells(7, 5).Value = 2 Then
      Worksheets("C").Range("D3:D4").Interior.ColorIndex = 4
    End If

こんな感じでしょうか。
1つ気になったのが If 文以下の処理に変数:Counter を使った式が
出てこないのですが、この部分は「For 〜 Next」の間に挟む必要があるのでしょうか?
0 hits

【26428】If関数で ちい 05/7/5(火) 13:30 質問
【26429】Re:If関数で Jaka 05/7/5(火) 13:36 発言
【26431】Re:If関数で ちい 05/7/5(火) 14:05 質問
【26433】Re:If関数で 小僧 05/7/5(火) 14:40 回答
【26434】Re:If関数で ちい 05/7/5(火) 15:07 質問
【26436】Re:If関数で 小僧 05/7/5(火) 15:33 回答
【26437】Re:If関数で Jaka 05/7/5(火) 15:39 発言
【26470】Re:If関数で ちい 05/7/6(水) 11:38 質問
【26473】Re:If関数で Jaka 05/7/6(水) 12:55 回答
【26479】Re:If関数で ちい 05/7/6(水) 17:13 お礼
【26480】Re:If関数で Jaka 05/7/6(水) 17:24 発言
【26482】Re:If関数で ちい 05/7/6(水) 19:09 お礼
【26469】Re:If関数で ちい 05/7/6(水) 11:30 質問

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