戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
セルの値で表記を変える

    [194927] セルの値で表記を変える-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/05/25(13:13))
    □U R L/

      A1セルの値が「あ」であったら、B1のセルの値を「りんご」と黒色で表示させ、
      A1セルの値が「い」であったら、B1のセルの値を「(傷)りんご」(傷)のみ赤色でリンゴは黒色表示させような事を行いたいです。

      関数又は条件付き書式等でできませんか。

      宜しくご指導お願い致します。

      win10 office2016




    [194928] Re[1]: セルの値で表記を変える-

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

    □投稿者/ 半平太 -(2022/05/25(14:55))
    □U R L/
      とりあえず、こんなのでトライしてください。
      
      Sub Macro1()
          With Range("B1")
          
              Select Case .Offset(, -1).Value 'A1セルの値を調べる
                  Case "あ"
                      .Value = "りんご"
                      .Font.ColorIndex = xlAutomatic
                  Case "い"
                      .Value = "(傷)りんご"
                      .Font.ColorIndex = xlAutomatic
                      .Characters(Start:=1, Length:=3).Font.Color = RGB(255, 0, 0)
                  Case Else
                      .Value = Empty
              End Select
          End With
      End Sub


      この記事にはVBAのコードが含まれています。

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




    [194929] Re[2]: セルの値で表記を変える-

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

    □投稿者/ ちわわ -(2022/05/25(17:18))
    □U R L/

      半平太様

      ありがとうございます。

      ちょっと変更させてください。
      M1セルの値が「あ」であったら、A1のセルの値を「りんご」と黒色で表示させ、
      M1セルの値が「い」であったら、A1のセルの値を「(傷)りんご」(傷)のみ赤色でリンゴは黒色表示させような事を行いたいです。

      後、データーが入力(データー規則のリストを使い)されたら、マクロが自動で実行ってできませんか?

      すみませんが、宜しくお願い致します。




    [194930] Re[3]: セルの値で表記を変える-

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

    □投稿者/ 半平太 -(2022/05/25(19:51))
    □U R L/
      >データーが入力(データー規則のリストを使い)されたら、
      >マクロが自動で実行ってできませんか?
      
      当該シートの「シートモジュール」に以下のコードを貼付ける
      ※重要:「標準モジュール」ではない。
      
      Private Sub Worksheet_Change(ByVal Target As Range)
          If Target.Address(0, 0) = "M1" Then
      
              Application.EnableEvents = False
      
              With Range("A1") '隣のセル
                  Select Case Target.Value
                      Case "あ"
                          .Value = "りんご"
                          .Font.ColorIndex = xlAutomatic
                      Case "い"
                          .Value = "(傷)りんご"
                          .Font.ColorIndex = xlAutomatic
                          .Characters(Start:=1, Length:=3).Font.Color = RGB(255, 0, 0)
                      Case Else
                          .Value = Empty
                  End Select
              End With
      
              Application.EnableEvents = True
          End If
      End Sub


      この記事にはVBAのコードが含まれています。

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




    [194932] Re[4]: セルの値で表記を変える-

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

    □投稿者/ ちわわ -(2022/05/26(09:01))
    □U R L/

      半平太様

      ありがとうございました。

      助かりました。




このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

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


- Child Forum -
Edit:ゆう-G