[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『書式の反映』(けいこ)
色を付けただけで自動で変えるのは出来ないかもしれません。 色を付けたセルを右クリックすると変わるようにであれば、以下のようなことでどうでしょうか。 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
(川野鮎太郎)
このようにされたらどうでしょう? 1.B1に=A1とする。これで、A1の値がリンクします。 2.A1を選択し、コピー。 3.B1を選択し、Shiftを押しながら、編集をクリック、図のリンク貼り付け。 4.別なセルで空クリック1回。これで、A1が図としてリンクします。 (LOOKUP)
鮎さん、それはつまり。。。 書式の変更は、SheetChange(セルの内容が変更されたとき)、の 「内容」には当たらないよう〜ということなのですね?
LOOKUPさん、図のリンク貼付け、うまく出来ました! (代奈)
あのぅ、、おおぼけかもしれませんが、 LOOKUP師匠の方法と A1をコピーしてただ、図のリンク貼り付けとするのとどう違うんですか?? (SoulMan)
B1の値が参照できるようにしているつもりです。 (LOOKUP)
失礼!!しましたぁm(._.)m ペコッ やっぱり、、師匠やわぁf(^^;) (SoulMan)
すみません。 鮎さん、教えて下さい(>_<) >以前同じようなものがありましたよね^^ それって、これでいいんです。。。か? [[20040701131021]]『数式の参照で書式までもコピーしたい・・・』(寄席丸) (代奈)
いや、こっちです(^_^A; [[20050301004151]] 『強調やフォントサイズも反映させたいんです』(シマ)
(川野鮎太郎)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.