No.4
- 回答日時:
> Sheet1のA1のセルの色を変えたときに、Sheet2~5のA1の色も自動的に
> 変わるようにするにはどうすればいいのでしょうか。
この条件であれば、次のコードを設定するとご希望通りになると思います。
一応、手順を書いておきますが、ご存知でしたら読み飛ばしてください。
1.Alt + F11 で VBE(Visual Basic Editor)を開きます。
2.プロジェクトウィンドウ内の「ThisWorkbook」をWクリックします。
3.表示されたコードウィンドウに下記コードをコピーして貼り付けます。
(必要により、2~3行目の指定を変更します。質問の例の場合は、このまま)
4.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
5.メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
「中」にして[OK]します。
これで如何でしょうか。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Const OrgSh = "Sheet1" '<----- 元になるシート名を指定
Const OrgAdd = "A1" ' <----- 元になるセルを指定
If Sh.Name <> OrgSh Then
Sh.Range(OrgAdd).Interior.ColorIndex = _
Worksheets(OrgSh).Range(OrgAdd).Interior.ColorIndex
End If
End Sub
VBAという言葉はよく聞くけれどぜんぜんわからないです(^^;)
また時間のあるときに勉強しようと思います。
ありがとうございました。
No.3
- 回答日時:
(1)Sheet2のA1セルの条件付書式で他のシート=Sheet1の参照は出来ません。
(バージョン2000)仮に余り使わないセル、(Sheet2の例えばX1)に=sheet1!A1としておいて、一旦Sheet2に値を持ってきて、条件付き書式を、「数式が」にして、=$X$1>10にして、パターンをある色に設定するなど。しかし値の変化を捉えるのは難しいと思われる。
(2)関数式を使ってセルの書式を、左右することはできません。
(3)残る道はVBAしかありません。それも「自動的に」呼応することが望まれているのでしょうから、イベントを掴まえないとダメです。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "changed"
Worksheets("sheet2").Range("a1").Interior.ColorIndex = 6
Worksheets("sheet3").Range("a1").Interior.ColorIndex = 6
End If
End Sub
それとSheet2のA1のセルの色をつけっぱなしでは不可でしょうから、色なしに戻すキッカケはどう決めればよいのでしょうか。
それにエクセルのシートのChangeイベントはいろいろクセがあるようです。
詳しい説明をありがとうございます。
とりあえず表を完成させないといけないので#1の方法でやってみますが、またじっくり勉強しようと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルの色も=イコールできますか?
Windows Me・NT・2000
-
エクセルのシートリンクで,色もリンクさせる方法
Excel(エクセル)
-
別シートのセルの色も同じ色に変更する方法を 教えてください
Excel(エクセル)
-
-
4
別シートのデータを参照してセルの色を塗り替えたい
Excel(エクセル)
-
5
エクセルのセルの塗り色も同期させたい
Excel(エクセル)
-
6
色のリンクは出来ますか?【エクセル】
Access(アクセス)
-
7
あるセルに色を付けた時、別のセルにも同じ色が付く
Excel(エクセル)
-
8
EXCELのセルや文字色の反映
Excel(エクセル)
-
9
エクセル 別シートへのコピーを,セルの色や太字斜体までやりたい。
Excel(エクセル)
-
10
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
11
Excelで、塗りつぶしを含め同じ表示にするには?
Excel(エクセル)
-
12
文字の色も参照 VLOOKUP
Access(アクセス)
-
13
Excelの塗りつぶしの反映
Excel(エクセル)
-
14
エクセルで隣(右or左)のセルと同じ文字色にしたい
Excel(エクセル)
-
15
別シートの文字列があったら現シートのセルの色変える
その他(Microsoft Office)
-
16
エクセルでマクロにてセル色と文字を他シートのセルへコピーしたい
その他(コンピューター・テクノロジー)
-
17
excel 参照しているセルに色がついていたら、返すセルにも色もつける
その他(コンピューター・テクノロジー)
-
18
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
19
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
-
20
セルを結合したA4とA5の条件付き書式を結合しない行にも適用する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 強制終了してしまう
-
access2021 VBA メソッドまたは...
-
Access Error3061 パラメータが...
-
accessデータを指定したExcel、...
-
実行時エラー3131 FROM 句の構...
-
AccessVBAで任意の複数リンクテ...
-
Accessのスプレッドシートエク...
-
Accessレポートのチェックボッ...
-
accessの代わりになるもの
-
Accessのリンクテーブルのパス...
-
Access IF文でテーブルに存在し...
-
access クエリ yes/no型のクエ...
-
Access VBA でHTML文を表示したい
-
accessでlaccdbファイルが削除...
-
accessについて(超初心者です)
-
アクセス レポートを開いたとき...
-
Microsoft365にAccessってあり...
-
Access DAOのExecuteメソッドの...
-
Accessのクエリで、replace関数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 強制終了してしまう
-
Accessのクエリで、replace関数...
-
accessでlaccdbファイルが削除...
-
【Access】Dcount関数の複数条...
-
Access Error3061 パラメータが...
-
Accessのスプレッドシートエク...
-
ACCESS VBA でのエラー解決の根...
-
Accessレポートのチェックボッ...
-
実行時エラー3131 FROM 句の構...
-
access2019の起動が遅い
-
Vba Userformを前面に出すについて
-
Microsoft365にAccessってあり...
-
教えてください! アクセスの書...
-
Access 複数条件検索の設定が上...
-
【至急・画像あり】建物or住所...
-
Access VBA [リモートサーバー...
-
access2021 レコードロックの使...
-
Access VBA を利用して、フォル...
-
Accessのリンクテーブルのパス...
おすすめ情報