[[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)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.