□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ～ん。誰か～！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[6]: 条件をつけたしたい

    [196084] Re[6]: 条件をつけたしたい-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ うちだ -(2024/01/09(09:39))
    □U R L/

      ANDで付け足すだけなんですね。
      綺麗にすることができました。
      ありがとうございます。



    [196083] Re[5]: 条件をつけたしたい-

    ■記事引用/メール受信=OFF■

    □投稿者/ MK -(2024/01/05(17:37))
    □U R L/

      横から失礼します。

      スレッドの流れはよく見てませんが参考になると思います。

      ht　tps://akira55.com/andornot/



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [196079] Re[2]: 条件をつけたしたい-

    ■記事引用/メール受信=OFF■

    □投稿者/ うちだ -(2024/01/05(13:46))
    □U R L/ 
      ある程度の意味は分からないとトラブルのもとなので、調べてわかっているのですが、付け足しパターンとなるとガラッと変わると思うのです。
単純に下記のコードを書き足すだけではないと思うのですがどうでしょうか？

If ComboBox1.Value Like "㈱ あいう製作所" Then


      この記事には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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ