[[20070128103202]]　『sheet1で入力したらsheet2にも同じように入力でき』（まさ）　ページの最後に飛ぶ

『sheet1で入力したらsheet2にも同じように入力できますか』（まさ）
sheet1でA1に入力した数字などをsheet2・sheet3のA1にそのまま入力される方法は、
あるのですか。また、sheet1でA1に入力した数字などを、sheet2にはB3に、sheet3にはC4に入力される方法もあるのでしょうか。よろしくお願いいたします。

 >sheet1でA1に入力した数字などをsheet2・sheet3のA1にそのまま入力される方法は、

 sheet2のA1に「=IF(Sheet1!A1="","",Sheet1!A1)」
 sheet3のA1に「=IF(Sheet1!A1="","",Sheet1!A1)」
 と入力します。

 >sheet2にはB3に、sheet3にはC4に入力される方法も
 sheet2のB3に「=IF(Sheet1!A1="","",Sheet1!A1)」
 sheet3のC4に「=IF(Sheet1!A1="","",Sheet1!A1)」
 と入力します。
           (SHIOJII)

ありがとうございました。
文字は確かに入力できました。
あと、文字を入力して、セルに色を付けた場合（sheet1のA１に赤色）そこの色も別sheet2のA１に反映させる事はできますか？もし良かったら教えてください。

 マクロで考えてみました。
　
 Sheet1 の、シートモジュールへコピペ
'-------------------
Public Rng As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Variant
    On Error Resume Next
    With Range(Rng).Interior
        Col = .ColorIndex
    End With
    Worksheets("Sheet2").Range(Rng).Interior.ColorIndex = Col
    Worksheets("Sheet3").Range(Rng).Interior.ColorIndex = Col
    Rng = Target.Address
End Sub
　
 シートモジュールとは、使用したいシートの
 ＼Sheet1／
　　↑
　　ここを右クリック → コードの表示
　　出てきた白い画面にコピペです。
　
 （キリキ）(〃⌒o⌒)b

 単純にsheet1,sheet2を選択して(シフトを押してsheetを選択)
 入力・色つけをする
 複数のシートに図形以外の操作が反映される
 では？
 (お節介doka)

キリキさんへ

 マクロの実行方法がわかりません。
 マクロボタンも作れません。
 どうすればマクロが実行できるのでしょうか。
 よろしくご指導お願いします。
 (shota)

 以前にもどこかで教えたはずだったと思いますが、、、
 勘違いでしょうか？
 ボタンを作る必要はありません。
 シートモジュールに書いてあるものは、ある条件で勝手に動き出します。
　
 今回の条件とは、
 >Private Sub Worksheet_SelectionChange(ByVal Target As Range)
                        ~~~~~~~~~~~~~~~
 です。
 セルが選択されたら、勝手に実行されます。
　
 そして、シートモジュールへの書き込み方法は、
 > シートモジュールとは、使用したいシートの
 > ＼Sheet1／
 >　　↑
 >　　ここを右クリック → コードの表示
 >　　出てきた白い画面にコピペです。
 です。
　
 （キリキ）（〃⌒o⌒)b

キリキさんありがとうございます。

 以前にも教えていただいていましたような気がします。
 どうもすみません。
 それにしてもマクロは難しいですよね。
 ボタンで作動するものや、決められた文字で作動するものなど複雑ですね。
 物忘れのひどい私ですがこれに懲りずよろしくご指導お願いします。
 今回もですが本当に親切なご解答まことにありがとうございます。
 今後とも宜しくお願いいたします。
 (shota)

コメント返信：

[ 一覧(最新更新順) ]

[[20070128103202]] 『sheet1で入力したらsheet2にも同じように入力でき』（まさ） ページの最後に飛ぶ

[[20070128103202]]　『sheet1で入力したらsheet2にも同じように入力でき』（まさ）　ページの最後に飛ぶ