Excel VBA質問箱 IV

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

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


55081 / 76732 ←次へ | 前へ→

【26431】Re:If関数で
質問  ちい  - 05/7/5(火) 14:05 -

引用なし
パスワード
   ありがとうございます。
修正したところ、Nextのエラーは無くなったのですが、
elseIfがうまく作動してくれません。

構文は

Dim Counter As Integer
  For Counter = 0 To 1
    
    Sheets("A").Select
    Cells(6, 2) = Worksheets("B").Cells(4 + Counter, 1)                         Cells(7, 2) = Worksheets("B").Cells(4 + Counter, 2)                                Cells(8, 2) = Worksheets("B").Cells(4 + Counter, 3)                                                Cells(9, 2) = Worksheets("B").Cells(4 + Counter, 5)                                                Cells(13, 2) = Worksheets("B").Cells(4 + Counter, 6)                                               Cells(6, 5) = Worksheets("B").Cells(4 + Counter, 7)                                                Cells(7, 5) = Worksheets("B").Cells(4 + Counter, 8)     
   
    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         
  Next Counter

というように、

Sheets("A")のCells(13, 2)に3が入力されており
かつSheets("A")のCells(6, 5)に1が入力された場合に
Sheets("C")ある部分に色を付けて印刷する。
またはSheets("A")のCells(6, 5)に2が入力された場合に
Sheets("C")ある部分に色を付けて印刷する。
このような構文を組みたいのですが・・・
どうすればよろしいのでしょうか?

(上記のまたはの部分は両方入力された場合は両方のセルに色をつけたいのです)

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 質問

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