[[20050310012418]]　『書式の反映』（けいこ）　ページの最後に飛ぶ

『書式の反映』（けいこ）
セルＢ１に"=A1"と入力すれば、セルＢ１にはセルＡ１と同じ値が返されますよね？
ここでセルＡ１に赤の網掛けをつけるとＢ１も同じように赤の網掛けがつくようにしたい場合はどうすればいいのですか、教えてください。
よろしくお願いします
ＯＳはＸＰ、エクセル2003です

 色を付けただけで自動で変えるのは出来ないかもしれません。
 色を付けたセルを右クリックすると変わるようにであれば、以下のようなことでどうでしょうか。
　
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub
'Cancel = True
    On Error Resume Next
    MyLink = Target.DirectDependents.Address
    MyColor = Target.Interior.ColorIndex
    Range(MyLink).Interior.ColorIndex = MyColor
End Sub

 対象範囲がA1からB10の場合です。

 （川野鮎太郎）

大変参考になりました。
ありがとうございました。

 普通に考えると、A1セルに色を付けるなら、A1:B1 を選択して色を付ければ
 同時に色が付きますよね。これが「何かの条件」が発生した時に、A1:B1 に色が
 付くというのなら、条件付き書式を使って色の ON-OFF を切り替えられる可能性が
 あります。
 （純丸）

 質問です。。。
 B1に　=A1って入力したら、A1を全部コピペって、VBAでは出来ないのかなぁ？
 何だか出来そうな気がするのは、私がVBA初心者だからでしょうか(ーー;)
 (代奈)

 それは出来るのよね。以前同じようなものがありましたよね＾＾
 ただ今回もあとでA1の書式変更だから、イベントが発生しないの＿/￣|○ il||li

 （川野鮎太郎）

 このようにされたらどうでしょう？　　　　　　　　　　
 １．B1に=A1とする。これで、A1の値がリンクします。
 ２．A1を選択し、コピー。
 ３．B1を選択し、Shiftを押しながら、編集をクリック、図のリンク貼り付け。
 ４．別なセルで空クリック１回。これで、A1が図としてリンクします。　　　　　　　　　　　(LOOKUP)

 鮎さん、それはつまり。。。
 書式の変更は、SheetChange(セルの内容が変更されたとき)、の
 「内容」には当たらないよう～ということなのですね？

 LOOKUPさん、図のリンク貼付け、うまく出来ました！
 (代奈)

 あのぅ、、おおぼけかもしれませんが、
LOOKUP師匠の方法と
A1をコピーしてただ、図のリンク貼り付けとするのとどう違うんですか？？
（SoulMan）

 B1の値が参照できるようにしているつもりです。  　　　　　　　　　　　　　　　　　　　(LOOKUP)

おぉぉぉぉぉぉぉw(☆o◎)wどぉひゃぁ～～

 失礼！！しましたぁm(._.)m ペコッ
やっぱり、、師匠やわぁf(^^;)
（SoulMan）

 すみません。
 鮎さん、教えて下さい(>_<)
 >以前同じようなものがありましたよね＾＾
 それって、これでいいんです。。。か？
[[20040701131021]]『数式の参照で書式までもコピーしたい･･･』（寄席丸）
 (代奈)

 いや、こっちです(^_^A;
[[20050301004151]] 『強調やフォントサイズも反映させたいんです』(シマ)

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20050310012418]] 『書式の反映』（けいこ） ページの最後に飛ぶ

おぉぉぉぉぉぉぉw(☆o◎)wどぉひゃぁ～～

[[20050310012418]]　『書式の反映』（けいこ）　ページの最後に飛ぶ