□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 条件をつけたしたい | |
|---|---|
[196076] 条件をつけたしたい- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ うちだ -(2024/01/05(10:33)) □U R L/ 下記のコードは一部分です。
テキストボックスに3.2tがあるならM列の色を赤にするものですが、これに条件を追加したいのです。
コンボボックス1に、"㈱ あいう製作所"と表示されているときという条件です。
コードは組めないので教えていただきたいです。
よろしくお願いします。
If TextBox4.Value Like "*3.2t*" Then
Cells(X, "M").Interior.Color = RGB(255, 0, 0)
End Ifこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196077] Re[1]: 条件をつけたしたい- ■記事引用/メール受信=OFF■ □投稿者/ 匿名 -(2024/01/05(11:32)) □U R L/ ＞コードは組めないので教えていただきたいです。 自分でコードを書くつもりがないなら有料で頼むことをお勧めします。 自分でコードが書けるようになりたい場合は、 ＞If TextBox4.Value Like "*3.2t*" Then このコードがどの様な指示をExcelに対してしているのかを理解する事です。 「VBA TextBox4.Value Like」 「VBA If」 を調べてみて下さい。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196079] Re[2]: 条件をつけたしたい- ■記事引用/メール受信=OFF■ □投稿者/ うちだ -(2024/01/05(13:46)) □U R L/ ある程度の意味は分からないとトラブルのもとなので、調べてわかっているのですが、付け足しパターンとなるとガラッと変わると思うのです。 単純に下記のコードを書き足すだけではないと思うのですがどうでしょうか？ If ComboBox1.Value Like "㈱ あいう製作所" Then この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196080] Re[3]: 条件をつけたしたい- ■記事引用/メール受信=OFF■ □投稿者/ 匿名 -(2024/01/05(14:15)) □U R L/ ＞If ComboBox1.Value Like "㈱ あいう製作所" Then あいまい検索であれば、 「If ComboBox1.Value Like "*㈱ あいう製作所*" Then」 です。 アスタリスク(*)は、ワイルドカードと言います。 詳しくは、「VBA ワイルドカード」などで調べてみて下さい。 ＞If TextBox4.Value Like "*3.2t*" Then でも、左と右にアスタリスクが入っていますよね。 あいまい検索でなければ、 「If ComboBox1.Value = "㈱ あいう製作所" Then」 です。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196082] Re[4]: 条件をつけたしたい- ■記事引用/メール受信=OFF■ □投稿者/ うちだ -(2024/01/05(16:36)) □U R L/ *の使い方は分かっていたのですが、あいまい検索でなかったのでつけていませんでした。
下記のようなコードでできるかなと思い実行すればできました。
正しい書き方ではないような気がします。
流れとしては理解しやすいのでこれで行こうと思いますが、正しい書き方も教えていただきたいです。
If TextBox4.Value Like "*3.2t*" Then
If ComboBox1.Value Like "㈱ あいう製作所" Then
Cells(X, "M").Interior.Color = RGB(255, 0, 0)
End If
End If
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196083] Re[5]: 条件をつけたしたい- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2024/01/05(17:37)) □U R L/ 横から失礼します。 スレッドの流れはよく見てませんが参考になると思います。 ht tps://akira55.com/andornot/ | |
[196084] Re[6]: 条件をつけたしたい- ■  / 記事引用/メール受信=OFF■
□投稿者/ うちだ -(2024/01/09(09:39)) □U R L/ ANDで付け足すだけなんですね。 綺麗にすることができました。 ありがとうございます。 | |