Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
647 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79190】If トキノハジメ 17/6/11(日) 11:32 質問[未読]
【79191】Re:If カエムワセト 17/6/11(日) 13:57 発言[未読]
【79192】Re:If トキノハジメ 17/6/11(日) 16:05 質問[未読]
【79193】Re:If マナ 17/6/11(日) 17:04 発言[未読]
【79197】Re:If トキノハジメ 17/6/11(日) 21:36 質問[未読]
【79208】Re:If マナ 17/6/14(水) 21:11 発言[未読]
【79194】Re:If カエムワセト 17/6/11(日) 17:11 発言[未読]
【79198】Re:If トキノハジメ 17/6/11(日) 21:41 質問[未読]
【79205】Re:If トキノハジメ 17/6/13(火) 19:05 質問[未読]
【79206】Re:If カエムワセト 17/6/13(火) 19:22 発言[未読]
【79207】Re:If トキノハジメ 17/6/13(火) 22:12 質問[未読]
【79271】Re:If トキノハジメ 17/6/24(土) 16:00 お礼[未読]
【79272】Re:If マナ 17/6/24(土) 16:39 発言[未読]
【79190】If
質問  トキノハジメ  - 17/6/11(日) 11:32 -
引用なし
パスワード
   少し教えてください。

　　D
37　坂
38　53
39　24.5
40　12.3
41　36.8

上記の表にて次のようなコードを組んだのですが上手く動かないので教えてくださ
い・宜しくおねがいいたします。

'With Range("D37:D41")
　　　　If Range("D37").Value = ("栗C") And Range("D38").Value <= 51 Or Range("D41").Value <= 51 Then
　　　　　　Range("D38") = .Interior.ColorIndex = 43
　　　　　　Range("D41") = .Interior.ColorIndex = 43
　　　　ElseIf Range("D44").Value = ("美坂") And Range("D45").Value <= 55 Or Range("D48").Value <= 39 Then
　　　　　　Range("D38") = .Interior.ColorIndex = 43
　　　　　　Range("D41") = .Interior.ColorIndex = 43
　　　　End If
　　'End With
【79191】Re:If
発言  カエムワセト  - 17/6/11(日) 13:57 -
引用なし
パスワード
   日本語で、どういう作業をを行おうとしているのかを説明していただけますか？

>上手く動かないので教えてください

コードだけを示されても、「コードの通りにしか動きません」としか回答できません。
どういう結果を期待していて、実際どのような結果が得られてるのかを説明願います。
【79192】Re:If
質問  トキノハジメ  - 17/6/11(日) 16:05 -
引用なし
パスワード
   ▼カエムワセト さん：

有難う御座います。説明が不十分で申し訳ありません。

やりたいことは、もし　D37　が坂であれば D38　が　51　より小さければ　D38 の背景色を薄緑色、もしくは、D41　が　51　より小さければ゛、D41　の背景色を薄緑色にしたいのですが、もし条件が合わなければ背景色は白のままでよい。
以上の様に考えているのですが。　宜しくお願い致します。
【79193】Re:If
発言  マナ  - 17/6/11(日) 17:04 -
引用なし
パスワード
   ▼トキノハジメ さん：

D37が"坂"でなく、
"栗C"の場合はどうしたいのですか
"美坂"の場合はどうしたいのですか

D39とD40は関係なしですか

マクロ実行前は、D38とD41の背景色はなし状態ですか

いつも5セル固定ですか。

D37と同じことを、D44でもするのすか
【79194】Re:If
発言  カエムワセト  - 17/6/11(日) 17:11 -
引用なし
パスワード
   これくらいでしたら、無理にAND ORを組み合わせなくてもいいと思います。

If Range("D37") = "坂" Then
　　If Range("D38").Value < 51 Then
　　　 Range("D38").Interior.ColorIndex = 43
　　ElseIf Range("D41").Value < 51 Then
　　　 Range("D41").Interior.ColorIndex = 43
　　End If
End If

説明と、元のコードが全く繋がりませんので、元のコードは無視しています。
元のコードはセルの値が「栗C」「美坂」で判定してますが、説明にはこの二語が全く出てきてませんでしたので。

また、まだご説明はいろいろな取り方が出来る状態です。
こうとも取れます。

If Range("D37") = "坂" Then
　　If Range("D38").Value < 51 Then Range("D38").Interior.ColorIndex = 43
Else
　　If Range("D41").Value < 51 Then Range("D41").Interior.ColorIndex = 43
End If

もちろん、AND ORを組み合わせることも出来ると思います。

また、他のパソコンでも使う可能性があるのでしたら、ColorIndexではなく、RGBを使った方がいいかもしれません。
【79197】Re:If
質問  トキノハジメ  - 17/6/11(日) 21:36 -
引用なし
パスワード
   ▼マナ さん：

有難う御座います。質問がまづくてすみません。

まず　D37　から　E37・F37……W37　まで、栗C、美坂等　４種類でてきます。

D38　に対象数字、D41 にも対象数字(この数字は単に　D39 と D40 たしたもので
す。)　背景色をつける数字の条件は当然それぞれ変わります。

D44　は関係が有りません。５セルはいつも固定です。

宜しくお願い致します。


　
【79198】Re:If
質問  トキノハジメ  - 17/6/11(日) 21:41 -
引用なし
パスワード
   ▼カエムワセト さん：

有難う御座います。

これからコードを　プログラムに組み込んでみます。

また宜しくおねがいいたします。
【79205】Re:If
質問  トキノハジメ  - 17/6/13(火) 19:05 -
引用なし
パスワード
   ▼カエムワセト さん：
有り難うございました。一つのセルに対するコードは良く解りまいた。
　　 A　　　　B　　　 C　　　D　　 E　　 F
1　　栗坂　　美坂　　栗C　　 美W
2　　51.7 　　53.3　　 84.8　　 84.3
5　　37.3　　 37.6　　 50.2　　 50.5

上記の様に　A1 B1 C1 D1　等　4種類がランダムに出てきます。これが　２０程続いてます。これ等をしょりするのは如何すれば良いのか教えて下さい。
宜しくお願い致します。
【79206】Re:If
発言  カエムワセト  - 17/6/13(火) 19:22 -
引用なし
パスワード
   セルを変数に格納してループで処理すればいいのでは？
【79207】Re:If
質問  トキノハジメ  - 17/6/13(火) 22:12 -
引用なし
パスワード
   ▼カエムワセト さん：
>セルを変数に格納してループで処理すればいいのでは？

返信ありがとうございます。少し躯体的に教えててただけないでしょうか。

御無理なお願いで申し訳ございません。ひとつ、宜しくお願いいたします。
【79208】Re:If
発言  マナ  - 17/6/14(水) 21:11 -
引用なし
パスワード
   ▼トキノハジメ さん：

条件付き書式を使うのが簡単ですね。
条件は４種類です。
【79271】Re:If
お礼  トキノハジメ  - 17/6/24(土) 16:00 -
引用なし
パスワード
   ▼みなさん有り難うございました。

回答が付かないので閉じさせていただきます。

また宜しくお願い致します。
【79272】Re:If
発言  マナ  - 17/6/24(土) 16:39 -
引用なし
パスワード
   ▼トキノハジメ さん：

>回答が付かないので閉じさせていただきます。

条件付き書式ではだめでしたか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
647 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free