戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
vba 今月のシートの見出しに色付け

    [189480] vba 今月のシートの見出しに色付け-

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

    □投稿者/ 辻 貞雄 -(2019/06/10(08:36))
    □U R L/
      OSはWin10 エクセルは2016 です。
      
      シートはいろいろありますが、現在、下記のvbaの構文を使用しています。
      
      例えば
      今月は六月ですがシート名の「1〜12」がある内、
      下記の構文にてシート名「6」には赤が色づけが可能です
      
      ただシート「1〜12」以外のシートに色付けが不可能です。
      
      シート「1〜12」以外にも見出しに色を付けたいのですがサイトで見る限り
      下記の構文の中に selection  なるものを追加しなければならないのですが色々やってみましたができませんでした。
      
      
      「1〜12」以外にも見出しに色付けできるよご指導戴けませんでしょうか。
      
      
      Private Sub Workbook_Open() 
        Dim mySheet As Worksheet 
        For Each mySheet In Worksheets 
            mySheet.Tab.ColorIndex = xlNone 
            If mySheet.Name = Format(Now(), "m") Or mySheet.Name = Format(Now(), "m") Then 
                mySheet.Tab.ColorIndex = 3 
            End If 
        Next 
        End Sub
      


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

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



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [189481] Re[1]: vba 今月のシートの見出しに色付け-

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

    □投稿者/ リスキーダック -(2019/06/10(09:19))
    □U R L/

      なんでこんな無意味な事をするのでしょうか?
      両方とも同じなんですが・・・

      >ただシート「1〜12」以外のシートに色付けが不可能です

      ????
      今月以外つかないけど???

      else
      mySheet.Tab.ColorIndex = 7

      を付け加えれば、今月以外は何色だか知らないけど7で統一。




    [189482] Re[2]: vba 今月のシートの見出しに色付け-

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

    □投稿者/ リスキーダック -(2019/06/10(09:21))
    □U R L/

      う、抜けてた。

      >mySheet.Name = Format(Now(), "m") Or mySheet.Name = Format(Now(), "m")

      なんでこんな無意味な事をするのでしょうか?
      両方とも同じなんですが・・・




    [189484] Re[3]: vba 今月のシートの見出しに色付け-

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

    □投稿者/ γ -(2019/06/10(10:01))
    □U R L/

      表題とやりたいことが不整合です。
      で、仕様を明確にしてください。
      1ー12以外の特定の名前のものに色をつけるのか
      1ー12以外の全てに色をつけるのか

      1-12以外に数字で始まるものがあるのかどうか、
      全角数値の使用状況、を示して下さい。

      また、あなたのトライしたコードを提示してください。




    [189487] Re[4]: vba 今月のシートの見出しに色付け-

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

    □投稿者/ 辻 貞雄 -(2019/06/10(10:44))
    □U R L/

      ありがとうございます。
      説明はしているのですがよく読んでほしかったです。

      自分何とか解決します。




    [189497] Re[5]: vba 今月のシートの見出しに色付け-

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

    □投稿者/ γ -(2019/06/10(13:40))
    □U R L/

      いや読んでも不明瞭なので確認したまでです。
      >ただシート「1〜12」以外のシートに色付けが不可能です。
      不可能じゃないです。
      すべてのシートの色を戻した上で
      当月シートの色を変更している。
      不可能というよりやってないだけ。

      別にSelectionは必要ない。
      シートオブジェクトはすでに変数として
      操作可能になっています。
      要するに名前を判別するだけ。
      判別するにはどんなシートがあるのか、
      また対象が何かの説明が必要。
      キチンと説明するのが第一歩でしょう。



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

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

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


- Child Forum -
Edit:ゆう-G