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")ある部分に色を付けて印刷する。
このような構文を組みたいのですが・・・
どうすればよろしいのでしょうか？

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

2 hits

▼

【26428】If関数で ちい 05/7/5(火) 13:30