[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『強調やフォントサイズも反映させたいんです』(シマ)
あるセルの値を他の複数のシートのセルに反映させたとき、強調やフォントの種類やサイズも
いっしょに反映させたいんですけどできません。どうしたらいいか教えてください。
おはようございます。 一度、変数に取り込んでそれを反映させてはどうでしょうか? シート1以外のシートの見出しを右くりっく、コードを表示させてそこに貼り付けます。 Option Explicit Private Sub Worksheet_Activate() Dim MyFontStyle As String Dim MyFontSize As Long With Worksheets("Sheet1").Range("A1").Font MyFontStyle = .FontStyle MyFontSize = .Size End With Me.Range("A1").Value = Worksheets("Sheet1").Range("A1").Value With Me.Range("A1").Font .FontStyle = MyFontStyle .Size = MyFontSize End With End Sub ちょっと、ニアンスが違うみたいなんで訂正、、m(._.)m ペコッ (SoulMan)
失礼します。 基本的には出来ないと思ったほうが良いです。 ※なぜならば、=Sheet1!A10+Sheet1!B10 などの場合、どちらの書式を反映させるの?ってことです。
ThisWorkbookモジュールに貼り付けてお試しください。 Private Sub Workbook_SheetChange(ByVal MyRange As Object, ByVal Target As Range) If Target.Count > 1 Then Exit Sub With Application .ScreenUpdating = False With Target Set MyRange = .Worksheet.Range(Target.Address) MySh = .Worksheet.Name .ShowPrecedents .NavigateArrow TowardPrecedent:=True, ArrowNumber:=1, LinkNumber:=1 End With If ActiveSheet.Name <> MySh Then .EnableEvents = False Selection.Copy MyRange.PasteSpecial Paste:=xlFormats .EnableEvents = True End If .Goto MyRange.Offset(1, 0) .ScreenUpdating = True End With End Sub
(川野鮎太郎)
これまた、受け取り方の問題だとおもうのですが、 >=Sheet1!A10+Sheet1!B10 これがC1に入力されているとしたら、C1の書式を反映したいんじゃなのでしょうか??? またまた、ちがうかな??? ところで、ニュアンス?ニアンス?? あっ、これまた、失礼!転記先でね。(;^_^A あせあせ・・・ でも、 >あるセルの値を他の複数のシートのセルに反映させたとき だから、ないと思うけど、、ないこともないのかな??? ちょっと微妙やね。。。 (SoulMan)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.