Excel VBA 質問スレ Part66at TECHExcel VBA 質問スレ Part66 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト650:デフォルトの名無しさん 20/06/08 18:10:47 sSFxNrIu.net シート名が抜けるの俺もむかーしよくやったわぁ アクティブにすると直るんだよなぁｗ 何度やったか記憶にないぐらいやって痛い思いした 651:デフォルトの名無しさん 20/06/08 18:31:02.99 J+Lc8xxu.net withで囲んでもドットを忘れてそれに気づかずいつまでもソースとにらめっこしたりな 652:デフォルトの名無しさん 20/06/08 18:52:12.93 d2CDqPLn.net >>624 srcsheet.Range(srcsheet.Cells(2, 1), srcsheet.Cells(Cells(Rows.Count, 1).End(xlUp).Row, 8)).Copy 確証ないけど… 653:デフォルトの名無しさん 20/06/08 19:01:25.33 zqZQO86x.net Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sh.Range("A:Z").Interior.Color = xlNone If Intersect(Sh.Range("A:Z"), Target) Is Nothing Then Exit Sub Else '赤く色が変わる 654:列 Intersect(Selection.EntireRow, Sh.Range("G:Z")).Interior.Color = RGB(0, 255, 0) End If End Sub とにかく複数選択したセル行の特定の列を全部色付け 選択をやめると色が戻る(デフォルト)をやりたくて ThisWorkBookにこれを追記 で、なんとか希望の動きになったんですが これに1行目から7行目は除外(選択しても色が付かない) という条件の追加は可能ですか？ 自分の知識じゃ無理ゲーですみません 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch