[[20050301004151]]　『強調やフォントサイズも反映させたいんです』（シマ）　ページの最後に飛ぶ

『強調やフォントサイズも反映させたいんです』（シマ）

あるセルの値を他の複数のシートのセルに反映させたとき、強調やフォントの種類やサイズも
いっしょに反映させたいんですけどできません。どうしたらいいか教えてください。

 おはようございます。
一度、変数に取り込んでそれを反映させてはどうでしょうか？
シート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）

コメント返信：

[ 一覧(最新更新順) ]

[[20050301004151]] 『強調やフォントサイズも反映させたいんです』（シマ） ページの最後に飛ぶ

[[20050301004151]]　『強調やフォントサイズも反映させたいんです』（シマ）　ページの最後に飛ぶ